how to save the value of unbound text boxes to field in table

[aannll]

hiiii
i have form(Main form) that contain textboxes(f1,f2) and a button (f3)
when enter values to text boxes and click the button i want
the values saved in fields(Passwords,Names) that Exists in table called(Passwords)


thanks in advance

[Seth Schrock]

Here is a link to the MSDN website that shows the Recordset.AddNew method: Recordset.AddNew Method (DAO). You would just use something like

rst![Field_Name] = Me![Control_Name]

to pass the values in the controls to the proper fields.

[aannll]

thank you so much
please can u help me in my code

 Dim sql As String
Dim sq As String
     Dim LName As String
  Dim LNa As String
 
  LNa = Me.f1.Value
     LName = Me.f2.Value
 
     If Not IsNull(LName) And Not IsNull(LNa) Then
          sql = "INSERT INTO Passwords ([Passwords]) VALUES ('" & LName & "')"
 
               CurrentDb.Execute (sql)
                sq = "INSERT INTO Passwords ([Names]) VALUES ('" & LNa & "')"
 
               CurrentDb.Execute (sq)
 
 
 
     Else
          MsgBox "Please enter the password"
          Exit Sub
     End If
 

[aannll]

the value of the name and password save in separately records
i want to store them in the same record

[mshmyob]

You only need a single INSERT statement.

sql = "INSERT INTO Passwords (Passwords, Names) VALUES ('" & LName & "','" & LNa & "')"
 

cheers,

[Seth Schrock]

That is because you have them in two separate INSERT queries. You need to combine them into one, like this:

Dim sql As String
Dim LName As String
Dim LNa As String
Dim db as DAO.Database
 
set db = CurrentDb
 
LNa = Me.f1.Value
LName = Me.f2.Value
 
     If Not IsNull(LName) And Not IsNull(LNa) Then
          sql = "INSERT INTO Passwords ([Passwords], [Names]) VALUES ('" & LName & "', '" & LNa & "')"
 
          db.Execute (sql)
 
     Else
          MsgBox "Please enter the password"
          Exit Sub
     End If

[aannll]

thanks very much for your answers

[belkhedr]

thank you for this code