• 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ủ
•   Vấn đề Tab Control trong tạo Form
  

  Viết bởi: gaupu89 02-04-15, 02:33 PM Chuyên mục: Forms - Bài trả lời (3)

• mình muốn tạo 1 tab control để cập nhật danh mục như trong file cửa mình, thì làm như thế nào, do giờ mới sử dụng tab control nen mình k bít sử dụng nó. đay là file của mình, chạy trên access 2000
  
  http://www.mediafire.com/download/ke2zhm...chuyen.zip
  


•   Demo Tổng hợp: Thảo luận về các kiểu Vòng lặp trong Access
  

  Viết bởi: maidinhdan 01-04-15, 11:49 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (7)

• Kính thưa: Ban quản trị diễn đàn, các bạn thành viên của 4rum thủ thuật Access
  
  Hôm nay xin phép Ban quản trị diễn đàn cho mình lập chuyên mục này mục đích để tổng hợp tất cả các demo về các kiểu vòng lặp trong Access nhằm tìm hiểu, trao đổi, góp nhặt những cú pháp được các anh/chị chế biến ra từ những cú pháp vòng lặp.
  
  Mình cũng biết trên diễn đàn mình cũng có nhiều về vấn đề này nhưng nó cũng hơi rời rạc để có thể tìm hiểu và thảo luận hoặc chia sẽ.
  
  Lý do hôm nay mình làm như vậy: Đó là
  1. Khi mới tập tành về Access mình rất khó khăn khi đọc cú pháp của vòng lặp ( đến nay cũng thế)
  2. Muốn nhận được sự quan tâm, đóng góp của các Anh/chị, các bạn có cùng đam mê Access trong ứng dụng thực tiễn về các kiểu vòng lặp. Để bạn mới, bạn củ cùng nhau học tập, thảo luận...phát triển.
  3. Tổng hợp thành một khu vực riêng, để dễ thảo luận, tìm kiếm.
  4. Để tôi luyên bản thân mình khi nhìn vào kiểu vòng lặp nào cũng có thể giải thích ngay.
  
  Để bắt đầu mình xin liệt kê:
  Cấu trúc lặp Là cấu trúc cho phép điều khiển thi hành lập đi lập lại nhiều lần một hoặc nhiều câu lệnh. Số lần lặp lại tùy thuộc vào kết quả kiểm định 1 điều kiện trong cấu trúc lặp. Các cấu trúc lặp gồm có:
  
  _______________________________________________________________________________________
  
  1. Vòng lặp For
  
  Mã PHP:

  For <biến đếm> = <giá trị đầu> To <giá trị cuối> [Step <bước nhảy>]
<Các câu lệnh>
Next <biến đếm> 

  
  Giải thích cú pháp:
  Lần tương ứng <biến đếm> chạy từ <giá trị đầu> đến <giá trị cuối>. Sau mỗi lần lặp <biến đếm> tăng <bước nhảy> đơn vị, giá trị mặc định của <bước nhảy> là 1, phần nằm trong cặp [ ] là phần tuỳ chọn.
  Vòng lặp For là vòng lặp có số lần lặp xác định, người ta thường gọi tắt là vòng lặp xác định. Nếu muốn kết thúc vòng lặp For vào bất cứ thời điểm nào ta chỉ cần dùng câu lệnh Exit For.
  Ví dụ:
  1) Tính tổng: S = 1 + 2 + ... + n (sử dụng vòng lặp For)
  
  Mã PHP:

  S = 0    ‘ biến S dùng để chứa tổng ban đầu phải đặt bằng không'
For i = 1 To n     ‘ i là biến đếm chạy từ 1 đến n'
S = S + i      ‘ tổng S mới = tổng S cũ + số i'
Next i 

  2) Bài toán vừa gà vừa chó bó lại cho tròn, tổng cộng 36 con và có 100 chân. Hỏi có bao nhiêu gà, bao nhiêu chó?
  
  Mã PHP:

  For i = 1 To 36         ‘ vòng lặp cho số gà'
