Access: Eingabeformat für eine IP-Adresse definier

Computer: Software & Programmierung Datenbanken allgemein
#1

Hallo,

Wie ist es möglich, in Access ein Eingabeformat so zu definieren, dass man eine IP-Adresse darin aufnehmen kann. Das Problem ist ja, dass die zahlen nur bis 255 gehen und nicht bis 999. Hat jemand eine Idee???

Danke
Marc

#2

Du könntest das KeyPress-Ereignis auswerten - aber sicher ist es einfacher, die Feldeingabe ganz zum Schluss zu prüfen…

Reinhard

#3

Am einfachsten gehts wahrscheinlich mit 4 Feldern, in denen zu jeweils die Plausabilitaet ([Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Das Feld zur Eingabe ist ein Textfeld. In den Eigenschaften gibst Du bei Eingabeformat ##0.##0.##0.##0 ein. Bei den Ereignissen stellst Du unter „Bei Änderung“ Ereignisprozedur ein und klickst auf Code erzeugen.

Da gibst Du folgendes ein:

Private Sub Textfeld_BeforeUpdate( Cancel As Boolean )
Dim strTemp As String
Dim intTemp As Integer
Dim bolTemp As Boolean

bolTemp = True
strTemp = Me!Textfeld
intTemp = CInt(Left$(strTemp,InStr(1,Me.Textfeld,".",vbBinaryCompare)-1))
If (intTemp = 0) Then
strTemp = Mid$(strTemp,InStr(1,strTemp,".",vbBinaryCompare)+1)
Else
bolTemp = False
End If

intTemp = CInt(Left$(strTemp,InStr(1,Me.Textfeld,".",vbBinaryCompare)-1))
If (intTemp = 0) Then
strTemp = Mid$(strTemp,InStr(1,strTemp,".",vbBinaryCompare)+1)
Else
bolTemp = False
End If

intTemp = CInt(Left$(strTemp,InStr(1,Me.Textfeld,".",vbBinaryCompare)-1))
If (intTemp = 0) Then
strTemp = Mid$(strTemp,InStr(1,strTemp,".",vbBinaryCompare)+1)
Else
bolTemp = False
End If

intTemp = CInt(Left$(strTemp,InStr(1,Me.Textfeld,".",vbBinaryCompare)-1))
If (intTemp = 0) Then
Else
bolTemp = False
End If

If bolTemp Then
Cancel = True
MsgBox „Keine gültige IP-Adresse!“
End If
End Sub

Ich hoffe das funktioniert. Habs nicht probiert…

MfG, Lars Betzin.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]