Preferences Command Button

[trsisko]

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?

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

 

[MrKowz]

I'm still a novice with the CASE procedure... but see if this works as a shortened version:

Sub BLAH()
Select Case m_PCSOutput
    Case "4v1.0", "5v1.0", "5av1.0", "40v1.0.", "60v1.0", "40v1.0", "41v1.0", "9v1.0"
        UserCalendar.Show
        txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
        Unload UserCalendar
End Select

 

[trsisko]

Hi,

The amendments to shorted the code did not appear to work.

 

[trsisko]

I have produced the following which seems to work as expected. Not sure if i need to declare the public function as a boolean?

Also would it not be possible to base this code on the system DLL version that is in use. i.e

If version 8 of the Calendar.ocx is used I could automatically disable the code?

i.e how would i call the system DLLs andf read the version numbers?

Private Sub cmdCalendarOff_Click()
Calendar = False
cmdCalendarOn = True
cmdCalendarOff.Enabled = False
cmdCalendarOn.Enabled = True
With Sheets("Scheme")
    .Range("F2").Value = ""
End With
End Sub
Private Sub cmdCalendarOn_Click()
Calendar = True
cmdCalendarOn = False
cmdCalendarOff.Enabled = True
cmdCalendarOn.Enabled = False
With Sheets("Scheme")
    .Range("F2").Value = Calendar
End With
End Sub

  If Sheets("Scheme").Range("F2").Value = True Then
    Call Calendar
    End If
    
End Sub
Private Function Calendar() As Boolean()
If m_PCSOutput = "4v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
  Exit Function
End If
If m_PCSOutput = "5v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
  Exit Function
End If
If m_PCSOutput = "5av1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
  Exit Function
End If
If m_PCSOutput = "40v1.0." Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
  Exit Function
End If
If m_PCSOutput = "41v1.0." Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
  Exit Function
End If
If m_PCSOutput = "60v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
  Exit Function
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
  Exit Function
End If
If m_PCSOutput = "41v1.0" Then
UserCalendar.Show
txtInput.Value = Format(UserCalendar.Calendar1.Value, "dd mmm yyyy")
Unload UserCalendar
  Exit Function
End If
End Function