Results 1 to 2 of 2
  1. #1
    Join Date
    Mar 2015
    Posts
    15

    Answered: If all fields are filled, then close...? =)

    So, I have this code for my save button, but I now want it close the form, if all fields are filled out, any suggestions? =)


    Private Sub cmdLagre_Click()

    If IsNull(Me.Fornavn) Then
    MsgBox "du har glemt fornavn", vbCritical, "Dustefeil"
    Me.Fornavn.SetFocus
    End If

    If IsNull(Me.Etternavn) Then
    MsgBox "du har glemt etternavn", vbCritical, "Dustefeil"
    Me.Etternavn.SetFocus
    End If


    If IsNull(Me.BID) Then
    MsgBox "du har glemt BID", vbCritical, "Dustefeil"
    Me.BID.SetFocus
    End If


    DoCmd.Close acForm, Me.Name

    ...

  2. Best Answer
    Posted by pbaldy

    "One way:

    Code:
    If IsNull(Me.Fornavn) Then
      MsgBox "du har glemt fornavn", vbCritical, "Dustefeil"
      Me.Fornavn.SetFocus
    ElseIf IsNull(Me.Etternavn) Then
      MsgBox "du har glemt etternavn", vbCritical, "Dustefeil"
      Me.Etternavn.SetFocus
    ElseIf IsNull(Me.BID) Then
      MsgBox "du har glemt BID", vbCritical, "Dustefeil"
      Me.BID.SetFocus
    Else
      DoCmd.Close acForm, Me.Name
    End If
    "


  3. #2
    Join Date
    May 2005
    Location
    Nevada, USA
    Posts
    2,888
    Provided Answers: 6
    One way:

    Code:
    If IsNull(Me.Fornavn) Then
      MsgBox "du har glemt fornavn", vbCritical, "Dustefeil"
      Me.Fornavn.SetFocus
    ElseIf IsNull(Me.Etternavn) Then
      MsgBox "du har glemt etternavn", vbCritical, "Dustefeil"
      Me.Etternavn.SetFocus
    ElseIf IsNull(Me.BID) Then
      MsgBox "du har glemt BID", vbCritical, "Dustefeil"
      Me.BID.SetFocus
    Else
      DoCmd.Close acForm, Me.Name
    End If
    Paul

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •