VBA om velden met update query aan te passen

  • Onderwerp starter Onderwerp starter Orcaa
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Orcaa

Gebruiker
Lid geworden
1 nov 2010
Berichten
125
Heb access 2007 database met tabel "T_Plate" en met velden "Checkout_date" "Plate_Naam" en "Checkout" (is ja/nee veld ).
Verder een formulier "F_update_checkout__Plates" met textbox "Text17" en knop "Command19"

Nu wil ik in textbox naam van een plaat ingeven (bv "Plate_05" ) en dan op knop drukken en dan moet de "Checkout_date" de huidige datum worden en het vakje in veld "Checkout" aangevinkt worden

Heb nu onderstaande code, maar krijg foutmelding

Graag hulp, alvast bedankt


Private Sub Command19_Click()
If IsNull(Me!Text17) Then
MsgBox "You must input a value to PlateName"
Else
CurrentDb.Execute "UPDATE T_Plate " & _
"SET T_plate.[Checkout] = False " & _
"WHERE T_Plate.[Plate_Name] = " & Forms![F_update_checkout__Plates]![Text17] & ";"
End If
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan