Checking fields null

tambadal

New Member
Joined
Oct 31, 2019
Messages
10
Code:
Private Sub Command228_Click()
'Save
On Error GoTo Command228_Click_Err

    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If

Command228_Click_Exit:
    Exit Sub
Command228_Click_Err:
    MsgBox Error$
    Resume Command228_Click_Exit
End Sub
How do you modify the code to where it will check these 4 fields "Debarred, Restricted, CommType, and Approval_Status" are null before saving.
 

Some videos you may like

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.

welshgasman

Well-known Member
Joined
May 25, 2013
Messages
711
I would use the BeforeUpdate of the form and use either ISNULL() or NZ() functions.
 

Forum statistics

Threads
1,089,622
Messages
5,409,381
Members
403,260
Latest member
ssauk

This Week's Hot Topics

  • help please
    SORRY NOT ANY GOOD AT EXCEL SO HELP WOULD BE MUCH APPRECIATED this formula is in a sheet called ignore...
  • two formulas needed
    Hello, I'll try my best to explain this: First formula needed in Sheet1 cell A2: If Sheet1 cell B2 = Sheet2 cell B2 then return a 1. If not then...
  • Dynamic Counts
    Good afternoon, we are tidying up some data & the data seems to be growing quicker than we are tidying it up! What we confirm (by reviewing it...
  • Help Excel formula eliminate duplicate values and keep only 2 identical rows.
    as picture below column A has a duplicate value. but the values are not the same as the rule. sometimes 4 rows, sometimes 10 rows or 7 or 9...
  • Macro Compile Error Sub or Function not defined
    Hello, I am trying to run macros from a validation list, all macros have been created and run perfectly on there own but I'm getting a compile...
  • Last row combined with Current Region VBA
    I'm generally happy finding the last row of data through something like Lastrow = Cells(Rows.Count, "D").End(xlUp) but I don't always receive data...
Top