If Tables("TXJL_TXJL") .Current IsNot Nothing Then If Forms("TXJL").Opened Then With DataTables("TXJL_TXJLyf") .LoadFilter ="[GB011] = '" & Tables("TXJL_TXJLyf") .Current("GB011") & "' Or [GB011] = '" & Tables("TXJL_TXJLyf") .Current("GB013") & "'" .load() End With End If End If