If the field on the form is visible, a value is required, else if it is not visible........

[BLFOSTER]

Hello!



Can I make a field required only when the field is visible (using VBA)? I don't see a .required property.......

[ranman256]

In the form text box, you can set
VALIDATION RULE (and VALIDATION TEXT if they dont follow it)

or yes, since you want it 'sometimes' you can put in a check when they hit save...

btnSave_click()
if IsValidForm() then
   SAVErec()
end if
end sub


public Function IsValidForm() as boolean
dim vMsg
  select case true
       case txtName = "" and txtName.visible
           vMsg = "Client Name is missing"
       case isnull(cboState )
          vMsg = "State is missing"
   cboState.setfocus
  end select
  if vMsg <>"" then msgbox vmsg,vbCritical,"Required"
  IsValidForm =vMsg =""
end sub

[Missinglinq]

You can use code in the Form_BeforeUpdate event to

1. See if the TextBox is Visible
2. See if it has been populated, if Visible
3. Cancel the Update if #1 is True and #2 is False
4. Warn the user
5. Return Focus to the Control

Where SometimesRequired is the name of the Textbox in question:

Private Sub Form_BeforeUpdate(Cancel As Integer)
 If (Me.SometimesRequired.Visible = True) And (Nz(Me.SometimesRequired, "") = "") Then
   Cancel = True
   MsgBox "The SometimesRequired Field Must be Populated When Visible!"
   SometimesRequired.SetFocus
 End If
End Sub

Linq ;0)>

[BLFOSTER]

Thanks! This worked....how do I mark as solved?

[Missinglinq]

Glad we could help!

Have no idea how to mark a thread as 'solved!' I've never actually posted a question, here, but expect that there is a tool, maybe only visible to the original poster, for doing so...maybe under the "Preview Post" button?

Linq ;0)>