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

Bấm F9 chọn hết giá trị lọc của form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Bấm F9 chọn hết giá trị lọc của form
• Bấm F9 chọn hết giá trị lọc của form

• RE: Bấm F9 chọn hết giá trị lọc của form

  ongke0711 > 16-02-20, 06:54 PM

  (16-02-20, 06:02 PM)dotrung Đã viết: Em vẫn bị lỗi 3061, too few parameters, Expected 1

  
  Bạn gửi cái file lên đây.
  Kiểm tra lại tên Field xem. Field dạng Number hay text thì phải thay đổi câu lệnh SQL lại.

• RE: Bấm F9 chọn hết giá trị lọc của form

  dotrung > 17-02-20, 08:22 AM

  Gửi anh Ongke0711 xem dùm em
  
  name: trung
  pass & passvba: dotrung
  
  http://www.mediafire.com/file/jzeqazgyx8...9.rar/file

• RE: Bấm F9 chọn hết giá trị lọc của form

  ongke0711 > 17-02-20, 02:49 PM

  (16-02-20, 06:02 PM)dotrung Đã viết: Em vẫn bị lỗi 3061, too few parameters, Expected 1

  
  Xin lỗi, đây là lỗi của tôi do đưa code thiếu một chút. 
  Nó sai ở dòng này:
  
  Me.[Frm_chondmhh].Form.Filter --> Nó sẽ lấy luôn tên Form + Tên Field nên khi đưa vô câu lệnh SQL nó sẽ sai cú pháp.
  
  Ví dụ:
  Sai: UPDATE temp_chondmhh SET temp_chondmhh.chon = True WHERE (Frm_chondmhh.[Mahang] In ("8S003l6","8S004l6","8S005l6"))
  
  Phải thay thế tên form thành tên table: 
  
   & Replace(Me.Frm_chondmhh.Form.Filter, "[Frm_chondmhh]", "temp_chondmhh")
  
  Đúng:
  
  UPDATE temp_chondmhh SET temp_chondmhh.chon = True WHERE (temp_chondmhh.[Mahang] In ("8S003l6","8S004l6","8S005l6"))
  
  
  Bạn dùng code bên dưới cho Main Form, code tương tự trong SubForm bỏ hết đi.
  
  
  

  Mã PHP:

  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim blnFiltered As Boolean
    blnFiltered = Me.Frm_chondmhh.Form.FilterOn

    Select Case KeyCode
    Case vbKeyF9
        Select Case blnFiltered
        Case True
            sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True WHERE " & Replace(Me.Frm_chondmhh.Form.Filter, "[Frm_chondmhh]", "temp_chondmhh")
        Case False
            sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True"
        End Select

    Case vbKeyX And Shift = acCtrlMask
        sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = False"
    End Select
    'Debug.Print sSQL
    CurrentDb.Execute sSQL, dbFailOnError
    Me.Frm_chondmhh.Requery

End Sub 


• RE: Bấm F9 chọn hết giá trị lọc của form

  ongke0711 > 17-02-20, 03:11 PM

  (17-02-20, 08:22 AM)dotrung Đã viết: Gửi anh Ongke0711 xem dùm em
  
  name: trung
  pass & passvba: dotrung
  
  http://www.mediafire.com/file/jzeqazgyx8...9.rar/file

  
  Một đống góp ý khác về cái file của bạn.
  Phải nói là rất kinh hãi khi xem toàn bộ cái file ứng dụng này của bạn. Nó như là cái lẩu thập cẩm vậy.
  Tôi dám chắc bạn chưa bao giờ bấm cái nút Debug -> Compile Database trên thanh menu. Bạn bấm đi, nó sẽ ra một trời lỗi: thiếu khai báo biến, thiếu hàm, thiếu sub v.v.. 
  Đặc biệt cái hàm API BrowserFolder. Nó thiếu một rừng các khai báo biến, hằng, hàm API đi kèm -> do copy không đầy đủ. Chưa kể việc lặp lại hàm ở các module, hàm nào ở Form module, hàm nào nên ở Module bạn phải tự học thêm.
  - Việc góp nhặt code từ nhiều nguồn cho ứng dụng chẳn có gì là xấu cả, tội gì mình phải viết code lại khi người ta đã viết ra cái code đó khá tốt rồi, đỡ mất thời gian. Nhưng vấn đề là bạn không chọn lọc cái nào nào phù hợp cho ứng dụng của mình. Khi copy code cũng không copy đầy đủ. 
  - Code nào chưa cần dùng, bạn cũng copy đầy trong đó sau này nó đụng tùm lum, ngồi truy ra lỗi cũng mệt.
  - Bạn có thấy mỗi khi vô chế độ Form Design, nó chậm rì không? Đó là do form đó lấy RecordSource từ Linked Table, mà Database để link này bạn cài Password rồi nên mỗi khi kết nối, nó phải qua thêm công đoạn kiểm tra pass, giải mã hoá Database -> rất chậm. Trong giai đoạn thiết kế này bạn khoan hãy đặt Pass file BE, sau khi hoàn tất các nghiệp vụ chính, đến phần bảo mật CSDL thì hãy làm nó.
  
  Tôi khuyên là bạn nên xây dựng ứng dụng từng bước, Form nào ra form đó, kèm các Table đi kèm, sau khi xong một nghiệp vụ nào đó rồi hãy copy tiếp code phục vụ cho công việc khác. Sau khi xong một form thì chạy Debug xem có báo lỗi gì không, nếu không thì mới bắt tay làm cái khác.
  Nói chung là còn nhiều nhưng nói mấy cái chính thôi nhé.

