excel als frontend applicatie voor access

[AatB]

Geacht Forum,

is er iemand van jullie die ervaring heeft met Excel als frontend applicatie voor Access?
Het gaat hierbij vooral om het updaten van de records van een tabel in access.
Het ophalen van de records naar excel heb ik al gemaakt.

Access tabel bestaat uit circa 10.000 records.
In Excel lees ik er hiervan circa 300 van in.
Ik muteer ze en wil dan dat de gemuteerde records worden ge-update in Access.

Ik hoor het graag....

mvg,

Aat

 

[WimenBeer]

Geacht Forum,

is er iemand van jullie die ervaring heeft met Excel als frontend applicatie voor Access?
Het gaat hierbij vooral om het updaten van de records van een tabel in access.
Het ophalen van de records naar excel heb ik al gemaakt.

Access tabel bestaat uit circa 10.000 records.
In Excel lees ik er hiervan circa 300 van in.
Ik muteer ze en wil dan dat de gemuteerde records worden ge-update in Access.

Ik hoor het graag....

mvg,

Aat

Aat,

Als je in Access de koppeling maakt naar het Excel bestand dan worden de gemuteerde gegevens direct bijgewerkt.

Succes

Wim

 

[AatB]

Aat,

Als je in Access de koppeling maakt naar het Excel bestand dan worden de gemuteerde gegevens direct bijgewerkt.

Succes

Wim

Hoi Wim,

De gegevens welke in de spreadsheet komen te staan moeten worden gevoed door een access welke dagelijks extern geupdated wordt. Nieuwe regels worden hier toegevoegd en regels welke niet meer geldig zijn worden verwijderd.

Distributie van de gegevens vindt dan plaast via de diverse spreadsheets (circa 40).
Nu doe ik dat dus door iedere spreadsheet te koppelen en de spreadsheet middels 40 aparte queries te koppelen. Alleen is dit bijzonder onderhouds gevoelig. Ik zoek dus naar andere mogelijkheden.

- 1 hoofdtabel
- macro om gespecificeerd gedeelte in spreadsheet in te lezen (die heb ik al)
- macro om regels welke gemuteerd wordt ook in access te muteren (die werkt nog niet).

Sub UpdateTest()
    
    Dim dbTest          As ADODB.Connection
    Dim rs              As ADODB.Recordset
    Dim exceldata       As Range
    
    Dim strCust_ID      As String
    Dim strCust_Name    As String
    Dim strSQL          As String
            
    Set dbTest = New ADODB.Connection
    
    dbTest.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    Workbooks(1).Path & "\test.mdb"
    
    dbTest.Open
    Set rs = New ADODB.Recordset
    Set exceldata = Worksheets("Blad1").Range("A2")
    
    Do While exceldata <> ""
        If exceldata.Offset(0, 0) <> exceldata.Offset(-1, 0) Then
            strCust_ID = exceldata
            strCust_Name = exceldata.Offset(0, 1)
            strSQL = "SELECT * FROM tblTest 'WHERE Cust_ID=" & strCust_ID
            With rs
                .Open strSQL, dbTest, adOpenStatic, adLockOptimistic, adCmdText
                    If strCust_ID <> .Fields("Cust_ID") Then GoTo nkst
                .Fields("Cust_ID") = strCust_ID
                .Fields("Cust_Name") = strCust_Name
                .Update
nkst:
               .Close
            End With
        End If
        Set exceldata = exceldata.Offset(1, 0)
    Loop
    
    dbTest.Close
    Set dbTest = Nothing
End Sub