Office: (Office 2010) VBA Benutzerverwaltung

-- zu spät, gelöscht --

 

Guten Morgen,
es funktioniert nicht, mein Formular wird zwar aufgerufen jedoch sind die Buttons sichtbar. Eine Fehlermedung bekomme ich keine...
Könnt Ihr Euch das erklären?
LG

 

Wahrscheinlich ja. *wink.gif*
Aber nur dann, wenn du den Code aus dem aufrufenden und dem
aufgerufenen Formular zeigst.

 

So das steht im Formular Start

Private Sub Foto_gefiltert_Click()
On Error GoTo Err_Foto_gefiltert_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_Fotos"
stLinkCriteria = "[Id]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria, , False


Exit_Foto_gefiltert_Click:
Exit Sub

Err_Foto_gefiltert_Click:
MsgBox "Ein fehler ist aufgetreten"
Resume Exit_Foto_gefiltert_Click
End Sub


Und der Aufruf im Formular Foto

Private Sub Form_Current(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.Datensatz hinzufügen.Visible = Me.OpenArgs
Me.Datensatz löschen.Visible = Me.OpenArgs
End If
End Sub

 

Hi,

schau dir die Syntax der OpenForm-Methode in der Access-Hilfe an, ehe du sie einsetzt - und zähle die Kommas ab.

 

So nach abzählen der kommas sind die Buttons aber imem rnoch da....

 

Du solltest sie nicht nur abzählen, sondern auch mit Deinem Code vergleichen...

Ich zähle 6 erforderliche Kommas vor OpenArgs und bei Dir nur 5 vorhandene.

Teste einfach
Code:

 

Form_Current halte ich auch nicht für sonderlich geeignet, das Ausblenden der Buttons könnte bereits im Open oder Load stattfinden.
Aber dennoch sollte es mit dem korrigierten Code funktionieren.

 

Das mit den Kommas habe ich hin bekommen, wird mir ja auch angezeigt wenn ich zwischen den Kommas bin welchen Kriterium ich mich gerade befinde.
Jedoch bleiben die Button sichtbar...

 

Und was ergibt nun MsgBox Me.OpenArgs?

 

Es wird mir kein Anzeigenfenster Ausgegeben...
Da passiert nix das Formular öffnet ganz normal die Buttons sind sichtbar...
Und können benutzt werden...

 

Zeige uns doch bitte den kompletten Code der Prozedur, in der MsgBox Me.OpenArgs steht!

 

Im Formular wo das fORMULAR fOTOS AUFGERUFEN WIRD

Private Sub Foto_gefiltert_Click()
On Error GoTo Err_Foto_gefiltert_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_Fotos"
stLinkCriteria = "[Id]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , False

Exit_Foto_gefiltert_Click:
Exit Sub

Err_Foto_gefiltert_Click:
MsgBox "Ein fehler ist aufgetreten"
Resume Exit_Foto_gefiltert_Click
End Sub

Formular Fotos:

Private Sub Form_Load(Cancel As Integer)
MsgBox Me.OpenArgs
If Not IsNull(Me.OpenArgs) Then
Me.adddatensatz.Visible = Me.OpenArgs
Me.delete.Visible = Me.OpenArgs
End If
End Sub
Option Compare Database

Private Sub Datensatz_hinzufügen_Click()
On Error GoTo Err_Exit_Datensatz_hinzufügen_Click
DoCmd.GoToRecord , , acNewRec
Exit_Datensatz_hinzufügen_Click:
Exit Sub
Err_Exit_Datensatz_hinzufügen_Click:
MsgBox "Ein Fehler ist aufgetreten!", vbYesNo + vbExclamation
Resume Exit_Datensatz_hinzufügen_Click
End Sub

Private Sub Datensatz_löschen_Click()
On Error GoTo Err_Exit_Datensatz_löschen_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Exit_Datensatz_löschen_Click:
Exit Sub
Err_Exit_Datensatz_löschen_Click:
MsgBox Kein Datensatz zum löschen gefunden", vbYesNo + vbExclamation
Resume Exit_Datensatz_löschen_Click
End Sub




Private Sub Formular_schließen_Click()
DoCmd.Close
End Sub

Habe die Prozedur beim Laden des Formulars angelegt geht aber auch nicht

 

Wenn Du per DoCmd.OpenForm "frm_Fotos" das Formular "frm_Fotos" aufrufst und die MsgBox erscheint nicht beim Laden dieses Forms, dann steht die MsgBox definitiv nicht im Lade-Ereignis dieses Forms.

Überprüfe bitte den Formularnamen. Hast Du im Lade-Ereignis ein On Error Resume Next stehen?

 

Da mein Formular Fotos geöffnet wird, gehe ich davon aus das der Name des Aufrufes richtig ist...
Und wenn ich die Entwurfansicht des Formulares öffne und rechts unter den Eigenschaften Bei Laden eine Ereignisprozedur einfüge müßte es doch an der richtigen Stelle sein oder?