Springen naar inhoud


- - - - -
VS 2015

Btw Nummer Controleren Via Vba

VS2015

  • Log in a.u.b. om te beantwoorden
Er zijn 13 reacties in dit onderwerp

#1 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 27 oktober 2017 - 09:01

Beste allen

Ik heb getracht deze code over te nemen maar lukt niet.

Userform is opgesteld met een textbox "txtBTW" (hierin wordt de BTW nummer BE0000000000 ingegeven)

Daarnaast staat een commandbutton (cmdBTW) om de inhoud te controleren (echter bij het uitvoeren krijg ik "compileer fout - ongeldige kwalificatie")

Onder deze cmd hangt de volgende code
Code:
Private Sub cmdBTW_Click()
Dim BtwNummer As String
	BtwNummer = Trim(txtBTW.Text.Replace("BE", ""))
	BtwNummer = BtwNummer.Replace(".", "")
	If (BtwNummer).Length = 10 And IsNumeric(BtwNummer) Then
		If (CDbl(BtwNummer.Substring(8, 2)) = 97 - (CDbl(BtwNummer.Substring(0, 8))) Mod 97) Then
			lblBoodschap.Text = "Goed gevormd!"
		Else
			lblBoodschap.Text = "Fout gevormd!"
		End If
	End If
End Sub

De rode tekst wordt steeds bij foutmelding in het geel gemarkeerd.
Kan iemand mij hiermee verder helpen?

Thx!

#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 16 aug 2018 11:34
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 27 oktober 2017 - 09:17

is het VBA (zoals je titel vermeld) of Visual basic ?

#3 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 27 oktober 2017 - 09:23

Het betreft Visual Basic in Excel

Thx
M.

#4 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 638 berichten
    Laatst bezocht 10 aug 2018 14:20
  • LocatieMechelen (BE)

Geplaatst op 30 oktober 2017 - 12:30

Dat is dus VBA of Visual Basic for Applications

#5 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 30 oktober 2017 - 12:41

oei thx - mijn excuses !

#6 Hansiebebe

Hansiebebe

    Professional Developer

  • Leden
  • PipPipPipPip
  • 328 berichten
    Laatst bezocht 16 jul 2018 19:30

Geplaatst op 31 oktober 2017 - 13:56

code lijkt niet op VBA lijkt meer op .net

#7 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 31 oktober 2017 - 15:17

kan iemand dit omzetten naar een code VBA/Excel?

#8 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 16 aug 2018 11:34
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 31 oktober 2017 - 20:25

Hiermee zou het je moeten lukken.

mvg,
Red


Code:

Private Sub CommandButton1_Click()

	MsgBox ("BTW nummer is " & BTW("BE0451881923"))
	MsgBox ("BTW nummer is " & BTW("BE0451221923"))

End Sub



Function BTW(strBTW_Nr As String) As Boolean

  Dim dblCalc As Double
  Dim dblTemp As Double
  Dim intChk As Integer

  If UCase(Left(strBTW_Nr, 2)) = "BE" Then
	strBTW_Nr = Right(strBTW_Nr, Len(strBTW_Nr) - 2)
  End If

  If Len(strBTW_Nr) <> 10 Then
	BEBTW = CVErr(xlErrValue)
	Exit Function
  End If

  dblCalc = CDbl(Left(strBTW_Nr, 8))
  intChk = CInt(Right(strBTW_Nr, 2))

  dblTemp = 97 - (dblCalc - Int(dblCalc / 97) * 97)

  If CInt(dblTemp) = intChk Then
	BTW = True
  ElseIf CInt(dblTemp) = 0 And intChk = 97 Then
	BTW = True
  Else
	BTW = False
  End If

End Function





#9 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 02 november 2017 - 09:42

Beste Red

Bedankt maar het lijkt niet te lukken - is de code voor de commandbutton volledig ?
De strBTW_nr in de function = dien ik deze te hernoemen naar mijn textvak? (txtBTW?)

Verder dien ik de functie niet te definiëren in de code van de commandbutton?
Heb je eventueel uw bestandje nog met een simpele userform met een textvak en een commandbutton dat deze functie uit kan voeren?

Thx
M.

#10 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 16 aug 2018 11:34
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 02 november 2017 - 10:55

Dag M,

Ik heb gewoon een button op een excel blad geplaatst, dus niet dadelijk met forms gewerkt (gewoon omdat ik daar niet echt de tijd voor heb en het principe hetzelfde is)


Op zich werkt het dus ook op je form, je button roept de functie BTW aan. (misschien kun je die best hernoemen naar ControleerBtwNummer, dat is iets duidelijker)

Die gaat je een true/false (geldig/niet geldig btw nummer) teruggeven waarmee je weer een messagebox kunt laten zien, een andere button kunt enablen etc... naargelang je wensen in je programma.



De functie zelf moet je ongemoeid laten, je moet enkel de functie aanroepen en als parameter de inhoud van je tekstbox meegeven.

Zoiets dus :


If BTW(mijntekstvak.txt) then btwnummer is geldig else btwnummer is niet geldig



Moest het alsnog niet lukken, stel ik voor dat je even een xls hier plaatst met je form (of via pm als je wil) dan zal ik als ik de tijd vind de aanpassing maken.

mvg,
Red.

#11 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 02 november 2017 - 12:12

Best Red

In bijlage een stuk uit mijn form in Excel.

Ik heb uw codes al er ingeplakt maar krijg het niet werkende.

Thx
M.

#12 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 02 november 2017 - 12:14

in bijlage het bestand.

Thx
M.

Bijgevoegde Bestanden



#13 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 16 aug 2018 11:34
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 03 november 2017 - 20:36

Bericht bekijkenVDMACC, op 02 november 2017 - 12:12, zei:

Ik heb uw codes al er ingeplakt maar krijg het niet werkende.

Je had blijkbaar toch niet alle code gekopieerd.

mvg,
Red


Bijlage  testBTW.xlsm   22,31K   6 downloads

#14 VDMACC

VDMACC

    Starting Developer

  • Leden
  • 12 berichten
    Laatst bezocht 08 nov 2017 09:11

Geplaatst op 06 november 2017 - 11:02

Beste Red

Hartelijk bedankt !

Gr
M.





Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

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

Inloggen


[VS 2015] Untitled 1

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)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)