træk fra access kartotek

I hvilken version er den oprindelige kode skrevet?

Har du mulighed for at vise den bestående kode?

må jo være ver. 2000

uddrag:
Sub Kunde()

kundenr = InputBox("indtast kundenr")


If kundenr = "" Then
Application.ScreenUpdating = False

Selection.GoTo What:=wdGoToBookmark, Name:="Tekst14"
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
 
Else

Application.ScreenUpdating = False
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strConnString As String
    Dim strSQL As String
   
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
   
    strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:/users/bji/desktop/Kartoteker.MDb"
    objConn.Open strConnString
   
    strSQL = "SELECT Kundenr,Navn1, Adresse, postnr, by FROM kundekartotek WHERE kundenr = " & kundenr
    objRs.Open strSQL, objConn

Ok - Hvilke referencer har du sat?

har flere M DAO 3,6
m Aktivex Data objects 2,1 Libary
M forms 2,0 Object lib.
normal
Ole automation
visul basic for app.
M word 14,0 object Lib.
M ofice 14,0 object lib.

Jeg anvender "kun" 2007 - i et konkret system, hvor database og Word også er integreret - er:
- database filtype = .accdb
- ref. til DB = Microsoft Office xx.x Access database engine Object

kunne du sende et uddrag af det program?

Det skal stykkes sammen - prøver senere..

Eks.:

Const dataBaseNavn = "database.accdb"
Rem Tabeller
Public db, kunde

Public Sub LukDb()
    kunde.Close

    db.Close
End Sub

Private Sub åbnDatabase()
    Set db = OpenDatabase(Global_tools.dbSti & "\" & dataBaseNavn)
End Sub

Public Function findKundeIdNr(tlfnr)              'søg via index telefonnr
    åbnKunde
    kunde.Index = "TelefonNr"
    kunde.Seek "=", tlfnr
       
    If Not kunde.NoMatch Then
        findKundeIdNr = kunde.Fields(0)            'Id
    Else
        findKundeIdNr = 0
        lukKunde
    End If
   
End Function

Public Sub visKundeData(recNr, uf)  'Uf = UserformNaVN
On Error Resume Next

    If søgkunde(recNr) = True Then
        uf.flag = True
       
        With uf
            .tb_kundeNavn = kunde.Fields(1)
            .tb_adresse1 = kunde.Fields(2)
            .tb_adresse2 = kunde.Fields(3)
            .tb_postNr = kunde.Fields(4)
            .tb_by = DB_tools.hentbynavn(.tb_postNr)
            .tb_telefonNr1 = kunde.Fields(5)
            .tb_telefonNr2 = kunde.Fields(6)
            .tb_telefonNr3 = kunde.Fields(7)
            .tb_eMail = kunde.Fields(8)
            .ch_fakturaPrMail = kunde.Fields(9)
            .Tb_branchenr = kunde.Fields(10)
            .Tb_landekode = kunde.Fields(11)
            .tb_eaNnr = kunde.Fields(12)
            .tb_by = kunde.Fields(15)
        End With
       
        lukKunde
    End If
   
    uf.flag = False
End Sub

Public Sub lukKunde()
    kunde.Close
End Sub

Tak sender du et svar

Selv tak - det får du så..