error in code (1 Viewer)

mohamedmatter · Nov 19, 2019

i want to correct vba code in form under save command
when open form and click save massage display request write first name and last name and when i go to new record and click save command not request any thing and show massage save successful but no any record save in table
thanks for you
i attach sample workers db

Gasman · Nov 19, 2019

For the benefit of others, this is the code

Code:

Private Sub Command103_Click()
    If IsNull(Me.txtFrist) Then
        MsgBox "Please Write FirstName", vbInformation, "Warning"
        FirstName = Me.txtFrist
        Exit Sub
    End If
    If IsNull(Me.txtLast) Then
        MsgBox "Please Write LastName", vbInformation, "Warning"


        Exit Sub
    End If
    LastName = Me.txtLast
    MsgBox "Saved successful", vbInformation, "Saved"
    DoCmd.GoToRecord , , acNewRec
    Me.txtFrist = ""
    Me.txtLast = ""

End Sub

Why are you setting FirstName if the control is NULL?
Why are you setting them, when the form is bound to the table and those controls to those fields?
Testing for most controls would be in the form's BeforeUpdate event.

vba_php · Nov 19, 2019

behind your save button, put:

Code:

Private Sub Command103_Click()
If IsNull(Me.FirstName) Then
        MsgBox "Please Write FirstName", vbInformation, "Warning"
        Exit Sub
End If
If IsNull(Me.LastName) Then
        MsgBox "Please Write LastName", vbInformation, "Warning"
        Exit Sub
         End If

            DoCmd.Save
           MsgBox "Saved successful", vbInformation, "Saved"
        DoCmd.GoToRecord , , acNewRec
        Me.FirstName = ""
        Me.LastName = ""

End Sub

on a side note, you've got 4 textboxes on your form. u only need 2. my code looks at the other textboxes that your code does not. they are closer to your "firstname" and "lastname" labels.

Gasman · Nov 19, 2019

Are you wanting to do this bound or unbound as you have both?

Might be better to give us what you are using, rather than the dummy form that appears to be a bound and unbound form for the same record source.

Not something I have come across before?

mohamedmatter · Nov 19, 2019

Why are you setting First Name if the control is NULL?
this is unbound first name field equal first name in table
Why are you setting last Name if the control is NULL?
this is unbound last name field equal last name in table
end
vba by vba_php not work
I want when go to new record and when i click save button request write first name and last name

Gasman · Nov 19, 2019

My understanding is that if you use unbound controls, you update/append with a query.?
If bound controls, then you save as a matter of course and can force a save.

I tend to use bound controls, just for ease of use, so I will bow out.

mohamedmatter · Nov 19, 2019

I want to work inside unbound objects to make sure there is no error inside the table and I will delete the bound fields from the form after completing the code

vba_php · Nov 19, 2019

try this..........

Lindaad · Nov 20, 2019

Thank you for your help!

error in code (1 Viewer)

mohamedmatter

Registered User.

Attachments

Gasman

Enthusiastic Amateur

vba_php

Forum Troll

Gasman

Enthusiastic Amateur

mohamedmatter

Registered User.

Gasman

Enthusiastic Amateur

mohamedmatter

Registered User.

vba_php

Forum Troll

Attachments

Lindaad

Registered User.

Similar threads

Users who are viewing this thread