• 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 (2)

• 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]])
  
  -   *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
          Nếu biểu thức 1 là False, Biểu thức 2 là True thì Switch trả về Kết quả 2
          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
          Nếu mọi biểu thức đều là False thì hàm sẽ trả về giá trị Null
          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

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

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

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

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

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

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

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

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

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

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




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