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

Gỡ rối về Dlookup function

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Gỡ rối về Dlookup function
• Gỡ rối về Dlookup function

• Gỡ rối về Dlookup function

  tvn_hut > 23-08-13, 05:24 PM

  Hi all
  Mình muốn sử dụng Dlookup để tính toán nhưng gặp rắc rối khi mã code không chạy. Mình có test trên Window Immediate thì xảy lỗi ở điều kiện. Đây là mã code mình làm
  [Private Sub CboDTConvert_AfterUpdate()
  Dim VarRate As Variant
  If Not IsNull(Me![TotDownTime]) Then
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] ='Me![MCode]'")
  DTConvert = TotDownTime * VarRate
  End If
  
  End Sub
  /php]
  
  Mình cũng chưa tìm ra nguyên nhân vì sao mã code không chạy được. Mong các bạn chỉ giúp mình nhé
  Best regards,
  TVN

• RE: Gỡ rối về Dlookup function

  truonghet > 23-08-13, 06:19 PM

  (23-08-13, 05:24 PM)tvn_hut Đã viết: Hi all
  Mình muốn sử dụng Dlookup để tính toán nhưng gặp rắc rối khi mã code không chạy. Mình có test trên Window Immediate thì xảy lỗi ở điều kiện. Đây là mã code mình làm
  [Private Sub CboDTConvert_AfterUpdate()
  Dim VarRate As Variant
  If Not IsNull(Me![TotDownTime]) Then
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] ='Me![MCode]'")
  DTConvert = TotDownTime * VarRate
  End If
  
  End Sub
  /php]
  
  Mình cũng chưa tìm ra nguyên nhân vì sao mã code không chạy được. Mong các bạn chỉ giúp mình nhé
  Best regards,
  TVN

  Hi bạn theo mình thấy code bạn có vấn đề rồi, chỗ 'Me![MCode]' chuyển thành '" & Me![MCode] & "' !
  
  Bạn thử fix lại hàm Dlookup như vầy nhé:
  
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] ='" & Me![MCode] & "'")
  
  chúc bạn thành công

• RE: Gỡ rối về Dlookup function

  tvn_hut > 23-08-13, 06:39 PM

  (23-08-13, 06:19 PM)truonghet Đã viết:

  (23-08-13, 05:24 PM)tvn_hut Đã viết: Hi all
  Mình muốn sử dụng Dlookup để tính toán nhưng gặp rắc rối khi mã code không chạy. Mình có test trên Window Immediate thì xảy lỗi ở điều kiện. Đây là mã code mình làm
  [Private Sub CboDTConvert_AfterUpdate()
  Dim VarRate As Variant
  If Not IsNull(Me![TotDownTime]) Then
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] ='Me![MCode]'")
  DTConvert = TotDownTime * VarRate
  End If
  
  End Sub
  /php]
  
  Mình cũng chưa tìm ra nguyên nhân vì sao mã code không chạy được. Mong các bạn chỉ giúp mình nhé
  Best regards,
  TVN

  Hi bạn theo mình thấy code bạn có vấn đề rồi, chỗ 'Me![MCode]' chuyển thành '" & Me![MCode] & "' !
  
  Bạn thử fix lại hàm Dlookup như vầy nhé:
  
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] ='" & Me![MCode] & "'")
  
  chúc bạn thành công

  
  Mình đã thử nhưng vẫn không chạy. Không biết có sai gì trong khai báo hay không? Bởi kết quả tính toán phải được update vào combo box DTConvert trên form. Khi mình đặt điều kiện là một text cụ thể nào đó thì hàm Dlookup cho kết quả chính xác (check trên WI) nhưng khi mình thử công thức để tính DTconvert thì cũng không cho kết quả trên cbo box DTConvert. Vậy mình sai ở điểm nào ta. 2 ngày rồi mà chưa mần ra.

