Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
"select * from plz where plz.ort = '" & dein_ort & "';"
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
If IsNumeric(Text0) Then
rst.Open "SELECT nrtxt FROM tbl_punzierungsgeb WHERE nrtxt = " & Text0 & ";", CurrentProject.Connection, adOpenStatic, adLockPessimistic, -1
If rst.RecordCount > 0 Then
'Nummer schon vorhanden
Else
'Nummer noch nicht vorhanden
End If
rst.Close
Else
'Eingabe ist nicht numerisch
End If
Set rst = Nothing