Gem. værdi fra text1-2-3 i en DB

Hej Narhat
Prøv dette:

Public Function OpretPost()
Set dbWS = DBEngine.Workspaces(0)
Set db = dbWS.OpenDatabase("database.mdb", False)
Set dbtabel = db.TableDefs("TabelNavn")
Set dbRS = dbtabel.OpenRecordset

  Set dbRS = dbtabel.OpenRecordset
  With dbRS
    .AddNew
    !FeltNavn1 = text1.Text
    !FeltNavn2 = text1.Text
    !FeltNavn3 = text1.Text
    .Update
  End With

  db.Close
  Set dbWS = Nothing
  Set db = Nothing
  Set dbRS = Nothing
  Set dbtabel = Nothing
  Set dbFelt = Nothing
end function

husk at angiv dao360.dll (ell. daoxxx) som reference

Mvh. Jan

Bare nysgerrig - hvad står der i Text1.text, Text2.text og text3.text?

Jan, hvordan får jeg den til at gøre det på en command knap

Martin, Navn-Score-Tid

Hej Narhat
Do like this...

Command1_Click
call OpretPost
end sub

mvh Jan