VBA를 사용하여 어포 스트로피에 문을 삽입 하시겠습니까?

Question

텍스트 상자가있는 양식이 있습니다. 사용자가 텍스트 상자에 입력 한 내용을 표에 삽입합니다. 사용자가 "Me.ProjectName"이라는 텍스트 상자에 아포스트로피를 입력하면 오류가 발생합니다. 내 코드는 다음과 같습니다

CurrentDb.Execute "INSERT INTO Table1(ProjectNumber, Title) " & _ 
     " VALUES('" & ProjectNumber & "','" & Me.ProjectName & "')" 

Answer 1

당신은 당신의 문자열이 가능한 2 따옴표와 함께 견적을 대체하여 따옴표를 포함 탈출해야합니다

Dim SQL As String 

    SQL = "INSERT INTO Table1(ProjectNumber, Title) " & _ 
    " VALUES('" & ProjectNumber & "','" & Replace(Me.ProjectName, "'", "''") & "')" 

    CurrentDb.Execute SQL 

Answer 2

당신은 구조 및 동적 SQL을 실행하지 않아야 사용자 입력을 기반으로합니다. 당신은 같은 매개 변수화 된 쿼리, 뭔가를 사용해야합니다

Dim cdb As DAO.Database 
Set cdb = CurrentDb 
Dim qdf As DAO.QueryDef 
Set qdf = cdb.CreateQueryDef("", _ 
     "INSERT INTO Table1 (ProjectNumber, Title) VALUES (@prjnum, @title)") 
qdf.Parameters("@prjnum").Value = ProjectNumber 
qdf.Parameters("@title").Value = me.ProjectName 
qdf.Execute 

의