Hallo,

Heb een database, met onderstaande code kan ik een record toevoegen.. Nu wil ik een zoek opdracht geven zodat de gegevens die ik zoek kan muteren en daarna weer opslaan.

wie heeft er een code voor me.

Alvast bedankt.

Rini

maak gebruik van microsoft dao 3.6 object library.

Private Sub Command1_Click()
Set Db = OpenDatabase(test)
Set Rs = Db.OpenRecordset("select * from adres")
Rs.AddNew   'add new entry to our database
Rs!Naam = Text1.Text
Rs!adres = Text2.Text
Rs!postcode = Text3.Text
Rs!woonplaats = Text4.Text
Rs!tel = Text5.Text
Rs.Update
Rs.Close

Code:

Private Sub Command2_Click() Set Db = OpenDatabase(test) Set Rs = Db.OpenRecordset("select * from adres where ID = 1") Rs!Naam = Text1.Text Rs!adres = Text2.Text Rs!postcode = Text3.Text Rs!woonplaats = Text4.Text Rs!tel = Text5.Text Rs.Update Rs.Close

zo bijvoorbeeld.

Hallo Wired,

Bedankt voor je snelle reactie, om te muteren is deze code wel goed denk ik maar kun je me ook een code geven om te zoeken? bijvoorbeeld, wil record 77 zoeken en muteren.

Alvast bedankt

Rini

een formulier maken met een combobox opgevuld met alle namen, waaruit je dan een keuze maakt uit

in de change_event van die combobox roep je die record op uit de database en vul je je velden in op het formulier om de gegevens te kunnen aanpassen

als je dan klikt op de knopschijf je dan die gegevens weg in de tabel

Hallo,

Bedankt voor jullie hulp, wat ik wil is eingelijk een tekstvak en een command knop maken waarmee ik de zoek opdracht kan geven.

hier onder een voorbeeld code, maar die werkt niet goed.

Kan iemand mij een eenvoudige code geven die goedwerkt? bijvoorbeeld als ik record 389 op mijn scherm wil hebben, dat ik dan in het tekstvak 389 typ en daarna op enter druk, en dan moeten de gegevens in de tekstvakken naam, adres enz komen te staan.

Public Sub find(findstr As String, start As Integer)
Dim found As Boolean, t As Integer
Set Db = OpenDatabase(App.Path & "pb.mdb")
Set Rs = Db.OpenRecordset("data")
Rs.MoveFirst
For t = start To Rs.RecordCount - 1
    With Rs
        For f = 0 To .Fields.Count - 1
             If .Fields(f) <> "" Then
             test = InStr(1, findstr, .Fields(f), vbTextCompare)
             'MsgBox test
             If InStr(1, findstr, Trim(.Fields(f))) > 0 Then GoTo found
             End If
        Next f
        Rs.MoveNext
    End With
   
Next t

Rs.Close: Set Rs = Nothing: Db.Close: Set Db = Nothing
Exit Sub
found:
Rs.Close: Set Rs = Nothing: Db.Close: Set Db = Nothing
findstart = t
visapost t + 1
postnr = t + 1
End Sub

Public Sub visapost(post As Integer)
Set Db = OpenDatabase(App.Path & "pb.mdb")
Set Rs = Db.OpenRecordset("data")
Dim data As String
    Rs.Move post - 1
    FrmMain.txtfornamn = Trim(Rs.Fields(0))
    FrmMain.txtefternamn = Trim(Rs.Fields(1))
    FrmMain.txtgatuadress = Trim(Rs.Fields(2))
    FrmMain.txtpostadress = Trim(Rs.Fields(3))
    FrmMain.txttelhem = Trim(Rs.Fields(4))
    FrmMain.txtteljobb = Trim(Rs.Fields(5))
    FrmMain.txttelmobil = Trim(Rs.Fields(6))
    FrmMain.txtepost = Trim(Rs.Fields(7))
    FrmMain.txtmisc = Trim(Rs.Fields(8))