Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dim Prompt, sNaam As String
Dim db As DAO.Database, rs As DAO.Recordset
Dim sName As String
Dim tableName As String
Dim FieldExists As Boolean
Prompt = "Vul hieronder de naam in"
sNaam = InputBox(Prompt)
tableName = "main"
Set db = CurrentDb()
Set rs = db.OpenRecordset(tableName)
rs.MoveFirst
Do While Not rs.EOF
If rs.Fields("naam").Value = sNaam Then
FieldExists = True
Exit Do
End If
rs.MoveNext
Loop
If FieldExists Then
MsgBox "Reeds in tabel"
Else
MsgBox "Nog niet in tabel"
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.