I have the following code which i actually want to be able to switch off and on depending on two different command button clicks. What would be the best way to do this?
Code:
If m_PCSOutput = "4v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "5v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "5av1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "40v1.0." Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "41v1.0." Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "60v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
'If m_PCSOutput = "9v1.0" Then
'UserCalendar.Show
'txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd/mm/yyyy")
'Unload UserCalendar
'End If
If m_PCSOutput = "40v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "41v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
End If
End Sub