Sub interessenten()
End Sub
Sub OrtFinden()
Dim o_rst As Recordset
Set o_rst = CurrentDb.OpenRecordset("select * from ortsdaten")
With o_rst
.FindFirst "PLZ= '" + Form_interessenten.cmb_plz.Text +" ' "
If .NoMatch = False Then
Form_interessenten.tb_Ort = !Ort
End If
End With
End Sub
hast da die ' ' vergessen wie oben schon beschrieben.. ohne die muss plz ne zahl sein.. und plz ist doch ein string wie wir schon festgestellt haben |