toevoegen waarden in database

[dollo]

Graag zou ik text uit uit het textveld txtNieuwezaal tekst halen en deze toevoegen aan de tabel zaal.
vervolgens gooi ik het textveld weer leeg.
hievoor heb ik onderstaande code gemaakt

Private Sub cmdToevoegen_Click()
Dim strSQL As String
If IsNull(Me.txtNieuwezaal) Then
MsgBox "Vul tekst in!"
Else
strSQL = "FROM dbo_zaal ADD" & Me.txtNieuwezaal
DoCmd.RunSQL strSQL
Me.txtNieuwezaal = ""
End If

End Sub

maar ik kom er niet uit wat de fout is
daarom vraag ik of julie weten waar de fout zit.

bij voorbaat dank:thumb:

 

[ReneDirks]

- Je SQL code is niet in orde.
- Ik neem aan dat je een string waarde voor nieuwezaal wilt opslaan, er moeten dus quotes bij

Je kunt dit probleem op twee manieren oplossen:

Private Sub cmdToevoegen_Click()
   Dim strSQL As String
   If IsNull(Me.txtNieuwezaal) or me.txtNieuweZaal = "" Then
      MsgBox "Vul tekst in!"
   Else
      strSQL = "INSERT INTO dbo_zaal(Zaal) VALUES ('" & Me.txtNieuwezaal &"')"
      'als txtNieuweZaal numerieke waarde bevat:
      'strSQL = "INSERT INTO dbo_zaal(Zaal) VALUES (" & Me.txtNieuwezaal & ")"

      DoCmd.RunSQL strSQL
      Me.txtNieuwezaal = ""
   End If 
End Sub

Mooier vind ik zelf:

Private Sub cmdToevoegen_Click()
   Dim strSQL As String
   dim rst as DAO.Recordset
   If IsNull(Me.txtNieuwezaal) or me.txtNieuweZaal = "" Then
      MsgBox "Vul tekst in!"
   Else
      strSQL = "SELECT Zaal FROM dbo_zaal"
     set rst = currentdb.openrecordset(strSQL)
    rst.addnew
    rst("Zaal") = Me.txtNieuwezaal
    rst.update
    set rst=nothing
      Me.txtNieuwezaal = ""
   End If 
End Sub

De reden dat ik deze laatste mooier vind: probeer in het eerst voorbeeld maar eens de volgende waarde voor txtNieuweZaal in te vullen: 'testzaal' (inclusief quotes..)

 

[dollo]

tnks
srry voor het late antwoord