기록에 초점이 맞춰지면 체크 박스를 선택 해제합니다.

나는이 문제에 대해 이미 답변을 얻었지만 추측 할 수는 없습니다.기록에 초점이 맞춰지면 체크 박스를 선택 해제합니다.

어쨌든, 나는 레코드를 찾기 위해 액세스 할 때 바코드 스캐너를 사용합니다 (텍스트 상자의 숫자를 입력 한 다음 입력을 누르십시오). 필요한 것은 rs.FindFirst를 사용하여 레코드가 발견되면 이름이 지정된 "감사 확인"이라는 확인란 필드가 선택 취소되도록하는 것입니다.

여기는 검색 코드입니다.이 이벤트에 통합 될 수 있다고 생각합니다.

Private Sub BarcodeBox_AfterUpdate() 
Dim rs As DAO.Recordset 

If Not IsNull(Me![Barcodebox]) Then 
    Set rs = Me.RecordsetClone 
    rs.FindFirst "[Barcode] = '" & Me![Barcodebox] & "'" 
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark 
Else 
    Exit Sub 
End If 
End Sub

고맙습니다.

출처

2013-10-29 user2744572

이

If Not rs.EOF Then 
Me.Bookmark = rs.Bookmark 
Me.MyCheckbox = True 
End If

출처

2013-10-29 17:19:15

에

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

이를 시도 변경해보십시오, 나는 컴파일 오류가 발생했습니다 : 방법이나 데이터 멤버가 내가 뭔가에 Me.MyCheckBox를 변경해야합니까 발견되지? – user2744572

확인란 개체의 이름입니다. 당신은 당신의 양식에 무엇이 불려 졌는지 언급하지 않았습니다. 나는 "Audit Check"가 테이블의 필드 이름이라고 가정했지만 체크 박스 개체의 이름이 공백을 사용하고 있는지 확인하십시오 (예 : 나 [Audit Check]). –

그게 내가 생각한 것입니다. 고마워. 조니. 그것의 작업 위대한 1 제외. 거기에없는 바코드가 스캔되면 런타임 오류 '3020'이 나타납니다 : AddNew 또는 Edit없이 업데이트를 업데이트하거나 취소하십시오. 대신이 오류를 수정하여 바코드를 찾을 수 없다는 msgbox를 제공하는 방법이 있습니까? – user2744572

기록에 초점이 맞춰지면 체크 박스를 선택 해제합니다.

답변

관련 문제