Nhờ các bạn giúp lỗi đoạn code này

[huyhoang_mmyeht]

Mình đang tạo một form nhập liệu Form con lòng trong form cha form cha lòng trong form main
và 1 form tìm kiếm tách biệt đễ tìm kiếm mã nếu không nhớ. sau đó ta duble click vào thì nó lấy thông tin mã đó chuyển vào form con!

Private Sub lstSearchResults_DblClick(Cancel As Integer)
On Error GoTo ErrHandler
    Dim NewCode As String
    Dim stDieuKien As String
    If Form_F01_2.AllowEdits = False Then
        MsgBox "Khong the nhap do da bi khoa"
    Else
    NewCode = Me.lstSearchResults.Value
    stDieuKien = "[Code]='" & NewCode & Form_F00_2.ChMain!Inv & "'"
    If Me.lstSearchResults.Value = DLookup("Code", "T01", stDieuKien) Then
        MsgBoxUni "B" & ChrW(7841) & "n vui lòng nh" & ChrW(7853) & _
         "p l" & ChrW(7841) & "i do trùng Code", vbInformation, "Trùng Code!"
        Exit Sub
    Else
 
        Form_F00_2.ChMain.Form.F01_2!Code = Me.lstSearchResults.Value
        DoCmd.Close
    End If
    End If
Exit_Code:
    Exit Sub
 
ErrHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume Exit_Code
End Sub

mình có sưu tầm đc code này nhưng làm được trên 2 form thì ok còn tới 3 form lồng vào nhau thì toàn báo lỗi!
vậy nhờ các bạn giúp với!

tks

 

[bebo021999]

Mình đang tạo một form nhập liệu Form con lòng trong form cha form cha lòng trong form main
và 1 form tìm kiếm tách biệt đễ tìm kiếm mã nếu không nhớ. sau đó ta duble click vào thì nó lấy thông tin mã đó chuyển vào form con!
mình có sưu tầm đc code này nhưng làm được trên 2 form thì ok còn tới 3 form lồng vào nhau thì toàn báo lỗi!

Cho hỏi 1 câu: form mẹ lòng ở đâu?

 

[SA_DQ]

Cho hỏi 1 câu: form mẹ lòng ở đâu?

Lòng của form mẹ lên bàn nhậu tiêu rồi!

 

[huyhoang_mmyeht]

Lòng của form mẹ lên bàn nhậu tiêu rồi!

File đính kèm cho dễ ạ mở Form F00_2 sau đó vào dòng Import double click vào nó lên form F01_1 sau đó nhập thông tin tiếp vào code double click nó nên form tìm kiếm tiếp đó ta tìm mã cần tìm rồi double click vào nó quay về form kia ạ

 

[SA_DQ]

Mình không dử khả năng giúp bạn file loại này;
Nhưng theo mình nhiều Forms quá không hay bằng xài MultiPages

 

[huyhoang_mmyeht]

Mình không dử khả năng giúp bạn file loại này;
Nhưng theo mình nhiều Forms quá không hay bằng xài MultiPages

Cái lỗi ở dòng này mà mình không tài nào làm được
Form_F00_2.ChMain.Form.F01_2!Code = Me.lstSearchResults.Value

làm sao gán giá trị Me.lstSearchResults về form con thứ 3
còn trên 2 form thì mình làm ok rồi
cái mình làm là khống chế các form luôn luôn ở trong 1 form main

tks

 

[befaint]

Nhờ các bạn giúp lỗi đoạn code này

Gần 17 năm, từ hồi khai sinh diễn đàn giờ mới thấy có người kêu nhờ chữa lợn lành thành heo què. @@

 

[SA_DQ]

Gần 17 năm, từ hồi khai sinh diễn đàn giờ mới thấy có người kêu nhờ chữa lợn lành thành heo què. @@

View attachment 289493

Mà con lợn đó làm sao mà bạn biết nó đang lành? Lỡ nó chột thì sao!