Veld moet groter als 1.

Status
Niet open voor verdere reacties.
K

kevinr1

Gebruiker
Lid geworden
7 okt 2010
Berichten
110
Hey allemaal,

Heb een formulier waar gegevens ingevuld moeten worden.
Alleen ik wil graag dat als er 1 regel niet ingevuld is er een melding moet komen: Vul de regel "XYZ" in.

Pas als alle regels zijn ingevuld mogen de regels toegevoegd worden aan de tabel.
Formulier in bijlage
 

Bijlagen

  • asdf.zip
    28,9 KB · Weergaven: 12
Dat heb je toch al? Je hebt het formulier gebaseerd op een tabel waarin alle velden vereist zijn. Access geeft exact aan welk veld niet is ingevuld. Overigens is de knop <Toevoegen volkomen zinloos; als je alles invult, en doortabt of op de knop <nieuw record> klikt, ga je echt wel door...
 
Laatst bewerkt:
Access gaf dat idd aan. Alleen als gaf ie allemaal foutmeldingen wat onduidelijk is voor gebruikers.
Nu heb ik deze code:

Code: 
Private Sub Command82_Click()

If IsNull(Me.txtOpgg) Or Me.txtOpgg = "" Then
      MsgBox "Vul Opgetreden Klacht nog in", vbOKOnly, "Opgetreden Klacht"
        Me.txtOpgg.SetFocus
        Exit Sub

End If

If IsNull(Me.txtHar) Or Me.txtHar = "" Then
      MsgBox "Vul Hardware of Software nog in", vbOKOnly, "Hardware of Software"
        Me.txtHar.SetFocus
        Exit Sub

End If

If IsNull(Me.txtSoo) Or Me.txtSoo = "" Then
      MsgBox "Vul Soort nog in", vbOKOnly, "Soort"
        Me.txtSoo.SetFocus
        Exit Sub

End If

If IsNull(Me.txtMer) Or Me.txtMer = "" Then
      MsgBox "Vul Merk nog in", vbOKOnly, "Merk"
        Me.txtMer.SetFocus
        Exit Sub

End If

If IsNull(Me.txtTyp) Or Me.txtTyp = "" Then
      MsgBox "Vul Type nog in", vbOKOnly, "Type"
        Me.txtTyp.SetFocus
        Exit Sub

End If

If IsNull(Me.txtAan) Or Me.txtAan = "" Then
      MsgBox "Vul Aangemeld door nog in", vbOKOnly, "Aangemeld door"
        Me.txtAan.SetFocus
        Exit Sub

End If

If IsNull(Me.txtTec) Or Me.txtTec = "" Then
      MsgBox "Vul Technicus / Behandelaar nog in", vbOKOnly, "Technicus/Behandelaar"
        Me.txtTec.SetFocus
        Exit Sub

End If

If IsNull(Me.txtOpt) Or Me.txtOpt = "" Then
      MsgBox "Vul Op te lossen voor nog in", vbOKOnly, "Op te lossen voor"
        Me.txtOpt.SetFocus
        Exit Sub

End If

If IsNull(Me.txtWijz) Or Me.txtWijz = "" Then
      MsgBox "Vul Wijzigingsvoorstel nog in", vbOKOnly, "Wijzigingsvoorstel"
        Me.txtWijz.SetFocus
        Exit Sub

End If

If IsNull(Me.txtKla) Or Me.txtKla = "" Then
      MsgBox "Vul Klacht gesloten nog in", vbOKOnly, "Klacht gesloten"
        Me.txtKla.SetFocus
        Exit Sub

End If




End Sub

Nu moet ik alleen nog zorgen dat als alle velden zijn ingevuld hij het formulier sluit met een 'opslaan' opdracht erin. ( dus gewoon het formulier sluiten, waardoor die automatisch een nieuwe record aanmaakt met daarbij de gegevens? )
 
Gewoon een Sluiten knop; Hij heeft namelijk alles al opgeslagen, omdat je al een record aanmaakt zodra je iets invult.
 
Ja maar al zet ik die onderaan neer, (acfrom close do save yes enzo) sluit dan niet elke keer het formulier. Ook al mist er een veld?
Moet ik niet iets van: als alle "if's" zijn voldaan doe (close form save yes)
 
nou hij doet het, cancel button ook:
Code: 
Private Sub Command82_Click()

If IsNull(Me.txtOpgg) Or Me.txtOpgg = "" Then
      MsgBox "Vul Opgetreden Klacht nog in", vbOKOnly, "Opgetreden Klacht"
        Me.txtOpgg.SetFocus
        Exit Sub

End If

If IsNull(Me.txtHar) Or Me.txtHar = "" Then
      MsgBox "Vul Hardware of Software nog in", vbOKOnly, "Hardware of Software"
        Me.txtHar.SetFocus
        Exit Sub

End If

If IsNull(Me.txtSoo) Or Me.txtSoo = "" Then
      MsgBox "Vul Soort nog in", vbOKOnly, "Soort"
        Me.txtSoo.SetFocus
        Exit Sub

End If

If IsNull(Me.txtMer) Or Me.txtMer = "" Then
      MsgBox "Vul Merk nog in", vbOKOnly, "Merk"
        Me.txtMer.SetFocus
        Exit Sub

End If

If IsNull(Me.txtTyp) Or Me.txtTyp = "" Then
      MsgBox "Vul Type nog in", vbOKOnly, "Type"
        Me.txtTyp.SetFocus
        Exit Sub

End If

If IsNull(Me.txtAan) Or Me.txtAan = "" Then
      MsgBox "Vul Aangemeld door nog in", vbOKOnly, "Aangemeld door"
        Me.txtAan.SetFocus
        Exit Sub

End If

If IsNull(Me.txtTec) Or Me.txtTec = "" Then
      MsgBox "Vul Technicus / Behandelaar nog in", vbOKOnly, "Technicus/Behandelaar"
        Me.txtTec.SetFocus
        Exit Sub

End If

If IsNull(Me.txtOpt) Or Me.txtOpt = "" Then
      MsgBox "Vul Op te lossen voor nog in", vbOKOnly, "Op te lossen voor"
        Me.txtOpt.SetFocus
        Exit Sub

End If

If IsNull(Me.txtWijz) Or Me.txtWijz = "" Then
      MsgBox "Vul Wijzigingsvoorstel nog in", vbOKOnly, "Wijzigingsvoorstel"
        Me.txtWijz.SetFocus
        Exit Sub

End If

If IsNull(Me.txtKla) Or Me.txtKla = "" Then
      MsgBox "Vul Klacht gesloten nog in", vbOKOnly, "Klacht gesloten"
        Me.txtKla.SetFocus
        Exit Sub

End If
MsgBox "U klacht is toegevoegd, u wordt doorverwezen naar het menu", vbOKOnly, "Klacht toegevoegd"
DoCmd.OpenForm "Menu_Medewerker", , , , , , ""
DoCmd.Close acForm, "Klacht Toevoegen", acSaveYes

Exit Sub



End Sub

Private Sub CancelButton_Click()

 
Dim intProcced As Integer
 

If Me.Dirty = True Then
DoCmd.Close acForm, "Klacht Toevoegen", acSaveNo
DoCmd.OpenForm "Menu_Medewerker", , , , , , ""
Else

DoCmd.OpenForm "Menu_Medewerker", , , , , , ""
DoCmd.Close acForm, "Klacht Toevoegen", acSaveNo
Exit Sub
End If
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan