If loop problem

[mikewood1980]

Hi

I am trying to get my form to have a pop up box if there is nothing entered into one of the text boxes. I have tried the following code, but it doesnt seem to be working!? anyone any ideas?

If Me.txtReportID = "" Then
MsgBox ("Report ID field is empty. Please enter a new ID or click 'close'")
End If

Thanks for your help!
Mike W

 

[KenHigg]

Where are you putting the code? (What event?)

 

[mikewood1980]

Thanks - code is:

Private Sub save_Click()

    Dim dbCurr As Database
    Set dbCurr = DBEngine.Workspaces(0).Databases(0)
    Dim rsReportInfo As Recordset
    Set rsReportInfo = dbCurr.OpenRecordset("tblReportInfo")
    
    'if report ID doent already exist then add the report ID
    If CheckReportDuplicates = 0 Then
            
            
            If Me.txtReportID.Value = "" Then
                MsgBox ("Report ID field is empty. Please enter a new ID or click 'close'")
            Else
            
                    rsReportInfo.AddNew
                    rsReportInfo("chrReportID").Value = Me.txtReportID
                    'MsgBox (Me.txtReportID.Value)
                    
                    rsReportInfo.Update                                     'update table
                    rsReportInfo.close                                      'close tbl
                    Set rsReportInfo = Nothing
                    Me.Refresh
                    DoCmd.close acForm, Me.Name, acSaveNo
            End If
    End If
    
    
    
    

End Sub

MW

 

[KenHigg]

Here's a quick stab at it:

If Me.txtReportID.Value * "" = "" Then

 

[KenHigg]

My bad. Here's what I meant to post:

If Me.txtReportID.Value & "" = "" Then

 

[mikewood1980]

That worked! Thanks Kenn!

 

[KenHigg]

Glad to help.