Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Private Sub Form_BeforeUpdate(Cancel As Integer) Dim msg As String, Style As Integer, Title As String Dim nl As String, ctl As Control nl = vbNewLine & vbNewLine For Each ctl In Me.Controls If ctl.ControlType = acTextBox or acComboBox Then If ctl.backcolor="#F9EDED" And Trim(ctl & "") = "" Then msg = "Data Required for '" & ctl.Name & "' field!" & nl & _ "You can't save this record until this data is provided!" & nl & _ "Enter the data and try again . . . " Style = vbCritical + vbOKOnly Title = "Required Data..." MsgBox msg, Style, Title ctl.SetFocus Cancel = True Exit For End If End If Next End Sub
Join the community of 500,000 technology professionals and ask your questions.