GhostofDoom
01-17-2020, 11:37 PM
Hello,
What are we doing wrong
i can't get it working :(
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim qry As String, i As Integer
qry = "SELECT TBL_ImportList.m_Referentie " & _
"FROM TBL_List INNER JOIN TBL_ImportList " & _
"ON TBL_List.ID = TBL_ImportList.ID " & _
"WHERE TBL_List.m_Customer_Name LIKE '%" & Me.txtfirstname.value & "%'"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.ACCDB"
rst.Open qry, cnn, adOpenKeyset, adLockOptimistic
error image here
-Thanks25830
What are we doing wrong
i can't get it working :(
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim qry As String, i As Integer
qry = "SELECT TBL_ImportList.m_Referentie " & _
"FROM TBL_List INNER JOIN TBL_ImportList " & _
"ON TBL_List.ID = TBL_ImportList.ID " & _
"WHERE TBL_List.m_Customer_Name LIKE '%" & Me.txtfirstname.value & "%'"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.ACCDB"
rst.Open qry, cnn, adOpenKeyset, adLockOptimistic
error image here
-Thanks25830