Estoy trabajando en un proyecto en el q necesito saber como podria indiquarme el programa desde donde a sido llamado(m refiero a un boton o funcion o lo q sea),este es un ejemplo resumido d lo q seria,
Private Sub Command1_Click()
Call Command3_Click
End Sub
Private Sub Command2_Click()
Call Command4_Click
End Sub
Private Sub Command3_Click()
' si hubiera sido llamo de el boton 1 q el box sea 1, y si fuera por el 2 pues 2
MsgBox
End Sub
tmb podria es coger y poner en total 4 botones, pero m gustaria ahorrar codigo. con 4 seria asi
Private Sub Command1_Click()
Call Command3_Click
End Sub
Private Sub Command2_Click()
Call Command4_Click
End Sub
Private Sub Command3_Click()
MsgBox "1"
End Sub
Private Sub Command4_Click()
MsgBox "2"
End Sub
Una variable global en un módulo por ejemplo.
Módulo basMain.bas
Public iCaller As Integer
Formulario frmMain
Private Sub Command1_Click()
iCaller = 1
Call Command3_Click
End Sub
Private Sub Command2_Click()
iCaller = 2
Call Command4_Click
End Sub
Private Sub Command3_Click()
Call MsgBox("Procedimiento llamado desde botón " & iCaller)
End Sub
Private Sub Command4_Click()
Call MsgBox("Procedimiento llamado desde botón " & iCaller)
End Sub