MS 엑세스 2003 - 업데이트 SQL 쿼리를위한 VBA?

Question

안녕 얘들 아, 누군가가 내게 간단한 업데이트 쿼리를 통해 VB를 보여줄 수 있을까? 테이블에 새 필드를 추가하고 양식에 몇 개의 텍스트 상자를 추가하여 사용자가 레코드와 관련된 추가 데이터를 추가 할 수 있도록해야합니다.이 데이터는 이미이 폼의 기반이됩니다.

그래서 내가 가진 첫 번째 양식은 목록에 채우는 양식입니다. 사용자가이 목록의 선택 항목을 두 번 클릭하면이 양식에 연결된 표의 ID가 새 양식으로 열립니다. 이 텍스트 상자를 추가해야합니다 (모든 콤보 상자와 텍스트 상자는 하나의 레코드와 관련되어 있지만이 시점에서는 활성 폼에 묶여 있지만 언 바운드가 모두 있습니다.) 단추를 클릭하면 이미 정보를 저장하는 VB가 나타납니다 테이블에). 나는 이것을 만들지 않았지만, 더 이상 존재하지 않는 사람에 의해 지어졌으며 분명히이 물건에서 나보다 낫다. 내 문제는 거기 soooo 많은 VB 레코드에 대한 검사 및 다양한 SQL 문을 기반으로, 그 간단한 형태로 해독 할 수 없다는 것입니다.

그래서 나는이 떨어져 휴식을 시도 할 수 VB에서 SQL 문을 업데이트 간단한 예제를 찾고있었습니다.

은 내가 ID를 기반으로 레코드를 업데이트 할 필요 : recordId를 = me.RecordID

내가 실제로 내가 그러나 나는 시도 할 때마다, 다음 실행하려고, 예에 따라이 작업을 수행하는 방법을 알고 있다고 생각 SQL 버튼을 클릭 할 때 SYNTAX 오류의 런타임 오류가 발생하고 디버그가 db.execute (sql) 부분을 강조 표시합니다. 그래서 SQL 문을의 결과 직접 실행 창을 얻기 위해 노력하고, 나에게 잘 보이는이 사람이 약 15 플러스을 가지고 있기 때문에

UPDATE tblMain 
    SET [Name] = "John Doe", 
     [DATE] = #9/30/2009#, 
     [TYPE] = "TypeA", 
WHERE RecordID = 958; 

나는 (테이블의 모든 필드를 차지하지 않고 테이블을 업데이트 할 수 3 새, 그래서 여기에 약 14 필드를 무시하고,하지만 난 그 어쨌든 ???

, 나는 도움을 주셔서 감사합니다 그래서 항상 yall를! 감사합니다

EDIT 변경하고 싶지 않아!

을

미안 나는 항상 이것을 잊는다. ... 나는 actaully DAO 그것을 시도하고 있었다. .. .

Dim db as DAO.Database 
    Dim sql as String 
    set db = CurrentDb 

등

Answer 1

닫으 thaaat했다! 마지막 열 뒤에 간단한 쉼표가 추가되었습니다. 그것을 제거하고 잘 작동합니다.

UPDATE tblMain SET 
[Name] = "John Doe", 
[DATE] = #9/30/2009#, 
[TYPE] = "TypeA" 
WHERE RecordID = 958; 

예, 일부 열만 절대적으로 업데이트 할 수 있습니다. 그것은 최선의 방법입니다, BTW.

마지막으로, "Name"과 "Date"와 같은 예약어 다음에 열 이름을 지정하는 것은 나쁜 습관으로 간주되지만,이 사실을 알고 계십니다.

Answer 2

코드에 Debug.Print sql을 포함하는 것이 현명했습니다. bpayne은 이미 SQL 문에서 여분의 쉼표를 지적했습니다.

SQL 문 문제를 디버깅하는 데 유용한 다른 문제 해결 기술을 지적하고 싶습니다.

직접 실행 창에서 문을 복사하여 새 쿼리의 SQL보기에 붙여 넣습니다. 쿼리 디자이너에서 쿼리가 작동 할 때까지 쿼리를 수정 한 다음 VBA 코드를 수정하여 일치하는 SQL 문을 생성합니다.

이 경우 여분의 쉼표를 발견하지 못했을 수 있습니다. 그러나 새 쿼리를 만들고 쿼리 디자이너에서 처음부터 UPDATE 문을 작성할 수 있습니다. 그 중 하나가 작동되면, 당신은 자사의 SQL보기를 실패한 쿼리와 비교할 수 있습니다.