GLese
Registered User.
- Local time
- Yesterday, 23:46
- Joined
- Feb 13, 2018
- Messages
- 52
Code:
Option Compare Database
Option Explicit
Private Sub btnClosefrmRPRLLogin_Click()
DoCmd.Close
'Closes Form on Click
End Sub
Private Sub btnLoginPaperwork_Click()
DateTimeIn
'Timestamps DateTimeIn Field
MsgBox "Repack/Relabel Paperwork Sucessfully Logged In", vbOKOnly, "Thank You!"
DoCmd.Close
End Sub
Being so new to VB and Access, I'm not sure why I'm getting this error. I just separated out the DateTimeIn code into a separate module (Public Sub) so I can use it in multiple places.
Here is that Module:
Code:
Public Sub DateTimeIn()
With CodeContextObject
.DateTimeIn = Now()
Beep
End With
End Sub
Help???
Last edited: