title image


Smiley Funktion um Änderungsdatum/user zu speichern
Hallo,



ich möchte immer wenn ein Datensatz geändert wird, das Änderungsdatum und den User speichern.



Da ich dies in mehreren Formularen machen möchte, möchte ich eine Prozedur Geändert(Formular) erstellen.

Wie muß ich den Formularnamen(auch bei Ufos) übergeben und wie kann ich darauf zugreifen?

So funktioniert es leider nicht:



Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strCurrentForm As String



strCurrentForm = Application.CurrentObjectName

Geändert Forms(strCurrentForm)

End Sub





Die Prozedur sieht so aus



Public Sub Geändert(frmCurrentForm As Form)

frmCurrentForm!geändertAm = Now

frmCurrentForm!geändertVon = MyUser()

End Sub



auf frmcurrentForm.name steht dann zwar der Name des Hauptformulars aber ich kann ihn nicht benutzen.



Weiß jemand Abhilfe?



Gruß

Renate



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: