login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Error controle

Offline rredspike1 - 14/01/2009 11:09
Avatar van rredspike1Lid Heb de volgende code:
Het is de bedoeling, dat als ik op die knop druk, dat die dan het opslaat, maar PAS als er een error-controle is gedaan.

Heb Exit Sub geplaatst....alleen werkt niet, wat moet ik doen?

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub btnBekrachtig2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpdrachtBewaren_Opdrachten.Click
  2.  
  3. 'Fouten bij elkaar optellen
  4.         Dim xErrors As Integer = 0
  5.         Dim strErrors As String = "Volgende fouten zijn opgetreden:" & Environment.NewLine
  6.  
  7.         'Controleren of alle verplichte velden zijn ingevuld
  8.         If String.IsNullOrEmpty(txtBedrijfsnaam_Opdrachten.Text) Then
  9.             strErrors &= "- Er moet een bedrijfsnaam worden ingevuld!" & Environment.NewLine
  10.             xErrors = xErrors + 1
  11.         End If
  12.  
  13.         If String.IsNullOrEmpty(txtContactpersoon_Opdrachten.Text) Then
  14.             strErrors &= "- Er moet een contactpersoon worden ingevuld!" & Environment.NewLine
  15.             xErrors = xErrors + 1
  16.         End If
  17.  
  18.         If String.IsNullOrEmpty(txtAdres_Opdrachten.Text) Then
  19.             strErrors = "- Er moet een adres worden ingevuld!" & Environment.NewLine
  20.             xErrors = xErrors + 1
  21.         End If
  22.  
  23.         If String.IsNullOrEmpty(txtTelefoonnummer_Opdrachten.Text) Then
  24.             strErrors = "- Er moet een telefoonnummer worden ingevuld!" & Environment.NewLine
  25.             xErrors = xErrors + 1
  26.         End If
  27.  
  28.         If String.IsNullOrEmpty(txtPostcode_Opdrachten.Text) Then
  29.             strErrors = "- Er moet een postcode worden ingevuld!" & Environment.NewLine
  30.             xErrors = xErrors + 1
  31.         End If
  32.  
  33.         If String.IsNullOrEmpty(txtPlaats_Opdrachten.Text) Then
  34.             strErrors = "- Er moet een plaats worden ingevuld!" & Environment.NewLine
  35.             xErrors = xErrors + 1
  36.         End If
  37.  
  38.         If String.IsNullOrEmpty(cmbWerknemersnaam_Opdrachten.Text) Then
  39.             strErrors = "- Geef aan door wie deze bon is behandeld!" & Environment.NewLine
  40.             xErrors = xErrors + 1
  41.         End If
  42.         Exit Sub
  43.  
  44.         adOpdracht.Fill(ds, "Opdrachten")
  45.         DatRij = ds.Tables("Opdrachten").NewRow
  46.         DatRij("Opdrachtnaam") = txtOpdrachtnaam_Opdrachten.Text
  47.         DatRij("Bedrijfsnaam") = txtBedrijfsnaam_Opdrachten.Text & ""
  48.         DatRij("Contactpersoon") = txtContactpersoon_Opdrachten.Text & ""
  49.         DatRij("Adres") = txtAdres_Opdrachten.Text & ""
  50.         DatRij("Plaats") = txtPlaats_Opdrachten.Text & ""
  51.         DatRij("Postcode") = txtPostcode_Opdrachten.Text & ""
  52.         DatRij("Opdrachtnr") = IDOpdracht
  53.         If txtTelefoonnummer_Opdrachten.Text = Nothing Then
  54.             txtTelefoonnummer_Opdrachten.Text = 0
  55.         Else
  56.             DatRij("Telefoonnummer") = txtTelefoonnummer_Opdrachten.Text
  57.         End If
  58.         DatRij("Emailadres") = txtEmailadres_Opdrachten.Text & ""
  59.         DatRij("Werknemersnaam") = cmbWerknemersnaam_Opdrachten.Text & ""
  60.         DatRij("Betaling") = cmbBetaling1_Opdrachten.Text & ""
  61.         DatRij("Borg") = cmbBetaling2_Opdrachten.Text & ""
  62.         If txtContant_Opdrachten.Text = Nothing Then
  63.             txtContant_Opdrachten.Text = 0
  64.             DatRij("Contant") = txtContant_Opdrachten.Text
  65.         Else
  66.             DatRij("Contant") = txtContant_Opdrachten.Text
  67.         End If
  68.  
  69.         DatRij("Opdrachtdatum") = lblOpdrachtdatum_Opdrachten.Text
  70.         DatRij("Leverdatum") = FormatDateTime(dtpLeverdatum_Opdrachten.Value, DateFormat.ShortDate)
  71.         DatRij("Retourdatum") = dtpRetourdatum_Opdrachten.Value
  72.         DatRij("TotaalPrijs") = Val(txtTotaal_Opdrachten.Text)
  73.         ds.Tables("Opdrachten").Rows.Add(DatRij)
  74.         adOpdracht.ContinueUpdateOnError = True
  75.         adOpdracht.Update(ds, "Opdrachten")
  76.         btnOpdrachtBewaren_Opdrachten.Enabled = False
  77.         rpvHistoriek.RefreshReport()
  78.  
  79. End Sub

8 antwoorden

Gesponsorde links
Offline Ontani - 14/01/2009 11:12 (laatste wijziging 14/01/2009 11:12)
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 Het is toch logischer om op de plek waar Exit Sub staat te doen:

vb.net code - Bekijk de code zonder highlighting - Klap code in 
  1. If xErrors = 0 Then
  2.  ' Alle code die uitgevoerd moet worden als alles gevalideerd is
  3. Else
  4.  ' Geef een boodschap weer met de fouten die gebeurd zijn
  5. End If
Offline rredspike1 - 14/01/2009 11:16
Avatar van rredspike1 Lid Heb dat gedaan, alleen slaat nog steeds op?!
Offline Ontani - 14/01/2009 11:19
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 Dan worden er geen errors gevonden.

Een break zetten op je eerste regel en met F10 en F11 regel voor regel aflopen en de waardes controleren.
Offline rredspike1 - 14/01/2009 11:27
Avatar van rredspike1 Lid Hoe kan dat nu...ik geef aan als er een textbox null is of leeg, dan tel er een error bij op en geef het weer...
Offline Abbas - 14/01/2009 15:13
Avatar van Abbas Gouden medaille

Crew .NET		 Geef dan eens de code die je nu hebt want hetgeen Ontani zegt is wel juist! 
Offline rredspike1 - 14/01/2009 15:56
Avatar van rredspike1 Lid Dat snap ik niet echt...
Offline Wim - 14/01/2009 16:02
Avatar van Wim Crew algemeen
titjes schreef:
Geef dan eens de code die je nu hebt want hetgeen Ontani zegt is wel juist! 


rredspike1 schreef:
Dat snap ik niet echt...


wat snap je niet? ctrl+c en ctrl+v?
Offline Abbas - 14/01/2009 17:05
Avatar van Abbas Gouden medaille

Crew .NET		 LOL 
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.18s