• RE: Bấm F9 chọn hết giá trị lọc của form

  dotrung > 17-02-20, 06:34 PM

  Dạ, em rất cảm ơn góp ý của anh ongke0711, em sẽ cố gắng học thêm, nghiên cứu và setup lại cho gọn. chúc anh nhiều sức khỏe để chia sẻ nghiều kinh nghiệm hay cho mọi người.
  Sau này em xin rút kinh nghiệm khi sử dụng code của người khác.

• RE: Bấm F9 chọn hết giá trị lọc của form

  ongke0711 > 18-02-20, 04:32 PM

  Góp ý cho bạn về Form Đăng Nhập.
  
  Như tôi có nói là bạn dùng Linked table với file Database backend có đặt mật khẩu nên việc kết nối, thao tác trên dữ liệu sẽ có độ trễ. Có một giải pháp là luôn duy trì kết nối tới một table nào đó ở backend database và giải pháp này tôi đã có làm demo ở bài theo link bên dưới, bạn xem và áp dụng vào ứng dụng này.
  
  Link: Tăng tốc truy cập dữ liệu từ Linked Table
  
  Bên cạnh đó có một số vấn đề về code cũng như trình tự xử lý của form Đăng Nhập này.
  - Vòng lặp không cần thiết.
  - Dư thừa thao tác kiểm tra file Database BE có tồn tại không. Dir ("SOURCE", "INDEX").
  
  + Khi bấm nút [Đăng nhập]: bạn chạy vòng lặp qua toàn bộ table T_PhanQuyen để kiểm tra Username và Pass đăng nhập có đúng không. Dùng vòng lặp thì đúng nhưng bạn không thoát vòng lặp sau khi đã tìm được đúng Record cần tìm mà nó vẫn chạy tiếp cho đến hết Recordset --> lãng phí thời gian. 
  
  ---------------------------------------------------------------------------------
  rs.MoveFirst
  
  Do Until rs.EOF
     If rs![use] = Me.Txttendangnhap And GiaiMa(rs![pw], 8) = Me.Txtmatkhau.Value Then
        KT = True
        Exit Do '---> nên thoát vòng lặp ở đây.
     ElseIf rs![use] = Me.Txttendangnhap And GiaiMa(rs![pw], 8) <> Me.Txtmatkhau.Value Then
        msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 7"), vbCritical, DLookup("[TIEUDE]", "tblTHONGBAO", "[SOTB] = 5")
        Me.Txtmatkhau.SetFocus
        End
     End If
  rs.MoveNext
  Loop
  
  -------------------------------------------------------------------------
  
  
  + Sau khi đăng nhập hợp lệ, bạn cập nhật tên người dùng vào bảng lịch sự đăng nhập để theo dõi (tblLichSuDangNhap). Đây là linked table nên bạn đã code thêm một bước là kiểm tra cái BE database có tồn tại hay không rồi mới mở bảng lên Update vô. Hành động này là dư thừa vì:
      >> Khi bạn bấm nút đăng nhập, nếu cái BE database không tồn tại (hoặc sai đường dẫn) thì Form Đăng nhập sẽ báo lỗi mở frmBackUp để bạn cập nhât lại đường dẫn file Bạckend. Vậy hành động kiểm tra lần nữa file tồn tại sau khi đăng nhập đúng User/Pass là dư thừa.
  
  + Vấn đề kháckhác nữa là bạn dùng lệnh Dir() thì ở trường hợp này sẽ gặp lỗi nếu: "Tên file" bạckend vẫn đúng như vậy nhưng Password mở file BE thay đổi khác đi. Trong thực tế bạn cũng có thể sẽ phải thay đổi mật khẩu file BE vì lý do bảo mật. Khi lệnh Dir() nó sẽ báo file BE tồn tại nhưng bạn sẽ không linked table được do không đúng mật khẩu. Để giải quyết vấn đề này tôi cũng đã nó bài viết demo về nó. Bạn xem link dưới đây.
  Link: https://thuthuataccess.com/forum/thread-11192.html
  
  Các góp ý khác nữa là:
  -  Về cái hàm hiển thị MsgBox tiếng Việt, bạn nên dùng 1 hàm thôi chứ copy 2 3 cái vào trong Module chi cho nó nặng hệ thống khi khởi động. Dùng 1 cái hàm: MsgBoxUni() là đủ rồi, bỏ cái MsgBoxOK(), MsgBoxYesNo() luôn đi.
  - Dùng hàm LanchCD đủ rồi, bỏ BrowseFolder() hoặc kiếm cái hàm BrowseFolder đơn giản thôi. Cái hàm API BrowseFolder của bạn nó ôm đồm nhiều thứ quá, mà bạn chắc chắn không dùng hết nên bỏ đi cho nhẹ.

