Excel - tæller records i Access
HejHer er endnu et spørgsmål om Excel/access SQL :0)
Fra excel indsætter og henter jeg data i en access tabel med felterne: Tlf, Dato, Tid, Tekst
Jeg ville nu gerne tælle antallet af Records hvor Tlf og Dato er givet fra excel. Jeg havde forestillet mig at man måske kunne anvende DCount men jeg kan ikke få det flettet ind i min sql. Kan nedenstående tilrettes så ovenstående løses? Jeg skal bruge antallet til betinget formatering i Excel.
vh Steen
Sub AntalBesøg()
'On Error Resume Next
Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim sPath As String
Dim Tlfno As String, Dato As Date
Tlfno = ActiveWorkbook.Sheets("1. Kvartal").Range("H2").Value
sPath = ActiveWorkbook.Path & "\"
' Create the connection string.
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & sPath & "gps.mdb;"
szSQL = "SELECT * FROM LKalender WHERE Tlf = '" & Tlfno & "' AND Dato = '" & Dato & "'"
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
Set rsData = Nothing
End Sub
