Springen naar inhoud


- - - - -
Solved

controle rijksregisternummer



  • Dit onderwerp is gesloten Dit onderwerp is gesloten
Er zijn 10 reacties in dit onderwerp

#1 sergeb

sergeb

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 23 mrt 2006 15:25

Geplaatst op 21 maart 2006 - 14:57


Op uw oude website heb ik een formule teruggevonden om het rijksregister te controleren :

Visual Basic Code:
ControleRijksNummer = IIf(((97 - Val(Left(RijksNummer, 9)) Mod 97)) = Val(Right(RijksNummer, 2)), True, False)

Ik had deze graag als functie ingevoegd in excell, heb vanalles geprobeerd maar kan deze zelf niet omvormen…

Wie kan mij hiermee helpen ?

Alvast bedankt !

#2 Ronneke

Ronneke

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 2234 berichten
    Laatst bezocht 29 okt 2012 02:21

Geplaatst op 21 maart 2006 - 16:44

Hallo serge

Is het dat wat je wenst?
Visual Basic Code:
Private Function CheckRijksregister(ByVal RijksNummer As String) As Boolean

  If (97 - Val(Left(RijksNummer, 9)) Mod 97) = Val(Right(RijksNummer, 2)) Then
	CheckRijksregister = True
  Else
	CheckRijksregister = False
  End If
	
End Function 

Groeten
Good judgement comes from experience, and experience comes from bad judgement

Gelieve geen vragen te stellen over het onderwerp via PB of chat  anders hebben de andere leden er ook niets aan.

#3 sergeb

sergeb

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 23 mrt 2006 15:25

Geplaatst op 22 maart 2006 - 10:53

Thanks voor deze functie, maar nu moet ik deze nog kunnen invoegen in excell  :)

Sorry, maar ik ben een leek op het vlak van visual basic functies invoegen in office toepassingen...

#4 Radjesh Klauke

Radjesh Klauke

    Professional Developer

  • Leden
  • PipPipPipPip
  • 388 berichten
    Laatst bezocht 31 okt 2013 09:53
  • LocatieSexbierum, The Netherlands

Geplaatst op 22 maart 2006 - 11:10

ALT+F11.
Ik adviseer je om de code op te roepen middels een CommandButton. De gebruiker dient het nummer in een TextBox in te typen. Of begrijp je het niet? Geef mij eens een rijksnummer dat klopt. Maak ik wel even snel een voorbeeldje voor je.
Groeten Radjesh Klauke

#5 sergeb

sergeb

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 23 mrt 2006 15:25

Geplaatst op 22 maart 2006 - 12:09

voorbeeld correct nummer :

56050643514

of

56032733453


alvast bedankt

#6 sergeb

sergeb

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 23 mrt 2006 15:25

Geplaatst op 22 maart 2006 - 12:14

ik zal even het doel uitleggen :

Ik wil een ingetypte lijst van duizenden nummers controleren of er geen foute nummers bijstaan omwille van typfouten.

#7 Ronneke

Ronneke

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 2234 berichten
    Laatst bezocht 29 okt 2012 02:21

Geplaatst op 22 maart 2006 - 12:26

Ah, dan is het misschien beter dat je gebruik maakt van een macro. In welke kolom staan uw nummers?
Good judgement comes from experience, and experience comes from bad judgement

Gelieve geen vragen te stellen over het onderwerp via PB of chat  anders hebben de andere leden er ook niets aan.

#8 sergeb

sergeb

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 23 mrt 2006 15:25

Geplaatst op 22 maart 2006 - 12:48

Kolom K, met als titel NRGN.

#9 Ronneke

Ronneke

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 2234 berichten
    Laatst bezocht 29 okt 2012 02:21

Geplaatst op 22 maart 2006 - 13:31

OK en ik vermoed dat uw data vanaf rij 2 start? En wat is de naam van uw werkblad waar die data staat. Dan kan ik iets opbouwen voor u.

Groeten
Good judgement comes from experience, and experience comes from bad judgement

Gelieve geen vragen te stellen over het onderwerp via PB of chat  anders hebben de andere leden er ook niets aan.

#10 sergeb

sergeb

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 23 mrt 2006 15:25

Geplaatst op 22 maart 2006 - 13:41

Inderdaad, gegevens beginnen vanaf rij 2 en werkblad noemt fich50.

bedankt alvast !

#11 Ronneke

Ronneke

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 2234 berichten
    Laatst bezocht 29 okt 2012 02:21

Geplaatst op 22 maart 2006 - 15:54

Hallo serge

1) Via de menuwerkbalk van Excel:   Extra >> Macro >> Visual Basic editor. Alzo komt er een nieuw venster voor de invoering van macros en vb

2) Via de menubalk in vba: Invoegen >> Module.

3) In het venster waar er staat Option Explicit brengt ge de volgende code in:
Visual Basic Code:
Sub CheckRijksregisterNummer()
Dim MaxRij As Long, i As Long
Dim Blad As Worksheet
Dim Nummer As String, NieuwNummer As String
Dim Flag As Boolean
  Set Blad = Sheets("fich50")
  Blad.Select
  
  MaxRij = Blad.Range("K2").End(xlDown).Row
  
  For i = 2 To MaxRij
	Nummer = Trim(Blad.Cells(i, 11).Value)
  
	If CheckRijksregister(Nummer) = False Then
	  Flag = False
	  Do While Flag = False
		NieuwNummer = InputBox("Verander het rijksregisternummer", "Rijksregisternummer: " & Nummer & " is foutief")
		If CheckRijksregister(NieuwNummer) = True Then
		  Blad.Cells(i, 11).Value = NieuwNummer
		  Flag = True
		End If
	  Loop
	End If
  Next
End Sub


Private Function CheckRijksregister(ByVal RijksNummer As String) As Boolean

  If (97 - Val(Left(RijksNummer, 9)) Mod 97) = Val(Right(RijksNummer, 2)) Then
	CheckRijksregister = True
  Else
	CheckRijksregister = False
  End If
   
End Function  

4) vba venster sluiten en in excel de macro CheckRijksregisterNummer laten runnen

Hopelijks is dit een voldoende basis voor u om verder te werken. Uiteraard is  deze macro een voorbeeld en kan altijd aangepast of verder uitgebreid  worden.

Succes
Good judgement comes from experience, and experience comes from bad judgement

Gelieve geen vragen te stellen over het onderwerp via PB of chat  anders hebben de andere leden er ook niets aan.





Ook met taq Solved voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Hosting provided by Combell
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be