VBA gebruiken in access....?

[Verwijderd]

Hallo,

ik ben bezig met een database in access, nu heb ik van een collega deze code gekrege
om een MAC adres te laten controleren;

Public Function pfCheckMacAddress(strMAC As String) As Boolean
On Error GoTo Err_pfCheckMacAddress
Dim strInput As String
Dim strResult As String
Dim blnResult As Boolean
blnResult = True
strInput = strMAC
'eerst checken op de lengte van het address
If Len(Trim(strInput)) <> 12 Then
MsgBox "De lengte van het MacAddress klopt niet"
blnResult = False
GoTo Exit_pfCheckMacAddress
End If
'nu gaan we kijken of het is samengesteld uit geldige karakters
For i = 1 To Len(Trim(strInput))
If Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 47 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 58 Or _
Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 64 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 71 Then
Else
blnResult = False
GoTo Exit_pfCheckMacAddress
End If
Next i
Exit_pfCheckMacAddress:
pfCheckMacAddress = blnResult
Exit Function
Err_pfCheckMacAddress:
MsgBox "Error: " & Err.Description, vbCritical + vbOKOnly, "Error: " & Err.Number
blnResult = False
Resume Exit_pfCheckMacAddress
End Function

nu is alleen nog het probleem.. ik heb geen flauw id hoe ik dat in access krijg zodat bij
het invoeren van informatie het MAC adres wordt gecheckt...

ik gebruik access 2000,

heb al op turorials gekeken maar daar vind je niet echt iets over dit probleem, meer over
het via VBA openen en gebruiken van de database....

Help optie van access werkt ook niet echt mee... heb hier en daar wel wat geprobeerd met Macro Expression Builder (als ik t goed heb) maar lukt niet...

b.v.d.

[PaulZ]

Je moet deze functie gewoon in de VBA-code (via ALT+F11) van het formulier douwen (of in een aparte module) en aanroepen na wijziging van het MAC-adresveld.

[Boss]

Dit blijft toch wel altijd een mooie constructie:

code:

If Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 47 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 58 Or _
Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 64 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 71 Then
Else 
...

Nooit gehoord van IF NOT zeker

[Spider.007]

De opmerkingen van F_J_K in "Acces / Gebruik VBA in access ??" heb je wel beantwoordt; maar belangrijker is het dat je zelf erg weinig geprobeerd lijkt te hebben Je gooit nog steeds een stuk code over de muur met een eenvoudige vraag Enige eigen inzet waarderen we in deze wel

[Verwijderd]

Boss schreef op maandag 13 juni 2005 @ 17:08:
Dit blijft toch wel altijd een mooie constructie:

code:

If Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 47 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 58 Or _
Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 64 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 71 Then
Else 
...

Nooit gehoord van IF NOT zeker

ghehe.. die gozer droomt ongeveer in Access dus hij zal t wel niet voor niets gedaan hebben

@ spider..

ik heb een hele middag zitten uitproberen maar ik kwam dr niet verder mee.....

zal nu is kijke of t lukt

[Pyrowired]

Ga naar het formulier ontwerp en kijk bij de eigenschappen van het veld wat je wilt controleren.
Kies bij het tabje "Gebeurtenis" voor opbouwen van een gebeutenis d.m.v. "Opbouwfunctie voor programmacode"

je zet er

code:

PFCheckMac(Forms!<formuliernaam>!<veldnaam>.Value

en ergens onderaan in het formulier gooi je onderstaande functie neer (mooier is het om hem in een aparte module te gooien, dan is ie in de hele db te gebruiken en heb je iets minder overhead in je formulier.

code:

Public Function PFCheckMac(MacAdres As String)

'convert all chars to uppercase and trim all spaces
Dim Adj_MacAdres As String

Adj_MacAdres = UCase(Trim(MacAdres))

'Check if there are 12 chars otherwise baill out

Dim Msg As String
Dim Titel As String
Dim style

Msg = "Een Macadres bestaat uit 12 tekens, je hebt er teveel/weinig ingevoerd!"
Titel = "Fout bij invoer"
style = vbCritical + vbOKOnly

If Len(Adj_MacAdres) <> 12 Then
    MsgBox Msg, style, Titel
    Exit Function
End If

'Let check if all input are Hex numbers
Dim I As Integer
I = 1
Do While I <= Len(Adj_MacAdres)
    If Mid(Adj_MacAdres, I, 1) = 0 Then
        I = I + 1
    ElseIf Val("&H" & Mid(Adj_MacAdres, I, 1)) <> 0 Then
        I = I + 1
    Else
        MsgBox "Teken nummer " & I & " is foutief!", style, Titel
        Exit Function
    End If
Loop
    


End Function

En zoals je ziet geen gekloot met goto en errormessages en een stuk overzichtelijker