Blaubmania
Erfahrenes Mitglied
Also wie er seht blende unten blende ich die Felder und Buttons über eine Schleife ein und nun möchte ich damit ich nicht allen Buttons im vorfeld ein Klick Ereignis zuweisen muss und mir den Schreibkram erspare, auch gerne in der Schleife unterbringen das sie dem jeweiligen Button ein Klick Ereignis zuweist ow die werte dann übenommen werden und in ein anderes Formular eingetragen werden hab in der Access Hilfe auch was gefunden das so ungefähr so ausschaut:
So soweit ja ganz einleuchtend blos wo schreib ich denn nu hin das der die werte übernehmen soll etc. kommt bei anstelle [Event Procedure] nur der Funktionsname?!
Wäre sehr dankbar wenn mir wer dort weiter helfen kann.
Code:
If Form_Namensliste.Controls("btncheck" & i).OnClick = "" ThenForm_Namensliste.Controls("btncheck" & i).Onklick = "[Event Procedure]"
End If
So soweit ja ganz einleuchtend blos wo schreib ich denn nu hin das der die werte übernehmen soll etc. kommt bei anstelle [Event Procedure] nur der Funktionsname?!
Wäre sehr dankbar wenn mir wer dort weiter helfen kann.
Code:
Function tlsearch(schalter)
Dim db As Database
Dim r As Recordset
Dim r2 As Recordset
Dim i As Integer
i = 1
Set db = CurrentDb
Set r = db.OpenRecordset("KartenNummer", dbOpenDynaset)
If schalter = "tl" Then
r.FindFirst "TL = True"
Else
r.FindFirst "Bearbeiter = True"
End If
If r.NoMatch = False Then
Set r2 = db.OpenRecordset("Personal", dbOpenDynaset)
Do Until r.NoMatch = True
r2.FindFirst "PerNr =" & r![PerNr]
Form_Namensliste.Controls("txtname" & i).Visible = True
Form_Namensliste.Controls("txtgebaeude" & i).Visible = True
Form_Namensliste.Controls("txtarbplatz" & i).Visible = True
Form_Namensliste.Controls("btncheck" & i).Visible = True
Form_Namensliste.Controls("txtname" & i) = r2![PerVorname] & " " & r2![PerName]
Form_Namensliste.Controls("txtarbplatz" & i) = r2![PerArbPlatz]
i = i + 1
If schalter = "tl" Then
r.FindNext "TL = True"
Else
r.FindNext "Bearbeiter = True"
End If
Loop
End If
End Function