For j = 1 To 36 ‘ vòng lặp cho số chó (2 vòng lặp lồng nhau)'
If (i + j = 36) And (i * 2 + j * 4 = 100) Then
‘ nếu số gà + số chó =36 và tổng số chân là 100 thì'
Soga = i   ‘ số gà = i'
Socho = j ‘ số chó =j'
End If
Next j ‘ của vòng lặp For trong'
Next i ‘ của vòng lặp For ngoài' 

  3) Tìm tất cả các phương án có thể để đổi 200000 đồng ra các loại tiền 1000 đồng, 2000 đồng và 5000 đồng:
  
  Mã PHP:

  For x=0 To 200         ‘ Số tờ 1000 đồng'
    For y=0 To 100    ‘ Số tờ 2000 đồng    '
         For z=0 To 40     ‘ Số tờ 5000 đồng'
        If (x*1000+y*2000+z*5000=200000) Then
             Msgbox “Số tờ 1000 là: ” & x & “ 2000 là:” & y & “và 5000 là:” & z
        End If
         Next z
    Next y
Next x 

  
  2. Vòng lặp While
  
  Mã PHP:

  Do While <điều kiện>
<Các câu lệnh>
Loop 

  
  Giải thích cú pháp:
  1) Kiểm tra <điều kiện>, nhảy sang bước 2.
  2) Nếu <điều kiện> đúng máy thực hiện <Các câu lệnh> rồi quay lại bước 1. Nếu <điều kiện> sai máy nhảy sang bước 3.
  3) Kết thúc vòng lặp.
  Khác với vòng lặp For, số lần lặp của vòng lặp Do While có thể không xác định được. Do While hoàn toàn có thể thay thế cho For nhưng ngược lại For không thể thay thế cho Do While trong một số trường hợp. Vòng lặp Do While có thể không được thực hiện lần nào nếu ngay từ đầu <điều kiện> đã bị sai.
  
  Ví dụ:
  1) Tính tổng: S = 1 + 2 + ... + n (sử dụng Do While)
  
  Mã PHP:

  S = 0 ‘ biến S chứa tổng'
i = 1  ‘ khởi động biến đếm vòng lặp i'
Do While i <= n ‘ chừng nào i <= n thì:'
S = S + i ‘ cộng thêm vào S giá trị i'
i = i + 1  ‘ tăng giá trị của biến đếm vòng lặp lên 1 đơn vị'
Loop 

  (Chú ý: Câu lệnh i = i + 1 là rất quan trọng bởi không có nó giá trị của biến i không thay đổi làm điều kiện luôn đúng và dẫn tới vòng lặp vô tận - không kết thúc).
  2) Cho n là một số nguyên dương hãy tính tổng tất cả các chữ số của n. Ví dụ: n=2110 thì tổng các chữ số là: 2+1+1+0=4.
  
  Mã PHP:

  S = 0     ‘ Biến S dùng để chứa tổng'
Do While n <> 0     ‘ chừng nào n khác không thì:'
S = S + n Mod 10     ‘ n Mod 10 là phép chia cho 10 lấy phần dư'
n = n \ 10              ‘ n\10 là phép chia n cho 10 lấy phần nguyên'
Loop 

  (Chú ý: Bài toán này chỉ có thể được thực hiện bởi Do While, không thực hiện được với For bởi số các chữ số của n là không xác định)
  
  3. Vòng lặp Do Until
  
  Mã PHP:

  Do Until <điều kiện>
<Các câu lệnh>
Loop 

  
  Giải thích cú pháp:
  1) Kiểm tra <điều kiện>, nhảy sang bước 2
  2) Nếu <điều kiện> đúng thì sang bước 3, ngược lại máy thực hiện <Các câu lệnh> rồi quay lại bước 1.
  3) Kết thúc vòng lặp.
  Vòng lặp Do Until chỉ khác Do While ở chỗ: <điều kiện> trong Do While là điều kiện để lặp còn trong Do Until là điều kiện để kết thúc.
  
  Ví dụ:
  1) Tính tổng: S = 1 + 2 + ... + n (sử dụng Do Until)
  
  Mã PHP:

  S = 0     ‘ biến S chứa tổng'
i = 1      ‘ khởi động biến đếm vòng lặp i'
Do Until i > n ‘ thực hiện cho đến khi i > n'
S = S + i   ‘ cộng thêm vào S giá trị i'
i = i + 1    ‘ tăng giá trị của biến đếm vòng lặp lên 1 đơn vị'
Loop 

  2) Cho n là một số nguyên dương hãy kiểm tra n có phải là số đối xứng hay không. Ví dụ số 92529 là sô đối xứng.
  
  Mã PHP:

  m = n  ‘ m là biến tạm ban đầu nhận giá trị bằng n'
S = 0   ‘ biến S dùng để chứa giá trị số đảo ngược của n'
Do Until = 0 ‘ thực hiện cho đến khi n=0'
S = S*10 + n Mod 10     ‘ lấy S trước * 10 cộng với số dư của n chia cho 10'
m = m \ 10                    ‘ m\10 là phép chia m cho 10 lấy phần nguyên'
Loop
If S = n Then 
‘ n là số đối xứng!'
Else
‘ n không phải là số đối xứng!'
End If 

  
  Xin sửa lại bài cho gọn...những phần bỏ sẽ được tiếp tục trong những ngày tới phía dưới....và kèm cả demo minh họa.
  


• Làm thế nào để nhãn đổi màu mỗi khi lựa chọn Option trong form
  

  Viết bởi: tiennd67 31-03-15, 10:58 AM Chuyên mục: Forms - Bài trả lời (11)

• Chào các bạn!
  
  Trong khi thiết kế form, mình đang gặp một trường hợp như sau:
  
  1. Một form có một khung (Frame) chứa nhiều lựa chọn dạng Option
     
  2. Vì có nhiều Option quá nên mình muốn khi chọn Option nào thì nhãn kèm theo Option đó sẽ đổi màu (Mình đã viết code cho Event Got Forcus đối với mỗi Option)
     
  3. Tuy nhiên, vì có quá nhiều Option nên mỗi khi thay đổi nhãn của một Option lựa chọn thì lại phải trả lại màu đen (0) cho tất cả các Option còn lại nên phần code phải liệt kê toàn bộ ra như vậy sẽ mất rất nhiều thời gian.
     
  Bạn nào cho mình hỏi, có thể thiết kế một Function nào đó dạng:
  Function Doimau(Option được lựa chọn).... để chỉ cần gán vào Event Got Forcus hiện tại thì cái đó đổi màu còn cái khác sẽ hoàn trả lại màu đen như cũ.
  Mình có một số hình mẫu vào file Access 2007 đính kèm nhờ các bạn giúp đỡ.
  
  Trân trọng cảm ơn!
  
  
  
  
  
  
  http://www.mediafire.com/download/7n1yok...ions.accdb
  


•   Code số thứ tự tăng theo điều kiện
  

  Viết bởi: thanhtruong 30-03-15, 02:41 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (1)

• Nhờ mọi người giúp đở mình với
  Mình có một code tìm trên thuthataccess như bên dưới, mình muốn sang năm mới thì mới reset lại 1thì sửa code như thế nào, giúp mình với. (bây giờ cứ sang 1 ngày thì nó lại reset lại 1)[/code]
  
  Mã:

  Private Sub Form_Current() 'kiêÒm tra sôì thýì týò, nêìu Null thiÌ ðây laÌ record mõìi If IsNull(Me.STT) Then STT.Value = SoTT End If End Sub Function SoTT() As String Dim so As Integer so = Nz(DMax("[Couter]", "BangChi", "[Date]= date()")) Couter.Value = so + 1 SoTT = Date & "-" & Format(Couter, "000") End Function
  
  


•   4 trang A4 trên một report
  

  Viết bởi: minhhang02081992 28-03-15, 11:05 PM Chuyên mục: Report - Bài trả lời (4)

• Em đang làm Hợp đồng lao động trên Access2007, trong đó 1 HDLD có 4 mặt giấy, em đặt là 4 mặt A4, đóng dấu dáp lai 4 mặt này lại khi phát hành.
  Nhưng khổ cái là report em đang làm chỉ cho làm có 2 mặt (in dọc - Portrait), tức là chỉ cho 2 trang A4 trong 1 report thôi ah.
  Vậy, anh chị chỉ bảo em làm được 4 mặt giấy A4 trong 1 report nhé.
  Em xin cảm ơn ah.
  



Chủ đề Mới nhất

nv casino — практический ... -Chuyên mục: MS Word-Đăng bởi lần cuối: MichaelHieta-6 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

Peptide research and refe... -Chuyên mục: MS Word-Đăng bởi lần cuối: CarlosDug-10 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

SkfterjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: Danielapams-11 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3

tripscan — Почему предска... -Chuyên mục: MS Word-Đăng bởi lần cuối: NicholasAxiot-Hôm nay, 06:38 AM- » Bài trả lời: 0- » Lượt xem: 3

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,368

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: 158

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: 164

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: 8,163

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: 185

Đồ 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: 670




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 đủ