HoangManh > 27-04-17, 10:10 AM
(27-04-17, 08:57 AM)HoangManh Đã viết:(26-04-17, 07:41 PM)ongke0711 Đã viết: PKey là AutoNumber thì bạn không đưa nó vào giữa 2 dấu nháy đơn " ' " được.
--> WHERE PKEY = " & lsPkeyBrk
Anh cho em hỏi là em muốn lấy dữ liệu từ sqldb lên bảng tạm ở access với trừong yes/no . thì phải format data từ sql thế nào ạ. trong sql em cũng lưu là yes/no. khi gọi ra thì vẫn gọi đựoc là true nhưng không hiểu sao không lưu đựoc vào bảng access. dù true thì khi vào bảng nó cũng khác thành false.
Em cảm ơn ạ
ongke0711 > 27-04-17, 11:03 AM
HoangManh > 27-04-17, 11:48 AM
(27-04-17, 11:03 AM)ongke0711 Đã viết: Trong SQL thì field Yes/No nó sẽ lưu là -1 cho Yes, True; 0 cho No, False. Bạn dùng số này cho điều kiện truy vấn xem thử.
ongke0711 > 27-04-17, 12:22 PM
(27-04-17, 11:48 AM)HoangManh Đã viết: anh cho em hỏi là có cách nào sau khi checkbox đã chọ thì không click đựoc nữa không ạ. Ví dụ ở trên danh sách có cột Yes/No khi đã chon Yes thì không đựock sửa thành No không ạ
HoangManh > 27-04-17, 12:57 PM
(27-04-17, 12:22 PM)ongke0711 Đã viết:Đây là yêu cầu là làm như thế ạ. khi lock rồi họ vẫn sửa nhưng sẽ ra một msg bõ là có muốn sửa không. chọn ko thì sẽ reset lại bảng . nếu có thì họ tiếp tục sửa rồi cuối cùng bấm nút save ỏ cuối lại . txtlock thì em biết nhưng còn chẹkbox thì sao ạ(27-04-17, 11:48 AM)HoangManh Đã viết: anh cho em hỏi là có cách nào sau khi checkbox đã chọ thì không click đựoc nữa không ạ. Ví dụ ở trên danh sách có cột Yes/No khi đã chon Yes thì không đựock sửa thành No không ạ
Theo tôi bạn không nên làm như vậy. Đứng trên vai trò người dùng rủi họ lỡ bấm sai thì bạn lock lại luôn không cho họ sửa à?
Một cách khác linh động hơn chút là chỉ sau khi bấm nút Save thì bạn sẽ lock dữ liệu đó lại, không cho sửa.
Có nhiều trường hợp để lock này: lock trên form, lock trên Recordset v.v..
Nếu Lock trên form thì có phương thức Texbox.Locked = True đó bạn
tranthanhan1962 > 27-04-17, 01:40 PM
Private Sub checkbox _Click()
If checkbox.value=False then
checkbox.value=True
Else
checkbox.value=True
End IfPrivate Sub checkbox _Click()
checkbox.value=true
checkbox.Locked = True
End IfHoangManh > 27-04-17, 01:45 PM
HoangManh > 27-04-17, 02:35 PM
(27-04-17, 01:45 PM)HoangManh Đã viết:(27-04-17, 01:40 PM)tranthanhan1962 Đã viết: Có thể dùng 2 cách xử lý:Em cảm ơn anh ạ.
Mã:Private Sub checkbox _Click()
If checkbox.value=False then
checkbox.value=True
Else
checkbox.value=True
End If
hoặc
Mã:Private Sub checkbox _Click()
checkbox.value=true
checkbox.Locked = True
End If
tranthanhan1962 > 27-04-17, 03:12 PM
(27-04-17, 02:35 PM)HoangManh Đã viết: Anh làm ơn cho em hỏi là. txtbox ngoai locked thì có cái làm để lock mà ngay cả khi click vào cùng không đựoc không ạCái này phải chơi chiêu. Khi thiết kế bạn tạo 1 label không có caption đè lên checkbox (hoặc bất kỳ control nào mà bạn muốn xử lý sau khi click vào nó nó còn nhìn thấy nhưng sẽ bị đơ như cây cơ)
Private Sub Form_Load()
Label.Visible = False
End Sub
Private Sub checkbox _Click()
DoCmd.GoToControl "ABC"
checkbox.value=true
Label.Visible=True
End SubHoangManh > 27-04-17, 03:45 PM
(27-04-17, 03:12 PM)tranthanhan1962 Đã viết:(27-04-17, 02:35 PM)HoangManh Đã viết: Anh làm ơn cho em hỏi là. txtbox ngoai locked thì có cái làm để lock mà ngay cả khi click vào cùng không đựoc không ạCái này phải chơi chiêu. Khi thiết kế bạn tạo 1 label không có caption đè lên checkbox (hoặc bất kỳ control nào mà bạn muốn xử lý sau khi click vào nó nó còn nhìn thấy nhưng sẽ bị đơ như cây cơ)
Khi mở form thì cho lable đó ẩn đi.
Chú ý trước khi cho Label hiện lên phải dời con trỏ khỏi Checkbox chỗ khác để phòng ngừa lỗi code.Mã PHP:Private Sub Form_Load()
Label.Visible = False
End Sub
Khi bạn click vào Checkbox code xử lý cho label hiện lên đè checkbox nên sau đó khi bạn tiếp tục click vào checkbox thực ra bạn click vào Label nên thấy checkbox đơ như cây cơ. Chú ý nhớ set Tab Stop của checkbox = No để không cho người dùng sử dụng phím Tab di chuyển đến CheckboxMã:Private Sub checkbox _Click()
DoCmd.GoToControl "ABC"
checkbox.value=true
Label.Visible=True
End Sub