Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: night156 15-06-11, 10:03 AM Chuyên mục: Query - Bài trả lời (2) |
Mình muốn tạo 1 query để khi nhập liệu ở Form thực tế thì sau khi nhập đủ đỉa điểm đi, địa điểm đến, thời điểm đi, thời điểm đến thì tự truy xuất được từ bảng chuẩn thời gian để biết xe này đi có quá giờ hay không, ontime hay không ontime
Mình cám ơn trước sự giúp đỡ của các bạn, vì mình mới học access nên chắc còn gà lắm
|
Viết bởi: bauauto 14-06-11, 07:32 PM Chuyên mục: Query - Bài trả lời (4) |
mình có 1 vấn đề xin mọi người chỉ giáo!
Mình tạo 1 Query. Và trong bảng Query này có nhiều record, và nhiều field..vấn đề là bây giờ mình muốn xuất ra Report có các textbox và source của chúng là từ những mẩu tin trên 1 record tai 1 field xác định theo ý muốn trong bảng Query trên .
Ở đây mình không thể design report có controlsource của các textbox là bảng Query đó. Vì như thế nó sẽ xuất ra 1 loạt và chỉ có thể có 1 dòng Label..trong khi đó yên cầu trên mỗi textbox phải có 1 label theo ý mình...
Nên muốn xuất ra các textbox có source ở mỗi Texbox là 1 biến tại record bất kì của field bất kì trong bảng query trên để có thể di chuyển theo ý thích...
Mình muốn tạo 1 biến trong bảng Query đó giống như trong Table cho dễ tùy biến sử dụng....
mình đã dùng phương thức Openrecordset trong Table rất tốt nhưng sao trong Query nó cứ báo "too few Parameter..."
về cách thức dùng Querydef mình cò gà quá..Mong mọi người chỉ giáo...
thanks!!
|
Viết bởi: dieuchinhlu 14-06-11, 03:27 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (10) |
Mã:
Public Sub Lopvh()
Dim rs As DAO.Recordset
DoCmd.SetWarnings False
Set rs = CurrentDb.OpenRecordset("TableTemp", dbOpenDynaset)
rs.MoveFirst
i = 1
If Not rs.BOF And Not rs.EOF Then
Do Until rs.EOF
rs.Edit
If i > 0 And i <= 45 Then
rs![Lopvh] = Me.TXT_LOP & "1" & Year(Date)
ElseIf i > 45 And i <= 90 Then
rs![Lopvh] = Me.TXT_LOP & "2" & Year(Date)
ElseIf i > 90 And i <= 135 Then
rs![Lopvh] = Me.TXT_LOP & "3" & Year(Date)
ElseIf i > 135 And i <= 180 Then
rs![Lopvh] = Me.TXT_LOP & "4" & Year(Date)
End If
i = i + 1
rs.Update
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Me.Refresh
End Subgiờ em muốn chuyển qua hàm For chạy từ i tới n, với n là tổng số học sinh.
Các số "1","2","3"... là bội của 45 nhưng không quá tổng số học sinh.
ví dụ:
em có 1800 học sinh cần xếp lớp
n = 1800
k = 40
thì mã lớp là :
HS từ 1 - 45 : A1
HS từ 46 - 90 : A2
...
HS từ 1755 - 1800: A40
còn đây là cái em viết: chạy xong treo Access luôn
Mã:
Public Sub Lopvh1()
Dim rs As DAO.Recordset
Dim k, i, N As Integer
DoCmd.SetWarnings False
Set rs = CurrentDb.OpenRecordset("TableTemp", dbOpenDynaset)
rs.MoveFirst
i = 1
k = 1
N = Me.Text60 ' tong so hoc sinh
If Not rs.BOF And Not rs.EOF Then
Do Until rs.EOF
For i = 1 To N
If k <= Round(N / 45, 0) Then
rs.Edit
rs![Lopvh] = Me.TXT_LOP & k & Year(Date)
End If
i = i + 1
k = k + 1
rs.Update
rs.MoveNext
Next i
Loop
End If
rs.Close
Set rs = Nothing
Me.Refresh
End SubGIÚP EM SỬA VỚI NHÉ. CÁM ƠN MỌI NGƯỜI ĐÃ DỌC TIN.
|
|
Viết bởi: chauho 14-06-11, 03:18 PM Chuyên mục: Forms - Bài trả lời (4) |
Mình muốn thiết kế giống hình này nhưng ko biết thiết kế sao
|
|
Viết bởi: hoangthanhhai 13-06-11, 06:14 PM Chuyên mục: Forms - Bài trả lời (6) |
Các bạn giúp mình xử lý subform trong tab Nghỉ phép như sau:
1. Khóa định dạng “Ch_Nghiphep” không cho thay đổi độ rộng của dòng và cột, vì mình muốn sử dụng thanh cuộn dọc (Scroll Vertical) để xem dữ liệu khi có nhiều bản ghi nên mình không sử dụng thuộc tính Visible để khóa subform.
2. Tại nút lệnh “comm_luu” trong Subform “Ch_Nghiphep1” làm thế nào để nó làm tươi dữ liệu trong “Ch_Nghiphep” sau khi nhập dữ liệu. Hoặc tại nút lệnh “Lưu 1” làm sao để nó nhảy đến bản ghi mới trong Subform “Ch_Nghiphep1”.
3. Tính tổng ngày phép đã nghỉ tại “Tongphep”.
File đính kèm: http://www.mediafire.com/?yzadcpg5izn3t29
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,274 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 125 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 145 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,875 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 156 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 582 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 173 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 504 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,593 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 271 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |