D
Doug
A function return information to the procedure that
called it. You are not returning any data back. If you
are not returning any data use a sub routime.
Private Sub OffLoad()
Dim Lid As Integer
Dim MaxID As Integer
Dim OTxt As String
Dim Off1 As String, Off2 As String, Off3 As String
Lid = Me.ID
MaxID = DMax("[LOGID]", "LOG")
.....
Me.MorOff.Visible = True
Me.OffTxt.Locked = True
End If
End Function
called it. You are not returning any data back. If you
are not returning any data use a sub routime.
Private Sub OffLoad()
Dim Lid As Integer
Dim MaxID As Integer
Dim OTxt As String
Dim Off1 As String, Off2 As String, Off3 As String
Lid = Me.ID
MaxID = DMax("[LOGID]", "LOG")
.....
Me.MorOff.Visible = True
Me.OffTxt.Locked = True
End If
End Function