falcondeer
Registered User.
- Local time
- Yesterday, 19:34
- Joined
- May 12, 2013
- Messages
- 101
Hi
I have a subform in a main form in my split DB. I added three more fields in Backend table (Provider, Date, Store). then I added controls for them in the Frontend subform.
Now, I disabled these three controls in the subform then I want the user to enable them with a PW when click on a command button.
The code for the command button I used is this:
Private Sub Command215_Click()
Dim strPassword As String
strPassword = InputBox("Please enter the password: ")
If strPassword = "123" Then
Me.tblPrescribedItems_Subform3!PR_Provider.Enabled = True - It stops here -
Me.tblPrescribedItems_Subform3!PR_ProvidingDate.Enabled = True
Me.tblPrescribedItems_Subform3!PR_ProvidingStore.Enabled = True
Else
Call MsgBox("The password you entered was incorrect")
End If
End Sub
Now I get the run-error 843 when the user enters the PW
I don't know why?
Appreciate your help.
I have a subform in a main form in my split DB. I added three more fields in Backend table (Provider, Date, Store). then I added controls for them in the Frontend subform.
Now, I disabled these three controls in the subform then I want the user to enable them with a PW when click on a command button.
The code for the command button I used is this:
Private Sub Command215_Click()
Dim strPassword As String
strPassword = InputBox("Please enter the password: ")
If strPassword = "123" Then
Me.tblPrescribedItems_Subform3!PR_Provider.Enabled = True - It stops here -
Me.tblPrescribedItems_Subform3!PR_ProvidingDate.Enabled = True
Me.tblPrescribedItems_Subform3!PR_ProvidingStore.Enabled = True
Else
Call MsgBox("The password you entered was incorrect")
End If
End Sub
Now I get the run-error 843 when the user enters the PW
I don't know why?
Appreciate your help.