• RE: Bấm F9 chọn hết giá trị lọc của form

  Xuân Thanh > 19-02-20, 08:42 AM

  Tôi chưa đọc file nhưng nếu đã dùng LinkTable, sao không dùng luôn hàm DlookUp cho nhanh, cần chi dùng vòng lặp?

• RE: Bấm F9 chọn hết giá trị lọc của form

  ongke0711 > 19-02-20, 10:49 AM

  (19-02-20, 08:42 AM)Xuân Thanh Đã viết: Tôi chưa đọc file nhưng nếu đã dùng LinkTable, sao không dùng luôn hàm DlookUp cho nhanh, cần chi dùng vòng lặp?

  
  Dùng Dlookup cũng được nhưng phải dùng 2 cái Dlookup: 1 cái cho User, 1 cái cho pass. Vì chủ thớt đang và thích dùng vòng lặp nên tôi cũng không sửa nhièu nếu nó không ảnh hưởng gì đáng kể đó bác.

• RE: Bấm F9 chọn hết giá trị lọc của form

  Xuân Thanh > 19-02-20, 11:57 AM

  (19-02-20, 10:49 AM)ongke0711 Đã viết: Dùng Dlookup cũng được nhưng phải dùng 2 cái Dlookup: 1 cái cho User, 1 cái cho pass. Vì chủ thớt đang và thích dùng vòng lặp nên tôi cũng không sửa nhièu nếu nó không ảnh hưởng gì đáng kể đó bác.

  
  Ý tôi là muốn góp ý cho chủ thớt đó

• RE: Bấm F9 chọn hết giá trị lọc của form

  dotrung > 19-02-20, 07:54 PM

  Trích dẫn:+ Khi bấm nút [Đăng nhập]: bạn chạy vòng lặp qua toàn bộ table T_PhanQuyen để kiểm tra Username và Pass đăng nhập có đúng không. Dùng vòng lặp thì đúng nhưng bạn không thoát vòng lặp sau khi đã tìm được đúng Record cần tìm mà nó vẫn chạy tiếp cho đến hết Recordset --> lãng phí thời gian. 

  
  Anh Ongke0711 góp ý quá đúng, phần đăng nhập em bị dính khúc vòng lặp, nhiều khi em cứ nghĩ hoài mà không ra, nhiều khi nó báo null record, cảm ơn anh đã góp ý.
  
  Riêng phần linktable quả thật em chưa nghĩ đến, em đã có đọc qua bài tăng tốc của anh ongke0711 rồi, sau này em sẽ chỉnh sửa cho gọn (vì em nghĩ nếu tăng record dữ liệu lên hoặc báo cáo năm phần mềm chạy ngày càng chậm)
  
  Ngoài ra, em cũng xin nhờ các anh trong diễn đàn góp ý dùm em chỗ kiểm tra lại đơn hàng bằng mã vạch, em bị bí phần trừ tồn (của đơn hàng) sau mỗi lần quét mã hàng
  thanks anh!
• Bài trước Bài tiếp