What can I check to see if a button has been clicked?

[ncsthbell]

I have a scenario that I have several buttons on a form, let's say, button1 & button2. When button1 is clicked, it runs button1 code. When button2 is clicked, it runs button2 code and then calls button1_click and runs button1 code as well. My dilema is when the button1 code is run, I need to know if button1 was clicked causing the code to run as I need to add some code to only run if button1 was clicked and not if it is the case where button1 code is run because it was called by button2 when it was clicked. Hope this isn't too confusing!!

[FishVal]

I have a scenario that I have several buttons on a form, let's say, button1 & button2. When button1 is clicked, it runs button1 code. When button2 is clicked, it runs button2 code and then calls button1_click and runs button1 code as well. My dilema is when the button1 code is run, I need to know if button1 was clicked causing the code to run as I need to add some code to only run if button1 was clicked and not if it is the case where button1 code is run because it was called by button2 when it was clicked. Hope this isn't too confusing!!

I can only guess what you particulary want to run.
But in general I can recommend you the following solution.

 
Private Sub btn1_Click()
    'btn1 click specific code
    CommonCode
    'btn1 click specific code
End Sub
 
Private Sub btn2_Click()
    '....................
    CommonCode
End Sub
 
Private Sub CommonCode()
    '......................
End Sub
 
 

Good luck.

[NeoPa]

I would have said what Fish said. It's the way you should be thinking of doing this.

[ncsthbell]

I was hoping I could use something like 'IF button1_click true'. I inherited this application which is not exactly structured and I am basically having to make things work. To pull the code out and create separate peices to run is not so easy the way it was written.

[NeoPa]

It's more OO (Object Oriented) than structured.
An event is fired that causes code to run (the event procedure). This is actually quite straightforward to code if you think it the right way.

Private Sub Command1_Click()
  'Do any Command1 only code here ...
  Call Common()
  '... or here
End Sub
 
Private Sub Command2_Click()
  'Do any Command2 only code here ...
  Call Common()
  '... or here
End Sub
 
Private Sub Common()
  'Code to do the common stuff
End Sub