• RE: Gỡ rối về Dlookup function

  khải nguyên > 23-08-13, 11:40 PM

  Tôi mới chỉ xét một hàm Dlookup náy của bạn thôi còn những dòng sau thì chưa tính
  Gửi bài không nói rõ là lỗi ở dòng nào .v.v.v thông thường thì khi test nguời ta nhấp vào Debug.....để tìm lỗi khi sảy ra ở vị trí dòng nào hay lỗi ra sao ,nếu lỗi dòng này
  VarRate=DLookup("[Rate]", "TblMachineLL", "[MCode] ='" & Me![MCode] & "'") thì nó sẽ có biểu hiện theo màu chữ vàng ,hoặc đỏ .....
  có vậy mới biết chính sác mà sửa .Còn theo nhận định của tôi thì hàm
  DLookup("[Rate]", "TblMachineLL", "[MCode] ='" & Me![MCode] & "'"
  này lỗi đoạn :'" & Me![MCode] & "'"
  dòng lệnh này thể hiện tvn_hut muốn lấy phần Rate trong TblMachineLL với đk "[MCode] ='" &![MCode] & "'" ở trong Form nào đó .nhưng khai báo kiểu này nên không chạy đc và lỗi
  thử text lại dòng lệnh Lookup("[Rate]", "TblMachineLL", "[MCode] ='" & Me![MCode] & "'" trên một text của form thì sẽ biết ngay có tìm đc kết quả hay kg thôi mà .Còn nếu có kq thì do đoạn phía trước :VarRate=......là chưa đúng .Nên tim hiểu về các ứng dụng + phát triển với hàm Dlookup ()
  Dòng lệnh : DLookup("[Rate]", "TblMachineLL", "[MCode] ='" & Me! [MCode] & "'"
  này là muốn lấy dữ liệu trong table .....= MCode trên Form nhưng đọan ( & Me! [MCode] & ) này khai báo sai nên nó không có kết quả .nếu muốn ý như vậy thì cố gắng tham khảo về Hàm Dlookup () dùng với đối tượng trên Form như trường hợp của mình
  Dòng lệnh chuẩn: DLookup("Rate", "TblMachineLL", "MCode ='" & [MCode] & "'" như này thì mới đúng
  Không có File nên nói bo khó đúng theo bài vậy nghiên cứu sử dụng vào bài
  Hướng dẫn vậy thôi nghiên cứu thi hành nhé .Chúc thành công
  Khải Nguyên

• RE: Gỡ rối về Dlookup function

  cpucloi > 24-08-13, 11:49 AM

  Theo tớ bạn sửa lại nhé:
  
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] =[forms]![tenform]![MCode])

• RE: Gỡ rối về Dlookup function

  tvn_hut > 24-08-13, 02:04 PM

  Mình đã làm theo gợi ý bạn Khải Nguyên và khi tính toán trên Textbox thì cho kết quả đúng nhưng khi chuyển sang VBA thì lai không có kết quả. mình làm thử trên demo này nhò các bạn giúp mình nhé. Trên 2 textbox thì cho kết quả OK nhưng ở DTconvert lại không chạy.
  
  Đây là demo các bạn xem giúp mình nhé:
  Download demo here

• RE: Gỡ rối về Dlookup function

  Thanh Phương > 24-08-13, 04:29 PM

  1/ Hàm Dlookup bắt buộc phải có đối số thứ 3. Trong bài của bạn, tôi tìm mỏi mắt suốt cả buổi chiều cũng không thấy đối số thứ 3 cần có để dò tìm ở đâu hết. Vậy cái MCode của bạn ở đâu? Lỗi chính là tại đây
  2/ Xem lại cách thiết kế CSDL, mộttable của bạn có tới...6 khóa chính thì có hợp lý không?

• RE: Gỡ rối về Dlookup function

  tvn_hut > 24-08-13, 05:39 PM

  (24-08-13, 04:29 PM)Thanh Phương Đã viết: 1/ Hàm Dlookup bắt buộc phải có đối số thứ 3. Trong bài của bạn, tôi tìm mỏi mắt suốt cả buổi chiều cũng không thấy đối số thứ 3 cần có để dò tìm ở đâu hết. Vậy cái MCode của bạn ở đâu? Lỗi chính là tại đây
  2/ Xem lại cách thiết kế CSDL, mộttable của bạn có tới...6 khóa chính thì có hợp lý không?

  
  Dear Phuong
  Mcode nằm trong bảng tblmachine, 1 table có nhiều khóa chính vì mình muốn những trường đó bảo đảm tinh duy nhất về số liệu, không cần quan tâm. Cái chính ở đây la mình chưa nắm được cách khai báo như nào để tính toán được trên đối tượng điều khiển. mình đã test trên textbox thì đã cho kết quả đúng mà.

• RE: Gỡ rối về Dlookup function

  cpucloi > 24-08-13, 09:14 PM

  Phân tích vấn đề của bạn một chút (vì bài trước trả lời bạn do bạn chưa post file lên).
  Của bạn:
  
  Private Sub CboDTConvert_AfterUpdate()
  Dim VarRate As Variant
  If Not IsNull(Me![TotDownTime]) Then
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] ='Me![MCode]'")
  DTConvert = TotDownTime * VarRate
  End If
  End Sub
  
  1. Hiện tại mình đang thấy: TotDownTime, MCode ở trong subform FSubDown nhúng trong mainform FrmDownMain do đó khai báo như bạn là Me!TotDownTime và Me!MCode là không đúng => Me! ở đây biểu thị của FrmDownMain.
  Bạn phải thay Me! bằng chỉ định đầy đủ: Forms!FrmDownMain!FSubDown.Form!TotDownTime (các cái khác ở trong subform muốn truy vấn đến làm tương tự).
  2. Tớ không tìm thấy cái DTConvert ở đâu cả, vậy không thể gán gì cho nó được.
  
  Bạn kiểm tra lại nhé!
  
  Quên mất, Me! đúng trong trường hợp bạn chạy FSubDown độc lập, khi nhúng vào FrmDownMain thì không được đâu nhé

• RE: Gỡ rối về Dlookup function

  tvn_hut > 24-08-13, 11:41 PM

  (24-08-13, 09:14 PM)cpucloi Đã viết: Phân tích vấn đề của bạn một chút (vì bài trước trả lời bạn do bạn chưa post file lên).
  Của bạn:
  
  Private Sub CboDTConvert_AfterUpdate()
  Dim VarRate As Variant
  If Not IsNull(Me![TotDownTime]) Then
  VarRate = DLookup("[Rate]", "TblMachineLL", "[MCode] ='Me![MCode]'")
  DTConvert = TotDownTime * VarRate
  End If
  End Sub
  
  1. Hiện tại mình đang thấy: TotDownTime, MCode ở trong subform FSubDown nhúng trong mainform FrmDownMain do đó khai báo như bạn là Me!TotDownTime và Me!MCode là không đúng => Me! ở đây biểu thị của FrmDownMain.
  Bạn phải thay Me! bằng chỉ định đầy đủ: Forms!FrmDownMain!FSubDown.Form!TotDownTime (các cái khác ở trong subform muốn truy vấn đến làm tương tự).
  2. Tớ không tìm thấy cái DTConvert ở đâu cả, vậy không thể gán gì cho nó được.
  
  Bạn kiểm tra lại nhé!
  
  Quên mất, Me! đúng trong trường hợp bạn chạy FSubDown độc lập, khi nhúng vào FrmDownMain thì không được đâu nhé

  
  1. Cám ơn Mr.Lợi nhé, thú thực mình cứ tưởng làm VBA cho subform thì khi liên kết sang mainform nó vẫn chạy chứ vì đối tượng mình lập trình ở đây là subform mà.
  2. DTConvert ở trong bảng Tbldown và mình lấy xuống subform để tính toán chuyển đổi: DTConvert = TotDTime*Rate tương ứng.
  
  Mình cũng đã thử nhiều kiểu nhưng vẫn không ăn thua. Chẳng nhẽ phép tính đơn giản này mình lại chịu thua nó. Mình sẽ vừa tìm hiểu vừa tham khảo từ các bạn hi vọng sẽ làm được. Nhưng nếu có ai đó sửa luôn trên demo rồi post lên để mình tham khảo thì hay biết mấy. Đó cũng là một bài học rùi. giúp mình nhé
  
  Thanks and best regards
  Nghị
• Bài trước Bài tiếp