Office: (Office 2010) VBA Benutzerverwaltung

Im Prinzip ja. Nur nimm' die BenutzerID, nicht den Namen.
maike

 

urrentDb.Execute "UPDATE tbl_Benutzer SET Kennwort = '" & Me.txtneuKennwort2 & "' WHERE Benutzername ='" & Me.txtBenutzername, dbFailOnError
Bekomme eine Fehlermeldung die da lautet Laufzeitfehler 3075
Syntaxfehler in Zeichenfolge in Abfrageausdruck 'Benutzername=E8706'.

 

Benutzername ist ein Text, der muss in Hochkommata eingeschlossen werden:
Code:

maike

 

Danke Danke Danke es geht!

 

Stehe mal wieder vor einem Problem....
Und zwar möchte ich wenn ich über eine Schaltfläche ein Formular aufrufe nur 1 Schaltfläche von 3 sichtbar ist. Wenn ich dieses Formular aber über einen andere Schaltfläche aufrufe sollen dem Benutzer alle 3 Schaltflächen zur Verfügung stehen.

 

Hallo,

gib dem Formular beim Öffnen mit der OpenForm-Methode einen Parameter mit (-> OpenArgs).
Näheres siehe Access-Hilfe.

 

Für ein neues Thema mach besser einen neuen Thread auf.
Code:

Beim Öffnen von "DeinFormular":
Code:

maike

 

Also ich rufe das Formular frm_Fotos aus ein und dem selben Formular auf frm_Start.

Jedoch über zwei unterschiedliche Schaltflächen. Nun möchte ich das wenn ich über eine Schaltfläche das Formular aufrufe Zwei von den 3 Schaltflächen nicht sichtbar sind.

Wenn ich die andere Schaltfläche aufrufe sollen alle 3 sichtbar sein.

Zur Zeit sind immer alle 3 Schaltflächen sichtbar die ich ja im Formular frm_Fotos erstellt habe.

Meine Befehlsschaltflächen heißen Formular schließen, Datensatz hinzufügen und Datensatz löschen. Die letzteren beiden möchte ich ausblenden....

 

Was hast du an Annes und meinem Vorschlag nicht verstanden? Das Problem noch mal zu beschreiben bringt dich nicht weiter.
maike

 

Mir ist der Zusammenhang nicht ganz klar...

Ich möchte aus einem Formular mittels einem button in einem anderen Formular 2 Buttons ausblenden.

Bei deinem Beispiel Spreche ich im ersten Code Beispiel beim öffnen des Formulares irgendwas an ,,,, was ich auf false setze. Das müßte ich ja in meinem frm_Start machen aber ist das dann dauerhaft?

Bei der If bedingung prüfe ich ob etwas nicht null ist dann sind die Buttons sichtbar?

ich stehe irgendwie auf dem Schlauch.

 

Ja sicher ist das dauerhaft was du in die Ereignisprozeduren schreibst. Nicht jedoch, was der Code bewirkt. *tongue.gif*
Das Ein-/Ausblenden von Schaltflächen während der Formularausführung geht beim Schließen wieder verloren.

Besser als Maike es getan hat, kann man dir die Lösung wirklich nicht präsentieren, also probiere es doch einfach mal aus!

 

An der Stelle übergibst du als OpenArgs an das zweite Formular entweder den Wert True oder False, je nachdem welcher Button gedrückt wurde.

Bei der If Bedingung prüfst du beim Öffnen des zweiten Formulars, ob OpenArgs irgendeinen Wert hat. Wenn ja, ist dies der Wert für die Eigenschaft Visible der beiden Schaltflächen.
Folge Annes Rat, probier's einfach mal aus.
maike

 

Guten Morgen,
nach einigen ausprobieren ging es um genau zu sein es ging einmal!
Die beiden Schaltflächen sind verschwunden...
Nun bekomme ich wenn ich die Schaltfläche drücke die FehlermeldungMethode oder Datenobjekt nicht gefunden.
Ich habe aber nichts verändert.

 

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
DoCmd.OpenForm stDocName, , , , , , False

If Not IsNull(Me.OpenArgs) Then
Me.Datensatz hinzufügen.Visible = Me.OpenArgs
Me.Datensatz löschen.Visible = Me.OpenArgs
End If

Exit_Foto_gefiltert_Click:
Exit Sub

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

 

Da wundert mich eher, dass es überhaupt einmal ging *mrcool ...
Code:

Und dieser Code gehört hier nicht her, sondern in das Formular "frm_Fotos". Und zwar in dessen Ereignis beim Öffnen:
Code:

Gib deinen Buttons anständige Namen, ohne Sonder- und Leerzeichen.
maike