Can I apply code to a Command Button that uses a variable based on the cmdName?

[adambc]

I have multiple Command Buttons that call another UserForm to pick a date - currently I have separate Private Subs for each button ...

Private Sub cmdIncidentDate_Click()

Dim dateVariable As Date
dateVariable = CalendarForm.GetDate

If dateVariable <> 0 Then
    Me.txtIncidentDate.Text = Format(CLng(dateVariable), "dd/mm/yyyy")
End If

End Sub

Private Sub cmdReportedDate_Click()

Dim dateVariable As Date
dateVariable = CalendarForm.GetDate

If dateVariable <> 0 Then
    Me.txtReportedDate.Text = Format(CLng(dateVariable), "dd/mm/yyyy")
End If

End Sub

But is there a way to do this using the cmdName (where cmdName is the actual name of the button) as a variable eg ...

Private Sub cmdName_Click()

Dim dateVariable As Date
dateVariable = CalendarForm.GetDate

If dateVariable <> 0 Then
    Me.txtName.Text = Format(CLng(dateVariable), "dd/mm/yyyy")
End If

End Sub

Thanks ...

 

[RoryA]

I'd just add a separate routine like this:

Function GetFormattedDate() As String
Dim dateVariable As Date
dateVariable = CalendarForm.GetDate

If dateVariable <> 0 Then
GetFormattedDate = Format$(dateVariable, "dd/mm/yyyy")
End If
End Function

Then call that from the buttons:

Private Sub cmdIncidentDate_Click()

Me.txtIncidentDate.Text = GetFormattedDate()

End Sub

Private Sub cmdReportedDate_Click()

Me.txtReportedDate.Text = GetFormattedDate()

End Sub

 

[adambc]

OK, but I still have to write a separate call for every button - I was hoping to be able to click cmdIncidentDate and populate txtIncidentDate (might have to be txtcmdIncidentDate) as a variable?

 

[RoryA]

You'd need a class module for that - there are numerous examples of that in the forum. Unless you have a lot of buttons, it's overkill, in my opinion.

 

[adambc]

@RoryA

Thanks - and agree it's an overkill for what I have ...

Thanks to all for your ideas ...