Ik veronderstel dat je de nieuwe naam van de straat in een textbox zet?
Ten eerste, VB neemt gegevens blijkbaar anders op in een insert dan in een update.
Bij de insert heb je inderdaad ' ' nodig rond de waarde :
Code:
qry_add_dom = "INSERT INTO DOMAIN(dom_name, dom_grp_id) VALUES('" & Me.txt_add_dom.Value & "'," & Me.cb_rel_dom_grp.Value & ");"
Aangezien het eerste veld een tekst is, zijn de quotes nodig. het tweede is een nummer,
dus is het niet nodig.
MAAR DIT GELD NIET BIJ EEN UPDATE!
Je kan de quotes gewoon weglaten
Dit voorbeeld werkt bij mij. Pas het aan aan jouw waarden, en het moet wel lukken.
Code:
qry_grp_spec = "UPDATE DOMAIN_GRP SET grp_responsible = " & Me.txt_grp_resp.Value & ", grp_specialty = " & Me.txt_grp_speci & " WHERE grp_id = " & Me.cb_grp_speci.Value & ";"
Er zijn geen problemen met spaties.
Let wel. Ik ga zo te werk.
In mijn form staat een textbox die op voorhand ingevuld is (bv: StraatNaam)
!! er mogen geen spaties in de textbox staan!!
Als ik dan op de update button klik, wordt een nieuw venstertje geopend waarin dan staat
"StraatNaam" en daaronder een lege textbox.
Daarin mag je WEL spaties zetten.
Hier is mijn volledige code van de button
Code:
'
'**************** MODIFY DOMAIN ****************
'-----------------------------------------------
'
Private Sub bt_dom_mod_Click()
Dim qry_mod_dom As String
On Error GoTo Err_bt_dom_mod_Click
DoCmd.GoToRecord , , acGoTo
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
qry_mod_dom = "UPDATE DOMAIN SET dom_name = " & Me.txt_dom_mod.Value & " WHERE dom_id = " & Me.cb_mod_dom.Value & ";"
DoCmd.RunSQL qry_mod_dom
'------CB & List UPDATES---------
Lst_DOMAIN_grp.Requery
Lst_domains.Requery
Lst_dom_spec.Requery
Lst_grp_spec.Requery
cb_grp_speci.Requery
cb_del_grp.Requery
cb_del_dom.Requery
cb_mod_grp.Requery
cb_mod_dom.Requery
cb_rel_dom_grp.Requery
'--------------------------------
Exit_bt_dom_mod_Click:
Exit Sub
Err_bt_dom_mod_Click:
MsgBox Err.Description
Resume Exit_bt_dom_mod_Click
End Sub
Hopelijk helpt dit
