왜이 VBA에 액세스 코드에 오류 코드가 있습니까?

Access에서 고객을 찾기 위해 "검색 할 때 입력 기능"을 사용할 양식을 만든 다음 목록 상자에서 정확한 일치 항목을 두 번 클릭하여 고객 정보 입력란을 업데이트합니다 . 나는 "당신이 입력 할 때 검색"부분을 성공했지만 목록 상자의 두 번 클릭 업데이트 양식 부분은 성공하지 못했습니다. 나는 다음과 같은 RUNSQL 오류가 계속왜이 VBA에 액세스 코드에 오류 코드가 있습니까?

는 :

것은 SQL 문은 쿼리에서 잘 작동한다는 것입니다 "A RUNSQL 문은 SQL 문으로 구성된 인수가 필요합니다."

여기에 코드입니다 :

Private Sub lstClient_DblClick(Cancel As Integer) 
    Dim selectedItem, strSQL, strSQL1 As String 
    Dim i As Integer 

    i = lstClient.ListIndex 
    selectedItem = lstClient.ItemData(i) 
    txtCustName.Value = selectedItem 

    strSQL = "SELECT tblClient.[Addresse] FROM tblClient WHERE tblClient.[Nom] ='" & selectedItem & "';" 

    strSQL1 = "SELECT tblClient.[Addresse] FROM tblClient WHERE tblClient.[Nom] ='Bernache Funeral home';" 

    DoCmd.RunSQL (strSQL1) 
    Text191.Value = strSQL1 
End Sub

두 번째 문 (strSQL1) 인 내가이 일을 확인하기 위해 쿼리에서 시도 하나, 그것은했다.

미리 감사드립니다.

출처

2016-09-07 Vincent Labrecque

뭔가를 시도'RunSQL' 업데이트, 삽입을 위해, 그리고 삭제합니다. 레코드 세트를 열거 나 다른 메커니즘을 사용하여 데이터를 선택하려고합니다. –

다른 사람의 코드를 사용하고 RunSQL 문을 제거하면 지금 작동하게되었습니다. 감사합니다! –

Dim db As Database 
Dim rs As DAO.Recordset 

Set db = CurrentDb 
Set rs = db.OpenRecordset(strSQL1) 
Text191.Value = rs.Fields("Addresse").Value 

Set rs = Nothing 
Set db = Nothing

출처

2016-09-07 04:13:40

새로운 오류 메시지가 나타남 : "Access DB 엔진이 입력 테이블이나 쿼리를 찾을 수 없습니다. 존재하고 그 이름의 철자가 올바른지 확인하십시오" –

RunSQL 행을 제거하고 수정해야하지만 지금 작동 중입니다. . 고마워요! 솔루션은 Google에서 찾기가 너무 어려웠습니다 ... 나는 많은 리소스 "VBA에서 MS 액세스 SQL"과 같은 것들을 시도했습니다. 감사합니다. –

"Text191.Value = rs.Fields ("Addresse ") 끝에 .Value를 두지 않는 것이 잘못 되었습니까? 지금은 작동하지 않습니다. –

왜이 VBA에 액세스 코드에 오류 코드가 있습니까?

답변

관련 문제