Button reference 1

[matrixindicator]

sorry, I can't get out.

I have a number of buttons, they can be numbered like
btn1, btn2, btn3, btn15, ...

With the event OnClick on a button is a macro activated that run a procedure, this is a function.

testfunct(btn1.caption)
 
Function testfunct(ctl As String)
Forms![14]!txtIDART = ctl

End Functionc

Above is working, but the name of the function is here fixed. How can I say take the actual button. The name of the button is variable.

 

[Andrzejek]

Is that something you are going after?

Option Explicit

Private Sub btn1_Click()
Call testfunct(btn1)
End Sub

Private Sub btn2_Click()
Call testfunct(btn2)
End Sub

Private Sub btn3_Click()
Call testfunct(btn3)
End Sub

Function testfunct(ctl As Control)

MsgBox "You clicked on " & ctl.Name & " with the caption of " & ctl.Caption

End Function

Have fun.

---- Andy

 

[matrixindicator]

It was not completely the solution, but it set me on thinking ans testing and now it works. I set a function direct after the OnClick event and put as parameter the name of the button.

thanks

'create button with function
Dim knop As String
knop = "=testfunct([" & "btn" & rst!IDPL & "])"
EigenControl.OnClick = knop
'use the function
OnClick =testfunct([btn2])