Hent info fra en access db ind i Excel

Hvorfor lave arbejdskort i Excel, Access kan sagtens foretage beregninger. Hvis det blot er simple udregninger, bør du holde dig til et af programmerne.

enig, det er for en ven, og det er ingen gang for beregningernes skyld, nok kun fordi det er nemmere at sætte en arbkort på ved hjælp at celler. men det ville være nemmere at bare lave et nyt arbejdskort i access.

Eksporter dit kunde kartotek fra Access til et ark i Excel. Derefter med et lopslag henter du de ønskede informationer.

VBA-koden indlægges i Excel-formularen (tekstboks t/telefonnr + Luk-knap):

Dim xsti, Db, recx As Recordset
Private Sub f_Luk_click()
    recx.Close
    Db.Close
    Unload UserForm1
End Sub
Private Sub f_TelefonNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If f_TelefonNr <> "" Then
        If findKunde(f_TelefonNr.Value) = 1 Then
        With recx
            Cells(1, 1) = .Fields("fornavn")        'Indsætter i regnearket
            Cells(1, 2) = .Fields("Efternavn")
            Cells(1, 3) = .Fields("Telefon")
        End With
        Else
            MsgBox ("Den ønskede kunde kunne ikke findes / eller ej entydig!")
        End If
    End If
End Sub
Private Sub UserForm_activate()
    xsti = ActiveWorkbook.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
    Set Db = OpenDatabase(xsti + "kunder.mdb")
End Sub
Private Function findKunde(tlfnr)
Dim værdi
    værdi = Chr(34) + tlfnr + Chr(34)
    Set recx = Db.OpenRecordset("SELECT * FROM " & "kunder" & _
                " WHERE (" & "Telefon" & "=" & værdi & ")", dbOpenSnapshot)
   
    On Error Resume Next
    recx.MoveLast
    findKunde = recx.RecordCount
End Function

Giv blot signal, hvis flere oplysninger ønskes

MVH

Jeg prøver, dine point!!!

OK - så får du et svar i tilfælde af, at du kan anvende det - ellers giv blot signal!
MVH