title image


Smiley Jetzt verstehe ich gar nix mehr.
Hallo trekking.



Leider hat mir dein letzter Tipp nicht wirklich weitergeholfen.

Ich habe sämtliche Möglichkeiten hin und her probiert, doch da ich nicht genau weiß, was ich zu tun habe, leider ohne Erfolg. Auch die F1 war mir keine Hilfe.



Könntest du mir das mit dem:

' > > > > >

currentdb.execute msql,dbfailonerror

' < < < < <

noch genauer erklären?



Ich habe dir unten die gesamte Prozedur mal zur Durchsicht gepostet. Wie du siehst, habe ich doch einen " On Error GoTo - Aufruf".



Habe bitte Verständnis für Anfängerfragen und

Danke für deine Geduld.



Gruß:

lernwillig

---------------------------------------------------------------------------------

Private Sub Bezeichnungsfeld10_DblClick(Cancel As Integer)

On Error GoTo Err_Bezeichnungsfeld10_DblClick



If Me.AllowEdits = False Then

Me.AllowEdits = True



Bezeichnungsfeld10.ForeColor = 255

Bezeichnungsfeld178.Caption = "schreiben"

Bezeichnungsfeld178.ForeColor = 255

Bezeichnungsfeld177.Caption = "schreiben"

Bezeichnungsfeld177.ForeColor = 255

Bezeichnungsfeld176.Caption = "schreiben"

Bezeichnungsfeld176.ForeColor = 255

cmdDatensatzDuplizieren.Enabled = True

ufrmFachAnwendungen.Enabled = True



' > > > > > > > > > > > > > > > > > > > >

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



Me.Kombinationsfeld96.Requery

' < < < < < < < < < < < < < < < < < < < <

Else

Me.AllowEdits = False

Bezeichnungsfeld10.ForeColor = 0

Bezeichnungsfeld178.Caption = "lesen"

Bezeichnungsfeld178.ForeColor = 0

Bezeichnungsfeld177.Caption = "lesen"

Bezeichnungsfeld177.ForeColor = 0

Bezeichnungsfeld176.Caption = "lesen"

Bezeichnungsfeld176.ForeColor = 0

cmdDatensatzDuplizieren.Enabled = False

ufrmFachAnwendungen.Enabled = False

End If



Exit_Bezeichnungsfeld10_DblClick:

Exit Sub



Err_Bezeichnungsfeld10_DblClick:

MsgBox Err.Description

Resume Exit_Bezeichnungsfeld10_DblClick

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: