How to validate a field in form

[Tragac011]

I need to validate field in form so user cant not skip that data

How to do that?

 

[vbaInet]

You can do that in the Before Update event of the Form:

If Len(Me.[COLOR="blue"]FieldName[/COLOR]) & vbNullString) = 0 Then
    Cancel = True
    Msgbox Me.[COLOR="blue"]FieldName [/COLOR]& " is required"
    Me.[COLOR="Blue"]FieldName[/COLOR].SetFocus
End If

 

[Tragac011]

You can do that in the Before Update event of the Form:

If Len(Me.[COLOR=blue]FieldName[/COLOR]) & vbNullString) = 0 Then
    Cancel = True
    Msgbox Me.[COLOR=blue]FieldName [/COLOR]& " is required"
    Me.[COLOR=Blue]FieldName[/COLOR].SetFocus
End If

My code is like this
[FONT=&quot]With DoCmd[/FONT]
[FONT=&quot] .RunCommand acCmdSelectRecord[/FONT]
[FONT=&quot] .RunCommand acCmdCopy[/FONT]
[FONT=&quot] .GoToRecord , , acNewRec[/FONT]
[FONT=&quot] Me.AllowEdits = True[/FONT]
[FONT=&quot] .SetWarnings False[/FONT]
[FONT=&quot] .RunCommand acCmdPaste[/FONT]
[FONT=&quot] .SetWarnings True[/FONT]
[FONT=&quot] Me.AllowEdits = False[/FONT]
Me.NameOfTextbox1.Value = Null Me.NameOfTextbox2.Value = Null [FONT=&quot] [/FONT]
[FONT=&quot] End With[/FONT]


Where exactly do put that?

 

[vbaInet]

I know what the code looks like, I wrote it for you in your previous thread.

And I also mentioned that next time you put code here please put them in code tags:
http://www.access-programmers.co.uk/forums/showthread.php?t=200247

To answer your question, please read my post again.

 

[Tragac011]

Compile error:

Expected: Then or Go to

 

[vbaInet]

What does that mean?

 

[Tragac011]

What does that mean?

That is the message that appear when I put that code in Before Update

I found the problem Dont need ) in first row

It solved. Thank You

 

[vbaInet]

Good to know!

I'm sure you'll come back on this thread

 

[Tragac011]

Good to know!

I'm sure you'll come back on this thread

I dont want to push my luck any more, for tonight

 

[Tragac011]

Good to know!

I'm sure you'll come back on this thread

Unfortunately, You was right. I have problem with that code I can open next record never mind that I didn;t fill neccesery data

 

[vbaInet]

Remember that it needs to be written for every required field.

Let me see the full code that you wrote. And I hope you put it in code tags this time!

 

[Tragac011]

Remember that it needs to be written for every required field.

Let me see the full code that you wrote. And I hope you put it in code tags this time!

Code

If Len(Me.Datum_ugovora) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Datum_ugovora & " is required"
        Me.Datum_ugovora.SetFocus
    End If
    If Len(Me.Od_kada_je_kod_nas) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Od_kada_je_kod_nas & " is required"
        Me.Od_kada_je_kod_nas.SetFocus
    End If
    If Len(Me.Do_kada_je_kod_nas) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Do_kada_je_kod_nas & " is required"
        Me.Do_kada_je_kod_nas.SetFocus
    End If
    If Len(Me.Ime_vlasnika_psa) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Ime_vlasnika_psa & " is required"
        Me.Ime_vlasnika_psa.SetFocus
    End If
    If Len(Me.Prezime_vlasnika_psa) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Prezime_vlasnika_psa & " is required"
        Me.Prezime_vlasnika_psa.SetFocus
    End If
    If Len(Me.Cena_po_danu) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Cena_po_danu & " is required"
        Me.Cena_po_danu.SetFocus
    End If
  End Sub
[code\]

[code]
With DoCmd
        .RunCommand acCmdSelectRecord
        .RunCommand acCmdCopy
        .GoToRecord , , acNewRec
        Me.AllowEdits = True
        .SetWarnings False
        .RunCommand acCmdPaste
        .SetWarnings True
        Me.AllowEdits = False
        Me.Datum_ugovora.Value = Null
        Me.Od_kada_je_kod_nas.Value = Null
        Me.Do_kada_je_kod_nas.Value = Null
        Me.Cena_po_danu.Value = Null
        Me.[Placeno prilikom prijema].Value = Null
        Me.Placeno_prilikom_rezervacije.Value = Null
        Me.Osiguranje.Value = Null
        Me.Prijem_posle_18h.Value = Null
    End With
End Sub
[code\]

 

[vbaInet]

The end code tag is wrong, it's [/code]. Copy the code again (unless it won't work) and paste it here the correct way.

 

[Tragac011]

The end code tag is wrong, it's [/code]. Copy the code again (unless it won't work) and paste it here the correct way.

Code

If Len(Me.Datum_ugovora) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Datum_ugovora & " is required"
        Me.Datum_ugovora.SetFocus
    End If
    If Len(Me.Od_kada_je_kod_nas) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Od_kada_je_kod_nas & " is required"
        Me.Od_kada_je_kod_nas.SetFocus
    End If
    If Len(Me.Do_kada_je_kod_nas) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Do_kada_je_kod_nas & " is required"
        Me.Do_kada_je_kod_nas.SetFocus
    End If
    If Len(Me.Ime_vlasnika_psa) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Ime_vlasnika_psa & " is required"
        Me.Ime_vlasnika_psa.SetFocus
    End If
    If Len(Me.Prezime_vlasnika_psa) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Prezime_vlasnika_psa & " is required"
        Me.Prezime_vlasnika_psa.SetFocus
    End If
    If Len(Me.Cena_po_danu) & vbNullString = 0 Then
        Cancel = True
        MsgBox Me.Cena_po_danu & " is required"
        Me.Cena_po_danu.SetFocus
    End If
  End Sub

With DoCmd
        .RunCommand acCmdSelectRecord
        .RunCommand acCmdCopy
        .GoToRecord , , acNewRec
        Me.AllowEdits = True
        .SetWarnings False
        .RunCommand acCmdPaste
        .SetWarnings True
        Me.AllowEdits = False
        Me.Datum_ugovora.Value = Null
        Me.Od_kada_je_kod_nas.Value = Null
        Me.Do_kada_je_kod_nas.Value = Null
        Me.Cena_po_danu.Value = Null
        Me.[Placeno prilikom prijema].Value = Null
        Me.Placeno_prilikom_rezervacije.Value = Null
        Me.Osiguranje.Value = Null
        Me.Prijem_posle_18h.Value = Null
    End With
End Sub

 

[vbaInet]

I just noticed there's a parentheses that shouldn't be there in my code. The Len part should be written like this:

Len(Me.Datum_ugovora & vbNullString)

I hope you noticed the change?

 

[Tragac011]

Yes I see the differenc I was remove wrong )

 

[Tragac011]

Now its work everything

Thanks

 

[vbaInet]

Good to know.