Tạo checkbox cho Access Form??? (1 người xem)

[nick_nguyen]

Chào cả nhà !
Các bạn vui lòng cho mình hỏi về cách tao checkbox của Access Form.
Mình có đoạn code như sau:

Private Sub Check76_Click()
If (Me.Check76 = True) Then
Me.Check76.Value = "kế toán"
Else
Me.Check76.Value = ""
End If
End Sub

Sau khi mình click vào cái ô checkbox, nó sẻ ghi "nhân viên" vào trong 1 cột của table nhân viên của mình. Mình vẫn sữ dụng nó được như bình thường.
Nhưng chỉ co 1 điều là: Sau khi mình add code vào onclick event của ô checkbox. Nó không hiện dấu check giông như check74 như ở dưới hình. Mà nó hiện ra 1 cái ô màu xanh như ô check76. Và không tắt nó được dù lick thêm mấy lần nữa.
CẢ nhà vui lòng giúp mình, làm sao để hiên dâu check ở ô check box mỗi khi mình lick vào, và mất đi khi mình click thêm lần nữa.
Thành thật cám ơn cả nhà
Vui lòng xem hình sau:

 

[Hai Lúa Miền Tây]

Chào cả nhà !
Các bạn vui lòng cho mình hỏi về cách tao checkbox của Access Form.
Mình có đoạn code như sau:

Private Sub Check76_Click()
If (Me.Check76 = True) Then
Me.Check76.Value = "kế toán"
Else
Me.Check76.Value = ""
End If
End Sub

Sau khi mình click vào cái ô checkbox, nó sẻ ghi "nhân viên" vào trong 1 cột của table nhân viên của mình. Mình vẫn sữ dụng nó được như bình thường.
Nhưng chỉ co 1 điều là: Sau khi mình add code vào onclick event của ô checkbox. Nó không hiện dấu check giông như check74 như ở dưới hình. Mà nó hiện ra 1 cái ô màu xanh như ô check76. Và không tắt nó được dù lick thêm mấy lần nữa.
CẢ nhà vui lòng giúp mình, làm sao để hiên dâu check ở ô check box mỗi khi mình lick vào, và mất đi khi mình click thêm lần nữa.
Thành thật cám ơn cả nhà
Vui lòng xem hình sau:

Nó nằm yên không động đậy là do code của bạn có vấn đề.

Giá trị của CheckBox là true hoặc false, thực ra mục đích của bạn là gì ?

 

[nick_nguyen]

Chao anh!
Em chỉ muốn làm 3 cái checkbox khi lick vào đó nó ghi vào trong bảng 1 giá trị mà em đã ấn định từ trước.
Ví dụ như em có 3 cái check box cho "kế toán" "nhân viên" và "thủ kho"
Nếu check box "thủ kho" được checked
thì gí trị " thủ kho " sẻ được điền vào table employee cột "chức vụ".Tương tự với 2 cái check box kia.
Khi em click vào "thủ kho" thì trong cột đã hiện lên giá trị thủ kho. Nhưng không hiểu vì sao ở form cái check box nó lại bi như e đã nêu trên. Và em không biết phải sữa như thế nào.

Thanks

 

[Hai Lúa Miền Tây]

Chao anh!
Em chỉ muốn làm 3 cái checkbox khi lick vào đó nó ghi vào trong bảng 1 giá trị mà em đã ấn định từ trước.
Ví dụ như em có 3 cái check box cho "kế toán" "nhân viên" và "thủ kho"
Nếu check box "thủ kho" được checked
thì gí trị " thủ kho " sẻ được điền vào table employee cột "chức vụ".Tương tự với 2 cái check box kia.
Khi em click vào "thủ kho" thì trong cột đã hiện lên giá trị thủ kho. Nhưng không hiểu vì sao ở form cái check box nó lại bi như e đã nêu trên. Và em không biết phải sữa như thế nào.

Thanks

Nói chung cái code trên là không đúng như bài 2 mình đã nói.

Private Sub Check76_Click()
If (Me.Check76 = True) Then MsgBox "Ban dien gia tri nay vao cái nào dó cua ban"

End Sub

 

[nick_nguyen]

Em vẫn chưa hiểu lắm về ví dụ trên cua anh. E có đoạn code như sau , không bít sai chỗ nào mà nó vẫn nhân dạng được check box

Private Sub Check76_Click()
If Me.Check76 = True Then
Me.Check76.Value = "kế toán" // nếu check box được check thì giá trị kế toán se được điền vào table
Else
Me.Check76.Value = False
End If
End Sub

E làm được rồi cám ơn anh! Nhưng em không hiểu tại sạo mình phải cho hiện cái messagebox thì mới chép dữ liệu vào được.
code như sau:

Private Sub Check78_Click()
If (Me.Check78 = True) Then MsgBox "testing"
Me.Check78 = "gia tri"
End Sub

A vui lòng cho em hỏi luôn là, nhưng khi em lick 1 lần nữa thì dữ liêu đó không tư xoá đi. Có cách nào để e check lần thì nhất nó sẻ chép dữ liệu vào, và em uncheck thì dữ liệu sẽ xoá đi không anh.
Thành thật cám ơn anh đã giúp

 

[Hai Lúa Miền Tây]

E làm được rồi cám ơn anh! Nhưng em không hiểu tại sạo mình phải cho hiện cái messagebox thì mới chép dữ liệu vào được.
code như sau:
Private Sub Check78_Click()
If (Me.Check78 = True) Then MsgBox "testing"
Me.Check78 = "gia tri"

A vui lòng cho em hỏi luôn là, nhưng khi em lick 1 lần nữa thì dữ liêu đó không tư xoá đi. Có cách nào để e check lần thì nhất nó sẻ chép dữ liệu vào, và em uncheck thì dữ liệu sẽ xoá đi không anh.
Thành thật cám ơn anh đã giúp

Thử như sau nhé

Private Sub Check0_Click()
If Check0.Value = True Then
    txtTest = "Thu chut choi"
    Label5.Caption = "Da click vao"
  Else
    txtTest = ""
    Label5.Caption = "Click vao em di"
End If

End Sub

 

[nick_nguyen]

Cám ơn anh domfootwear nhiều ! E đã làm được rồi.
Thanks for your time ! You're awesome!