Saving the record

[Toral Shah]

i have been using this code to save my unbound form data into the table.
if no data has been entered and the save button is pressed a MSG box should be shown but i am getting an error 13
plz help me out

Private Sub Save_Enter()
 
    If (Me!Text0.Name And Me!Text2.Name = Null) Then
        MsgBox "This record is blank. Please Enter something to save" _
             , vbInformation, "Invalid Action"
        Exit Sub
    Else
        Dim strQry As String
 
        strQry = "INSERT INTO [Table1] ([voc_no],[name]) Values ('" & Me!Text0 & "','" & Me!Text2 & "')"
        DoCmd.RunSQL strQry
    End If
End Sub
 

[pks00]

U dont check for null like u have, is IsNull instead
i.e.
If IsNull(Me.Text2) = True then
msgbox "Null field entered"

[Toral Shah]

thanx a lot. i made a mistake.

[Toral Shah]

when i press the save button the msg box saying that you are appending a record comes which is a default Msg in Access.
i dont want that to come instead i want that the msg defined by me should come.
this the code i am using.
plz help me out with it

Private Sub Save_Enter()
 
    If IsNull(Me.Text0) = True Then
        MsgBox "This record is blank. Please Enter something to save" _
             , vbInformation, "Invalid Action"
        Exit Sub
    Else
        Dim strQry As String
 
        strQry = "INSERT INTO [Table1] ([voc_no],[name]) Values ('" & Me!Text0 & "','" & Me!Text2 & "')"
        DoCmd.RunSQL strQry
        MsgBox "Do you want to save the record", vbOKOnly, "Alert"
    End If
End Sub
 

[MMcCarthy]

This will turn off the warnings

Private Sub Save_Enter()
    DoCmd.SetWarnings False
    If IsNull(Me.Text0) = True Then
        MsgBox "This record is blank. Please Enter something to save" _
             , vbInformation, "Invalid Action"
        Exit Sub
    Else
        Dim strQry As String
 
        strQry = "INSERT INTO [Table1] ([voc_no],[name]) Values ('" & Me!Text0 & "','" & Me!Text2 & "')"
        DoCmd.RunSQL strQry
        MsgBox "Do you want to save the record", vbOKOnly, "Alert"
    End If
    DoCmd.SetWarnings True
End Sub
 

[Toral Shah]

This will turn off the warnings

Private Sub Save_Enter()
    DoCmd.SetWarnings False
    If IsNull(Me.Text0) = True Then
        MsgBox "This record is blank. Please Enter something to save" _
             , vbInformation, "Invalid Action"
        Exit Sub
    Else
        Dim strQry As String
 
        strQry = "INSERT INTO [Table1] ([voc_no],[name]) Values ('" & Me!Text0 & "','" & Me!Text2 & "')"
        DoCmd.RunSQL strQry
        MsgBox "Do you want to save the record", vbOKOnly, "Alert"
    End If
    DoCmd.SetWarnings True
End Sub
 

hey thanx a lot that really worked.but instead of true i should be false.

thanx

[MMcCarthy]

hey thanx a lot that really worked.but instead of true i should be false.

thanx

You're welcome.

[pks00]

Hi Toral Shah, Im late in responding as usual!

Ok, Mary has given you one way, the other way to avoid those pesky message boxes is to use currentdb

Private Sub Save_Enter()
 
    Dim strQry As String
 
    If IsNull(Me.Text0) = True Then
        MsgBox "This record is blank. Please Enter something to save" _
, vbInformation, "Invalid Action"
    Else
        strQry = "INSERT INTO [Table1] ([voc_no],[name]) Values ('" & Me!Text0 & "','" & Me!Text2 & "')"
        currentdb.execute strQry, dbFailOnError
    End If
End Sub
 

Can I make a recommendation and u rename your textbox fields to something more meaningful
Text0 and Text2 and default names supplied by Access. Its more better to use your own names eg txtVocNo and txtName