Giúp mình nút chọn ngày (1 người xem)

[na_an]

Chào các bạn!
Các bạn giúp mình cái nút chọn ngày của form tonghop với. Mình kiểm tra lại mấy lần rồi mà không hiểu sao vẫn báo lỗi.
Cảm ơn các bạn trước nhé.

 

[Hai Lúa Miền Tây]

Chào các bạn!
Các bạn giúp mình cái nút chọn ngày của form tonghop với. Mình kiểm tra lại mấy lần rồi mà không hiểu sao vẫn báo lỗi.
Cảm ơn các bạn trước nhé.

Bạn thêm code sau vào Module nhé

Option Compare Database
Option Explicit

Private Function IsOpen(strForm As String)
    IsOpen = (SysCmd(acSysCmdGetObjectState, acForm, strForm) > 0)
End Function

Public Function acbGetDate(varDate As Variant) As Variant

    Const acbcCalForm = "frm lich"
    
     DoCmd.OpenForm acbcCalForm, WindowMode:=acDialog, _
     OpenArgs:=Nz(varDate)
   
    If IsOpen(acbcCalForm) Then
        acbGetDate = Forms(acbcCalForm).CalDate
        DoCmd.Close acForm, acbcCalForm
    Else
        acbGetDate = Null
    End If
End Function