comfygringo
New member
- Local time
- Today, 15:07
- Joined
- Jul 28, 2013
- Messages
- 9
This code stopped working without explanation after the longest time. I can't seem to fix it.
Code:
Private Sub Send_Letter_AfterUpdate()
Call Set_CallDateUserId
End Sub
Private Sub Set_CallDateUserId()
Me.txtCallDate.SetFocus
Me.txtCallDate.enabled = True
Me.txtCallDate.Locked = False
If Me.txtCallDate.Text = "" Or Me.txtCallDate.Text Is Null Then
Me.txtCallDate.Text = Date
End If
Me.txtCallDate.enabled = False
Me.txtCallDate.Locked = True
Me.txtUserID.SetFocus
Me.txtUserID.enabled = True
Me.txtUserID.Locked = False
If Me.txtUserID.Text = "" Or Me.txtUserID.Text Then
Me.txtUserID.Text = myUserID
End If
Me.txtUserID.enabled = False
Me.txtUserID.Locked = True
Me.Refresh
End Sub