title image


Smiley Re: Jetzt verstehe ich gar nix mehr.
Dim MSQL As String

Dim ID As Long

ID = Me.[ID Mitarbeiter]

MSQL = "Update tblPC Set istVergeben=1"

MSQL = MSQL & " WHERE [ID Mitarbeiter] =" & Str(ID) & ";"

CurrentDb.Execute MSQL, failonerror



muss aber heißen (Ohne deine Tabellen zu kennen)



Dim MSQL As String

Dim ID As Long

ID = Me.[ID Mitarbeiter]

MSQL = "Update tblPC Set istVergeben=-1"

MSQL = MSQL & " WHERE [ID Mitarbeiter] =" & Str(ID) & ";"

CurrentDb.Execute MSQL, dbfailonerror





Sagte ja, dass du einen Rechtschreibefehler hast.



Gruß trekking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: