Tổng hợp Thủ Thuật Access: Access

Duy Tuan

bài viết của Noname
Site: http://thuthuataccess.com
vui lòng giữ tên tác giả và site nếu dùng lại bài viết này làm tư liệu cho mình và chia sẻ. Cám ơn
-------------------------------------------------------------------
Ứng dụng của hàm này vào việc liệt kê danh sách khách hàng, số hóa đơn mất - xóa bỏ, liệt kê các giá trị thỏa điều kiện nào đó trong 1 câu query thành 1 chuỗi.Dùng chuỗi này vào các báo cáo...

Duy Tuan

Writer: Noname
site: http://thuthuataccess.com
Vui lòng giữ nguyên thông tin tác giả và site nếu bạn dùng hoặc chia sẻ thủ thuật này
-------------------------------------
Trong thực tế, một số chứng từ yêu cầu có số tăng dần và reset lại, cụ thể là các sổ thu , chi. Các quyển hóa đơn bán lẻ...
thủ thuật này cho phép chúng ta tạo ra các số chứng từ tăng dần và reset lại 1 khi nhấn vào nút reset.

Tạo số chứng từ tự tăng dần và reset lại mỗi khi người dung yêu cầu

Chúng ta có 1 table lưu các số chứng từ như sau:
Tblhoadon(STT,soHD,ngay, donvi,…)

Duy Tuan

hướng dẫn này cho phép chúng ta tạo 1 form chỉ cho phép người dùng mở 5 lần.
Có thể dùng ràng buộc người dùng phải đăng ký để dùng tiếp.
----------------------------------------------------------
Tác giả và demo: Cafe Via He
Site: http://thuthuataccess.co.cc/forum
Vui lòng giữ tên tác giả và site nếu bạn dùng hoặc chia sẻ code này.
------------------------------------------------
Tạo 1 table tên là FormInfo(FormName,times)
Formname: Text
Times: number

1 Form tên là demo
Trong đó, vẽ 1 textbox tên là txtT để thể hiện số lần mở form. Các yếu tố màu mè khác. Form sẽ có dung nhan như sau
[Image: solanmoform.png]

Trong sự kiện Openform, bạn dùng code sau:

Code:
Private Sub Form_Open(Cancel As Integer)

DoCmd.SetWarnings False

Dim frm As String

Dim t As Integer

    frm = DCount("formname", "Forminfo", "formname='" & Me.Name & "'")

    t = Nz(DLookup("times", "Forminfo", "formname='" & Me.Name & "'"), 0)

If frm = 0 Then 'Neu form chua mo lan nao

    t = t + 1

    DoCmd.RunSQL "Insert into Forminfo(formname,times) values('" & Me.Name & "'," & t & ")"

    txtT = t  

ElseIf frm > 0 And t < 5 Then 'Cong don so lan mo form

    t = t + 1

    DoCmd.RunSQL "Update FormInfo set Times =" & t

    txtT = t

ElseIf frm > 0 And t = 5 Then ' Neu da mo form duoc 5lan

    MsgBox "This form was opened 5 times" & vbCrLf & vbCrLf & "Expired!!!"

    Cancel = True

End If

End Sub

Và nếu form này mở quá 5 lần thì chương trình sẽ không cho mở form nữa!
[Image: exspire5lan.png]

Demo Download

Nếu bạn muốn mở form quá 5 lần thì chương trình tự thoát ra, bạn thay dòng
Cancel=true
Bằng dòng
Docmd.quit
Chúc thành công!

DownLoad Demo
Để thảo luận thêm về chủ đề này, mời vào topic:
http://thuthuataccess.co.cc/forum/thread-273.html

Duy Tuan

Hỏi : Mình đang thiết kế 1 report đặc biệt chỉ cho phép người sử dụng in ra máy in 1 lần duy nhất còn Preview thì thoải mái.
(dongnamnb- Danketoan)

Đáp:
Ý tưởng: Phatnq2002 - DKT
Coding & Demo: Noname: thuthuataccess

Dựa theo Ý tưởng thứ 2 của anh Phatnq2002, Tức là khi xem nó sẽ hiện 1 label cho biết đó không phải là bản chính thức. Còn khi in chính thứ thì ẩn đi, và chỉ cho in chính thức 1 lần rồi khóa lại luôn.

Duy Tuan

Share by: Noname
Site: http://thuthuataccess.com
----------------------------------------
Như các bạn đã biết, có vài loại chứng từ, nhất là các chứng từ in sẵn khống chế số lượng record được viết ra. ( Vì dụ Hóa đơn đỏ)

Vì vậy, thủ thuật này cho phép ta khống chế số lượng record được nhập trong 1 form.
Để xử lý, chúng ta dùng event before_BeforeInsert Của form như sau:

Duy Tuan

Như các bạn biết, Ms Access chỉ cung cấp mỗi hàm làm tròn là hàm Round. Điều này gây 1 số bất tiện khi ta có nhu cầu Round-up, round-down.
Nhân đây, No xin giới thiệu luôn 2 hàm liên quan là hàm Int và hàm Fix:

1/ hàm Round(Số, phần làm lẻ) (Click to Hide)

Ý nghĩa, trả về 1 số làm tròn với quy định chữ số thập phân "phần làm lẻ"
Ví dụ:
Round(11.55 , 0) =>1
Round(11.55,1 ) =>11,6

hàm round không chấp nhận phần làm lẻ là số âm. Vì vậy bạn không thể làm tròn tới hàng chục. Để làm được việc này, bạn cần tham khảo phần sau.

2/ hàm Fix và hàm Int: (Click to Hide)

Cả hai hàm đều trả về phần nguyên của một số. Tuy nhiên khác nhau là nếu phần số xem xét là số âm, thì int sẽ trả về số nguyên âm kế sau số đó. Phần fix trả về số nguyên âm số trước số đó.
Ví dụ:
Int(11,55) =>11
Fix(11,55)=>11
Int(-11,55)=>-11
Fix(-11,55)=> -12

3/ Làm thế nào gọi hàm Roundup, rounddown và làm tròn hàng chục hàng trăm trong Access. (Click to Hide)

3.1 Làm tròn lên và làm tròn xuống. (rounddown và roundup)

Ta phát biểu như sau:
RoundDown
Round(số -0.x5 , n)

Roundup
Round(số +0.x5 , n)
Trong đó x5 là các số 0 có số lượng là n
n là dãy số cần lấy sau dấu thập phân
Round(11.55,1) => 11.6 'round
Round((11.55 -0,05) ,1) =>11.5 'rounddown
Round(11.44 ,1) =>11.4 'round
Round(11.44 + 0.05 ,1) =>11.5 'roundup

3.2 Làm tròn đến số hàng chục, hàng trăm
vì hàm round không chấp nhận đối số là số âm, nên Để làm tròn đến số hàng chục, ta làm như sau:
Round(số/10 , 0)*10

Tương tự làm tròn tới hàng trăm:
Round(số /100 ,0)*100

Ví dụ:
Round(155 / 10, 0) * 10 =>160
Round(155 / 100, 0) * 100 =>200

Tương tự cho hàng ngàn, hàng chục ngàn! big hug

Chúc may mắn
__________________________________________________
Thảo luận thêm tại:http://thuthuataccess.com/forum/thread-214-post-384.html

Pages

Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

30/8/19

24/2/11

10/1/11

6/12/10

21/11/10

19/11/10

30/10/10

16/10/10

14/10/10

8/10/10

7/10/10

6/10/10

22/9/10

17/9/10

14/9/10

11/9/10

6/9/10

29/8/10

19/8/10