title image


Smiley Hilfe, ich bin am verzweifeln...
Hallo Leute.



Ihr habt mir vor Ostern bei meinem Problemchen mit der Inventarisierungsdatenbank geholfen. Ich habe wie mir geraten wurde, alle Elemente der DB so umbenannt, damit alle [ ] im Quellcode wegfallen können. Doch leider ohne Erfolg, denn die Fehlermeldung kommt immer noch. "1 Parameter wurde erwartet, aber es wurden zu wenig Parameter übergeben."



Durch Doppelklick auf das Bezeichnungsfeld wird die DB in den "Schreibzustand" gebracht und die Fehlermeldung wird angezeigt.

Auch habe ich keine Ahnung, wie z.B. ich ein Betriebssystem wieder freigeben kann, also wieder ins Archiv bringe.



Ich bekomme es ohne weitere Hilfe von Euch doch nicht hin.



Schon mal Danke im Voraus:

lernwillig

_________________________________________________________

Quellcode:



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



MSQL = "Update tblPC Set Lager=-1"

MSQL = MSQL & " WHERE IDMitarbeiter =" & Me!IDMitarbeiter



CurrentDb.Execute MSQL, dbFailOnError



Me.Rechner.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: