In this video I talk about how to program vba object items like the ms access form.
Specifically we look at the Access Form Open Event, and add a password prompt in the open event of the form, cancelling the open event if it is incorrect.
Also we will look at controlling the Form_Load with a public variable and the Form_Current event.
The possibilities for the Form_Current event procedure.
-diplay a message box
-display data in the caption of the form.
-display the customer’s previous order
-display all the books by the publisher (based on publisher id)
-perform form level calculation on form data
The Current Event happens before the Load Event.
Option Compare Database Option Explicit Public strUser As String Private Sub Form_Current() 'possibilities for the current record. 'diplay a message box 'display data in the caption of the form. 'display the customer's previous order 'display all the books by the publisher (based on publisher id) 'perform form level calculation on form data 'Caption If Len(Me.txtTitle) Then Forms!frmFormEvents.Caption = txtTitle.Value End If End Sub Private Sub Form_Load() MsgBox "Welcome, " & strUser End Sub Private Sub Form_Open(Cancel As Integer) 'happens before the load event Dim strPassword As String strUser = InputBox("Enter The User") strPassword = InputBox("Enter The Password") If strPassword <> "Password" Then MsgBox "Incorrect Password" Cancel = True End If End Sub