title image


Smiley Re: Jetzt verstehe ich gar nix mehr.
Hallo trekking.



An den Verweisen scheint es wohl nicht zu liegen, denn die sind alle da.

Darum bekommst du hier den Code.



Es kommt die Fehlermeldung:

"1 Parameter wurde erwartet, aber es wurden zu wenig Parameter übergeben."



Viel Spaß damit, denn ich bin am verzweifeln. ;-)



Gruß

lernwillig



Option Explicit

Option Compare Database

_____________________

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: