Hallo Leute
Bin schon beinahe am Verzweifeln. Ich bin absoluter Laie in VBA und komme nicht weiter. Ich hoffe ich finde hier eine helfende Hand.
Ich versuche eine Datenbank in Acceess zu basteln. Dabei verwende ich für gewisse Rechnungen gerne VBA
Ich arbeite mit 3 Feldern:
1. Feld (modemTyp)
Hier stehen folgende Inhalte zur Auswahl: Motorola, THG520, THG540, THG570 und EPC3212
2. Feld (cmMAC)
In dieses Feld wird vom User die 12stellige, hexidezimale Modem-MAC-Adresse eingetragen.
3. Feld (mtaMAC)
Dieses Feld soll nun automatisch beim verlassen von cmMAC errechnet werden.
Die Rechnung soll nach den Kriterien in modemTyp wie folgt aussehen:
Bei Motorola soll das Feld leer bleiben
Bei den THG* soll +1 zur cmMAC gerechnet werden
Bei EPC soll +2 zur cmMAC gerechnet werden
Was ich bis jetzt habe:
Private Sub cmMAC_Exit(Cancel As Integer)
If ModemTyp = "Motorola" Then mtaMAC = ""
If ModemTyp = "THG520" Then mtaMAC = mtaMAC + &H1
If ModemTyp = "THG540" Then mtaMAC = mtaMAC + &H1
If ModemTyp = "THG570" Then mtaMAC = mtaMAC + &H1
If ModemTyp = "EPC3212" Then mtaMAC = mtaMAC + &H2
End Sub
Für eure Hilfe danke ich euch jetzt schon tausendmal.
Gruss Lupo vor dem umfallen
