Why did my code stop working?

Question

When I entered docmd. In my code it worked, until I closed it then it stopped working here is my code .

Private Sub Command1_Click()
    If (Txtusername = "123" And txtpassword = 123) Then
    DoCmd.OpenForm FormName:="Kappa", View:=acNormal, DataMode:=acFormPropertySettings, windowMode:=acWindowNormal
    DoCmd.Close
    Else
        MsgBox "Incorrect Login or Password"
    End If
End Sub

Code should be integrated as **text** in the question, not as a screenshot. — fvu, Oct 04 '17 at 17:13
What does 'stopped working' mean - error message, wrong results, nothing happens? Have you step debugged? — June7, Oct 04 '17 at 17:38
@June7 when i click on the button a specify it closes the form that is open not go to the form i specify – — cinemassacres, Oct 04 '17 at 18:03
You tried the code in my answer? Should have put comment under the answer. I tested your code and get the behavior I describe. My code works properly. I have never used that OpenForm syntax but don't see anything wrong with it. I would use simply `DoCmd.OpenForm "Kappa"` in this case because the other arguments are just using defaults. — June7, Oct 04 '17 at 18:46

score 0 · Accepted Answer · answered Oct 04 '17 at 18:11

I expect the form you call is opening then immediately closing (do you see it 'flash') because the opening form gets focus and the DoCmd.Close is acting on form that has focus. The calling form remains open. Specify the form to close.

DoCmd.Close acForm, "form name", acSaveNo

score 0 · Answer 2 · answered Dec 02 '17 at 18:44

0

DoCmd.Close closes the object currently having the focus. This is the Form opened in the previous line. I assume that you want to close the Form running this code. So, write:

DoCmd.Close acForm, Me.Name

answered Dec 02 '17 at 18:44

Olivier Jacot-Descombes

104,806
13
138
188

Why did my code stop working?

2 Answers2