• 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ủ
•   Câu lệnh If then trong điều kiện có sử dụng hàm and
  

  Viết bởi: leehoang2011 17-07-21, 06:36 PM Chuyên mục: Macro - Bài trả lời (6)

• Em có bảng Chi đoàn (năm học, mã chi đoàn). Năm học và mã chi đoàn là khóa chính
  Thực hiện chức năng thêm, sau đó bấm lưu để lưu lại
  Trong chức năng lưu em có viết câu lệnh kiểm tra năm học và mã chi đoàn có hay chưa. Nếu có báo nhập lại, ngược lại thì lưu
  VD: Nhập Năm học 2019-2020 , mã chi đoàn 10A7
        Nếu nhập tiếp 2019-2020, mã chi đoàn 10A8 thì lưu, nhưng nếu nhập 2019-2020, mã chi đoàn 10A7 thì báo nhập lại
  Nhờ các anh em chỉ giùm em câu lệnh And trong If viết như vậy sai như thế nào
  
  Private Sub Luu_Click()
  If IsNull(Namhoc) = True Then
      MsgBox "Ban phai nhap nam hoc"
      Namhoc.SetFocus
  Exit Sub
  End If
  If IsNull(Macd) = True Then
      MsgBox "Ban phai nhap ma chi doan"
      Macd.SetFocus
  Else
  If (DCount("Macd", "ChiDoan", "Macd='" & Macd & "'") = 1) And (DCount("Namhoc", "ChiDoan", "Namhoc='" & Namhoc & "'") = 1) Then
          MsgBox "Trong nam hoc ma chi doan da co. Vui long nhap lai"
          Macd.SetFocus
  Else
  DoCmd.RunCommand acCmdSaveRecord
  ListCD.Requery
  End If
  End If
  End Sub
  


•   Cách khóa textbox và di chuyển con trỏ sang textbox khác
  

  Viết bởi: leehoang2011 16-07-21, 11:48 PM Chuyên mục: Forms - Bài trả lời (3)

• Trong Access: em thiết kế Form nhập thông tin học sinh (Mã hs, họ tên, ngày sinh, địa chỉ,...), trên Form đó có nút lệnh sửa. 
  Ý em muốn làm là khi click vào nút lệnh sửa thì mã học sinh sẽ bị khóa và con trỏ xuất hiện ở ô textbox tên học sinh
  


•   Sử dụng hàm SWITCH trong Access
  

  Viết bởi: tungthoi15 14-07-21, 10:23 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1)

