VBA를 사용하여 테이블에 확인란을 설정하지 마십시오

Question

SAVE 버튼의 코드에서 레코드를 저장하고 레코드를 저장하고있는 테이블과 다른 테이블에 확인란을 표시하고 싶습니다. . 기본적으로 체크리스트 테이블과 비슷합니다. 나는 -1 내가 시도 있도록 체크 표시를 나타냅니다 알고

Me.tblProjectCompletion.Done = -1 

와 나는 Me없이 노력했다.

나는 또한 그것을 테이블에 저장하기 위해 먼저 폼에 넣으려고했지만 다른 문제가 발생했습니다. 나는 그것이 가장 좋은 것 projectID에 대해 원하는 테이블에 체크 표시를 절약 할 수 있습니다, 그래서 나는 또한 시도하는 경우 :

if ProjectCompletion.ProjectCompID = Project.ProjectID then tblProjectCompletion.Done = -1 

하지만 같은 코드 중 하나를 작동하지 않습니다. 어떤 제안?

Currentdb.Execute 
Update ProjectCompletion 
Set [ProjectCompletion].[Done] = -1 
WHERE [ProjectCompletion].[ProjectCompID] = [Project].[ProjectID] 

이 코드는 대괄호와 따옴표없이 사용하고 마지막에는 세미콜론을 사용했습니다. 이 패턴을 사용하면 실행시 중지되고 argument not optional라고 표시됩니다. 다음 코드가 작동합니다. 난 그냥 확인란의 검사를 추가해야합니다.

Private Sub Save_Record_Click() 
DoCmd.RunCommand acCmdSaveRecord 
If Me.Dirty Then 
Me.Dirty = False 
End If 
End Sub 

Answer 1

오케이, 이렇게 나는 폼 모듈이라고 추측합니다. = -1 CurrentDb.Execute "UPDATE TABLENAME SET 필드 이름 : 문제는 당신이 그렇게 당신과 같은 업데이트 문을 사용하는 데 필요한 CurrentRecord 속성을

CurrentDb.Execute "UPDATE ProjectCompletion SET [ProjectCompletion].[Done] = -1 WHERE [ProjectCompletion].[ProjectCompID] = " & Me.Recordset.Fields("ProjectID").Value