Tùy chọn
Giúp mình làm Form có Option với.
- Giúp mình làm Form có Option với.
-
RE: Giúp mình làm Form có Option với.
lala_86 > 11-04-12, 02:53 PM
(10-04-12, 11:04 AM)haquocquan Đã viết: Bạn xem Row Source, Column Count, Column Bound trong combo2 của form BAOCAO
Bạn ơi, mình còn bài này nữa, cũng có Option dùng để lựa chọn Tìm đồng thời tìm xong muốn xem in thì có thể nhấn nút Thực hiện in.
File của mình đây
http://www.mediafire.com/?8675mgll2q94wtp
Cám ơn bạn trước nhé.
-
RE: Giúp mình làm Form có Option với.
lala_86 > 13-04-12, 09:47 AM
Hix. Ngày 22.04 là kiểm tra Tin rồi. -
RE: Giúp mình làm Form có Option với.
haquocquan > 13-04-12, 07:34 PM
Bạn xem có đúng ý không nhé.
form DIENTHOAI của bạn đã có một textbox MODEL bên trên, nên mình xóa textbox MODEL bên dưới đi.
Download tại đây: DEMMO -
RE: Giúp mình làm Form có Option với.
lala_86 > 13-04-12, 08:45 PM
(13-04-12, 07:34 PM)haquocquan Đã viết: Bạn xem có đúng ý không nhé.
Mình nhìn kỹ lại cái đề bài tập của mình là có cái text box "Nhập model cần tìm" ở dưới và ở dưới cái text box đó có nút "tìm" nữa bạn ơi. Nếu như vậy thì sẽ đổi lại code haquocquan nhỉ? Có điều mình hơi tệ về code. Lại phải làm phiền haquocquan lần nữa. Hi hi
form DIENTHOAI của bạn đã có một textbox MODEL bên trên, nên mình xóa textbox MODEL bên dưới đi.
File bài tập đầy đủ các yêu cầu đây:http://www.mediafire.com/?n9tsn7260d8wi38 -
RE: Giúp mình làm Form có Option với.
haquocquan > 13-04-12, 08:55 PM
Trong file của bạn, bạn để nguyên, copy đoạn code này vào khi tạo code cho nút lệnh :
Private Sub Command17_Click()
If Frame11 = 1 Then
DoCmd.OpenReport "DIENTHOAI", acViewPreview, , "[MODEL]='" & Me.MODEL & "'"
Else
DoCmd.OpenReport "DIENTHOAI", acViewPreview
End If
End Sub
Và thay phần tô đỏ thành Me.Text9 -
RE: Giúp mình làm Form có Option với.
lala_86 > 14-04-12, 02:43 PM
(13-04-12, 08:55 PM)haquocquan Đã viết: Trong file của bạn, bạn để nguyên, copy đoạn code này vào khi tạo code cho nút lệnh :
Private Sub Command17_Click()
If Frame11 = 1 Then
DoCmd.OpenReport "DIENTHOAI", acViewPreview, , "[MODEL]='" & Me.MODEL & "'"
Else
DoCmd.OpenReport "DIENTHOAI", acViewPreview
End If
End Sub
Và thay phần tô đỏ thành Me.Text9
Cám ơn bạn nhiều nhé, mình đã làm được rồi.
Hi hi, ôn tập tốt để thi thui.