• Do trong chuyên mục Hàm, mình không thấy nút Tạo chủ đề, nên mình để tạm bài viết ở đây
    Hàm SWITCH:
  -         Công dụng: Lượng giá 1 danh sách biểu thức và trả về 1 trị hoặc biểu thức tương ứng đâu tiên trong danh sách có trị True
  -         Cú pháp:
  SWITCH(Biểu thức 1, Kết quả 1 [, Biểu thức 2, Kết quả 2…..[,Biểu thức n, Kết quả n]])
  
  [font=Times New Roman]-   *[/font]Switch xét các biểu thức lần lượt từ trái qua phải. Nếu biểu thức 1 là True thì Switch trả về kết quả 1
  [font=Times New Roman]        [/font]Nếu biểu thức 1 là False, Biểu thức 2 là True thì Switch trả về Kết quả 2
  [font=Times New Roman]        [/font]Nếu biểu thức 1 là True mà biểu thức 5 bị lỗi (Ví dụ chia cho 0) thì hàm sẽ báo lỗi chứ không trả về kết quả 1
  [font=Times New Roman]        [/font]Nếu mọi biểu thức đều là False thì hàm sẽ trả về giá trị Null
  [font=Times New Roman]        [/font]Muốn chọn giá trị còn lại khi mọi biểu thức đều False, (cũng giống như chọn tình huống còn lại (Else của lệnh IF; hoặc Case Else của Select Case) thì ta dùng hằng True cho biểu thức cuối cùng;
  VD: Trong Query       SWITCH(DiemTB<5, “Yếu”,
                                  DiemTB>=5 and DiemTB <=6.5, “Trung Bình”,
                                  DiemTB>6.5 and DiemTB <8, “Khá”,
                                  DiemTB>=8 and DiemTB <9, “Giỏi”,
                                  True, “Xuất xắc”)
     ************
  Bài Toán Ví dụ:
                  Cập nhật tiền thưởng vào bảng tblBanhang cho nhân viên
  -         Nếu bán dưới 1.000 sp thì được thưởng 500.000 đ
  -         Nếu bán từ 1.000 sp đến dưới 2.000 sp thì được thưởng 1.000.000 đ
  -         Nếu bán từ 2.000 sp đến dưới 3.000 sp thì được thưởng 3.000.000 đ
  -         Nếu bán từ 3.000 sp đến dưới 4.000 sp thì được thưởng 5.000.000 đ
  -         Từ 4.000 sp trở lên thì được thưởng 7.000.000 đ
  [img][/img]
  
  
  => Nếu dùng Query Update:
  
  Mã PHP:

  UPDATE tblBanHang SET tblBanHang.TienThuong = Switch([doanhsoban]<1000,500000,[doanhsoban]>=1000 And [doanhsoban]<2000,1000000,[doanhsoban]>=2000 And [doanhsoban]<3000,3000000,[doanhsoban]>=3000 And [doanhsoban]<4000,5000000,True,7000000); 

  
  => Nếu dùng Code VBA:
  
  Mã PHP:

  Function TinhThuong()
Dim rs As DAO.Recordset, soluong As Single
Set rs = CurrentDb.OpenRecordset("tblBanhang")
rs.MoveFirst

Do While Not rs.EOF
soluong = rs("doanhsoban")
rs.Edit
rs("TienThuong") = Switch(soluong < 1000, 500000, _
                                              soluong >= 1000 And soluong < 2000, 1000000, _
                                              soluong >= 2000 And soluong < 3000, 3000000, _
                                              soluong >= 3000 And soluong < 4000, 5000000, _
                                              True, 7000000)
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function 

  
  =>>>>>>KẾT QUẢ:
  [img][/img]
  


•   Bỏ lưu dữ liệu trên sub form
  

  Viết bởi: longkd_bvct@yahoo.com.vn 09-07-21, 11:04 AM Chuyên mục: Forms - Bài trả lời (7)

• Chào mọi người ạ. em làm 1 form nhập liệu dạng main sub. Vấn đề là em viết code cho nút "Bỏ qua" khi không muốn lưu dữ liệu 
  . Nhưng chỉ không lưu khi nhập dữ liệu trên main form. còn khi nhập dữ liệu lên sub form thỉ không bỏ lưu dữ liệu được. form dạng boundform ạ. nhờ mọi người xem giúp
  
  
  https://drive.google.com/file/d/1-uN9nLK...sp=sharing
  


•   Hàm rẽ nhánh
  

  Viết bởi: leehair 07-07-21, 02:51 PM Chuyên mục: Query - Bài trả lời (12)

• Mọi người cho mình hỏi chút trong Access có hàm nào để rẽ nhánh có điều kiện ko? vì nếu lồng nhiều iif vào rối quá mà có vẻ ko tối ưu code lắm. Cảm ơn mọi người!
  



Chủ đề Mới nhất

Cần giúp Dmax function ch... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: tranthanhan1962-1 Giờ trước- » Bài trả lời: 1- » Lượt xem: 22

Điền dữ liệu tự động trên... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: tranthanhan1962-11 Giờ trước- » Bài trả lời: 5- » Lượt xem: 83

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: handmedi-28-07-21, 11:56 PM- » Bài trả lời: 25- » Lượt xem: 3,009

[Khắc phục] Lỗ hổng bảo m... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: ongke0711-28-07-21, 04:59 PM- » Bài trả lời: 1- » Lượt xem: 51

[Khắc phục] 4 lỗ hổng mới... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: maidinhdan-28-07-21, 03:31 PM- » Bài trả lời: 0- » Lượt xem: 41

Giúp trừ ngày tháng -Chuyên mục: Query-Đăng bởi lần cuối: minhhvm94@gmail.com-27-07-21, 05:03 PM- » Bài trả lời: 6- » Lượt xem: 144

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-27-07-21, 02:47 PM- » Bài trả lời: 1- » Lượt xem: 41

[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: dotrung-23-07-21, 11:49 AM- » Bài trả lời: 27- » Lượt xem: 2,665

[Demo p2] Tìm kiếm và tô ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ledangvan-21-07-21, 11:04 PM- » Bài trả lời: 11- » Lượt xem: 497

[Demo P1] Tạo khóa bản qu... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: nuinvtnu-21-07-21, 03:32 PM- » Bài trả lời: 60- » Lượt xem: 10,675




Diễn đàn Thống kê

» Thành viên: 3,793 » Thành viên mới nhất: KIN L » Các chủ đề diễn đàn: 9,481 » Các bài viết diễn: 45,866 Thống kê đầy đủ