Sub DAOOpenRecordset() Dim db As DAO.Database Dim rst As DAO.Recordset Dim fld As DAO.Field
'Open the database Set db = DBEngine.OpenDatabase _ (".\NorthWind.mdb") 'Open the Recordset Set rst = db.OpenRecordset _ ("SELECT * FROM Customers " & _ "WHERE Region = 'WA'", _ dbOpenForwardOnly, dbReadOnly)
' Print the values for the fields in ' the first record in the debug window For Each fld In rst.Fields Debug.Print fld.Value & ";"; Next Debug.Print 'Close the recordset rst.Close
If Chk_karan.Value = vbChecked Then MsgBox Prompt:="Kunden har karantæne!" End If
End Sub
Private Sub Søg_Click() Dim svar2 svar2 = InputBox(Prompt:="Indtast kundens telefonnummer", _ Title:="Find kundenummer via.telefonnummer") if "HVIS TELEFON NUMMERET FUNDET I DATABASE" Then MsgBox ("Kunden er fundet")
Else: MsgBox ("Kan ikke finde kunden i databasen") End If End Sub
Hvordan gør jeg det ?? (det med at finde tlf nr. i db og så msgbox) min DB hedder db3. og feltet hedder Telefon_nummer.
you should be able to find LOADS of help under Microsoft
og tak :o)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.