• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Giai thich gium minh thuoc tinh Source Object
  

  Viết bởi: thiennhiendl 15-06-11, 09:24 PM Chuyên mục: Forms - Không có hồi đáp

• Chao các bạn, mình đang xem 1 source access,
  Trong đó phần Form thiết kế cách truyền tham số từ Form vào và goi thuộc tính Source Object, mình chưa học phần này, hi vọng dưa lên đây để mọi người giải thích dùm. Thanks nhiều.
  
  Forms!TTGTTREN!TTGTTREN.SourceObject = "TGTTREN"
  
  Trong đó TTGTTREN là tên Form
  


•   [ Giúp đỡ ] về cmd go to Next record
  

  Viết bởi: hoaipnb 15-06-11, 05:37 PM Chuyên mục: Forms - Bài trả lời (7)

• Thường là sau khi tới record cuối cùng nếu ta vẫn tiếp tục ân cmd next record thì chương trình sẽ tự động mở 1 new record. Mình muốn khi tới record cuối cùng thì cmd đó ở trạng thái disable hoặc hiện một msg thông báo, tóm lại là ko mở sang đc record mới.
  Làm ơn hướng dẫn dùm mình
  Thanks
  


•   Query lấy dữ liệu theo 2 điều kiện
  

  Viết bởi: night156 15-06-11, 10:03 AM Chuyên mục: Query - Bài trả lời (2)

• Mình đang làm 2 bảng, bảng 1 là chuẩn thời gian Tb_Chuanthoigian(Diadiemdi, Diadiemden, Thoigiandi) và Tb_Thucte(Diadiemdi, Diadiemden, Thoidiemdi, Thoidiemden, Dunggio) voi Thoigiandithucte=Thoidiemden - Thoidiemdi)
  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
  


•   Cách tạo biến trong Query..
  

  Viết bởi: bauauto 14-06-11, 07:32 PM Chuyên mục: Query - Bài trả lời (4)

• chào mọi người!
  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!!
  


•   [Giúp] chuyễn đoạn code sau theo vòng lặp For
  

  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)

• em có đoạn code để ghi mã lớp sau:
  
  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 Sub
  đoạn code trên chạy đc rồi nhưng nếu có mấy nghìn học sinh thì chẳng lẽ lại viết mấy chục dòng if nên nó cồng kềnh quá với lại không khoa học nữa,
  giờ 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 Sub
  Demo file của em đây: http://www.mediafire.com/?3134sbgek1d7i1b
  GIÚP EM SỬA VỚI NHÉ. CÁM ƠN MỌI NGƯỜI ĐÃ DỌC TIN.
  



Chủ đề Mới nhất

Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-Hôm qua, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 20

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: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,273

Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,161

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 6,011

Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 71

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: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,373

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 755

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,071

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,673

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,271




Diễn đàn Thống kê

» Thành viên: 8,215 » Thành viên mới nhất: 99okeapp1 » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