L
LLively2
EAXMPLE 1
Option Compare Database
Option Explicit
Public RiderCode, Back, Destination, Initials, RMunicipality As String
Public Go As Date
Public Unit As Long
Private Sub ActiveXCtlCalendar_Click()
'Assigns the date clicked on the calendar
'to the appointment date
'then sets the focus to TimeGo control before hiding the calendar.
ActiveXCtlCalendar.Visible = False
Cannot jump to 'DateAppt' because it is in a library
'C:\....\....\....' which is not currently referenced.
EXAMPLE 2
Option Compare Database
Option Explicit
Private Sub axcCalendar_Click()
TxtBeginningDate.Value = axcCalendar.Value
End Sub
Private Sub Form_Current()TxtBeginningDate.Value = axcCalendar.Value
End Sub
Cannot jump to 'axcCalendar' because it is in a library
'C:\....\....\....' which is not currently referenced.
What should be done to convert this database properly?
Thanks in advance,
Lynn
Option Compare Database
Option Explicit
Public RiderCode, Back, Destination, Initials, RMunicipality As String
Public Go As Date
Public Unit As Long
Private Sub ActiveXCtlCalendar_Click()
'Assigns the date clicked on the calendar
'to the appointment date
'then sets the focus to TimeGo control before hiding the calendar.
TimeGo.SetFocus[DateAppt].Value = ActiveXCtlCalendar.Value<<<<<<<<<<<<<<
ActiveXCtlCalendar.Visible = False
Cannot jump to 'DateAppt' because it is in a library
'C:\....\....\....' which is not currently referenced.
EXAMPLE 2
Option Compare Database
Option Explicit
Private Sub axcCalendar_Click()
TxtBeginningDate.Value = axcCalendar.Value
End Sub
Private Sub Form_Current()TxtBeginningDate.Value = axcCalendar.Value
End Sub
Cannot jump to 'axcCalendar' because it is in a library
'C:\....\....\....' which is not currently referenced.
What should be done to convert this database properly?
Thanks in advance,
Lynn