Hent data fra access database til 6 stk textBox

Jeg vender tilbage med et eksempel snarest!

mvh
Supertekst

PS: I hvilken kontekst findes den nævnte form - er den i databasen eller ??

Har senere erfaret, at du arbejder med VB6- men nu får du koden alligevel - selvom den er udarbejdet i VBA - hvor formularen ligger i Word:

Rem Reference til DAO er sat i VBA-projektet
Rem ========================================
Dim xsti, db, tabel
Private Sub cb_opdater_Click()
    With tabel
        .Edit
        .Fields("dato") = f_dato
        .Fields("kunde") = f_kunde
        .Fields("projektnr") = f_projektnr
        .Fields("ordrenr") = f_ordrenr
        .Fields("beskrivelse") = f_beskrivelse
        .Fields("projekt_opretter") = f_projekt_opretter
        .Update
    End With
   
    clearFormFelter
End Sub
Private Sub clearFormFelter()
    f_id = ""
    f_dato = ""
    f_kunde = ""
    f_projektnr = ""
    f_ordrenr = ""
    f_beskrivelse = ""
    f_projekt_opretter = ""
End Sub
Private Sub cb_søg_Click()
    cb_opdater.Visible = False
   
    If f_id <> "" Then
        If soegID(f_id) = True Then
            visData
        Else
            MsgBox ("Id nr.: " + CStr(f_id) + " findes ikke!")
        End If
    End If
End Sub
Private Sub visData()
    With tabel
        f_dato = Format(.Fields("dato"), "dd-mm-yy")
        f_kunde = .Fields("kunde")
        f_projektnr = .Fields("projektnr")
        f_ordrenr = .Fields("ordrenr")
        f_beskrivelse = .Fields("beskrivelse")
        f_projekt_opretter = .Fields("projekt_opretter")
    End With
    cb_opdater.Visible = True
End Sub
Private Sub cb_afslut_Click()
    On Error Resume Next
    tabel.Close
    db.Close
   
    Unload UserForm1
End Sub
Private Sub f_id_Change()
    If Len(f_id) = 0 Then
        clearFormFelter
    End If
End Sub
Private Sub UserForm_activate()
    sætSti
    cb_opdater.Visible = False                      'vis først opdaterknappen, når post fundet
End Sub
Private Sub sætSti()                                'worddokument & database forventes at ligge i samme mappe
    xsti = ActiveDocument.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
End Sub
Private Sub openDBTabel()
    Set db = OpenDatabase(xsti + "database.mdb")
    Set tabel = db.OpenRecordset("kundeordre")
End Sub
Public Function soegID(id)
    openDBTabel
    tabel.Index = "primarykey"
    tabel.Seek "=", id
   
    If Not tabel.NoMatch Then
        soegID = True
    Else
        soegID = False
    End If
End Function

Hej supertekst

Kan du prøve at skrive hvad der skal på form1 og hvad der skal i textbox og i CommandButton

mvh
mvhansen

Hvis du er interesseret kan du få tilsendt alle filer - send evt. en mail til pb@skivehs.dk

MVH
Supertekst

lukket