Hi Folks,
I have recently just installed SP3 to Access 2000, since then I get errors when opening forms with auto-filled date fields.
I get 'Can't find project or library' then when I open Vb to debug it stops at :
Function AHSys2TxtDate()
' for this to work the host PC must be running UK Regional settings and
' date format must be dd/mm/ccyy
Dim varNow As Variant
Dim varTxtDate As String * 6
Dim varTemp1 As String
Dim varTemp2 As Variant
Dim varGetYear As String * 2
Dim varGetMonth As String * 2
Dim varGetDay As String * 2
Dim varETA As Variant
varNow = now()
Debug.Print varNow
varETA = varNow + 4
Debug.Print varETA
varTemp1 = varNow
varGetYear = Mid$(varTemp1, 9, 2)
varGetMonth = Mid$(varTemp1, 4, 2)
varGetDay = Mid$(varTemp1, 1, 2)
varTxtDate = varGetYear & varGetMonth & varGetDay
Debug.Print varTxtDate
AHSys2TxtDate = varTxtDate
End Function
With the mid$ variable highlighted !
Any Ideas folks?
Any help will be appreciated
thanks
Matt
I have recently just installed SP3 to Access 2000, since then I get errors when opening forms with auto-filled date fields.
I get 'Can't find project or library' then when I open Vb to debug it stops at :
Function AHSys2TxtDate()
' for this to work the host PC must be running UK Regional settings and
' date format must be dd/mm/ccyy
Dim varNow As Variant
Dim varTxtDate As String * 6
Dim varTemp1 As String
Dim varTemp2 As Variant
Dim varGetYear As String * 2
Dim varGetMonth As String * 2
Dim varGetDay As String * 2
Dim varETA As Variant
varNow = now()
Debug.Print varNow
varETA = varNow + 4
Debug.Print varETA
varTemp1 = varNow
varGetYear = Mid$(varTemp1, 9, 2)
varGetMonth = Mid$(varTemp1, 4, 2)
varGetDay = Mid$(varTemp1, 1, 2)
varTxtDate = varGetYear & varGetMonth & varGetDay
Debug.Print varTxtDate
AHSys2TxtDate = varTxtDate
End Function
With the mid$ variable highlighted !
Any Ideas folks?
Any help will be appreciated
thanks
Matt