Private Sub PO_AfterUpdate()
On Error GoTo loi
If (DLookup("S01", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L01.Properties("ColumnHidden") = True
Else
L01.Properties("ColumnHidden") = False
End If
If (DLookup("S02", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L02.Properties("ColumnHidden") = True
Else
L02.Properties("ColumnHidden") = False
End If
If (DLookup("S03", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L03.Properties("ColumnHidden") = True
Else
L03.Properties("ColumnHidden") = False
End If
If (DLookup("S04", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L04.Properties("ColumnHidden") = True
Else
L04.Properties("ColumnHidden") = False
End If
If (DLookup("S05", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L05.Properties("ColumnHidden") = True
Else
L05.Properties("ColumnHidden") = True
End If
If (DLookup("S06", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L06.Properties("ColumnHidden") = True
Else
L06.Properties("ColumnHidden") = True
End If
If (DLookup("S07", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L07.Properties("ColumnHidden") = True
Else
L07.Properties("ColumnHidden") = True
End If
If (DLookup("S08", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L08.Properties("ColumnHidden") = True
Else
L08.Properties("ColumnHidden") = True
End If
If (DLookup("S09", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L09.Properties("ColumnHidden") = True
Else
L09.Properties("ColumnHidden") = True
End If
If (DLookup("S10", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L10.Properties("ColumnHidden") = True
Else
L10.Properties("ColumnHidden") = True
End If
If (DLookup("S11", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L11.Properties("ColumnHidden") = True
Else
L11.Properties("ColumnHidden") = True
End If
If (DLookup("S12", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L12.Properties("ColumnHidden") = True
Else
L12.Properties("ColumnHidden") = True
End If
If (DLookup("S13", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L13.Properties("ColumnHidden") = True
Else
L13.Properties("ColumnHidden") = True
End If
If (DLookup("S14", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L14.Properties("ColumnHidden") = True
Else
L14.Properties("ColumnHidden") = True
End If
If (DLookup("S15", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L15.Properties("ColumnHidden") = True
Else
L15.Properties("ColumnHidden") = True
End If
If (DLookup("S16", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L16.Properties("ColumnHidden") = True
Else
L16.Properties("ColumnHidden") = True
End If
If (DLookup("S17", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L17.Properties("ColumnHidden") = True
Else
L17.Properties("ColumnHidden") = True
End If
If (DLookup("S18", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L18.Properties("ColumnHidden") = True
Else
L18.Properties("ColumnHidden") = True
End If
If (DLookup("S19", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L19.Properties("ColumnHidden") = True
Else
L19.Properties("ColumnHidden") = True
End If
If (DLookup("S20", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L20.Properties("ColumnHidden") = True
Else
L20.Properties("ColumnHidden") = True
End If
If (DLookup("S21", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L21.Properties("ColumnHidden") = True
Else
L21.Properties("ColumnHidden") = True
End If
If (DLookup("S22", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L22.Properties("ColumnHidden") = True
Else
L22.Properties("ColumnHidden") = True
End If
If (DLookup("S23", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L23.Properties("ColumnHidden") = True
Else
L23.Properties("ColumnHidden") = True
End If
If (DLookup("S24", "QR01_TKH_Import", "POT='" & POT & "'") = 0) Then
L24.Properties("ColumnHidden") = True
Else
L24.Properties("ColumnHidden") = True
End If
If (DLookup("S25", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L25.Properties("ColumnHidden") = True
Else
L25.Properties("ColumnHidden") = True
End If
If (DLookup("S26", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L26.Properties("ColumnHidden") = True
Else
L26.Properties("ColumnHidden") = True
End If
If (DLookup("S27", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L27.Properties("ColumnHidden") = True
Else
L27.Properties("ColumnHidden") = True
End If
If (DLookup("S28", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L28.Properties("ColumnHidden") = True
Else
L28.Properties("ColumnHidden") = True
End If
If (DLookup("S29", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L29.Properties("ColumnHidden") = True
Else
L29.Properties("ColumnHidden") = True
End If
If (DLookup("S30", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L30.Properties("ColumnHidden") = True
Else
L30.Properties("ColumnHidden") = True
End If
If (DLookup("S31", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L31.Properties("ColumnHidden") = True
Else
L31.Properties("ColumnHidden") = True
End If
If (DLookup("S32", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L32.Properties("ColumnHidden") = True
Else
L32.Properties("ColumnHidden") = True
End If
If (DLookup("S33", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L33.Properties("ColumnHidden") = True
Else
L33.Properties("ColumnHidden") = True
End If
If (DLookup("S34", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L34.Properties("ColumnHidden") = True
Else
L34.Properties("ColumnHidden") = True
End If
If (DLookup("S35", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L35.Properties("ColumnHidden") = True
Else
L35.Properties("ColumnHidden") = True
End If
If (DLookup("S36", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L36.Properties("ColumnHidden") = True
Else
L36.Properties("ColumnHidden") = True
End If
If (DLookup("S37", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L37.Properties("ColumnHidden") = True
Else
L37.Properties("ColumnHidden") = True
End If
If (DLookup("S38", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L38.Properties("ColumnHidden") = True
Else
L38.Properties("ColumnHidden") = True
End If
If (DLookup("S39", "QR01_TKH_Import", "POT='" & PO & "'") = 0) Then
L39.Properties("ColumnHidden") = True
Else
L39.Properties("ColumnHidden") = True
End If
Exit Sub
loi:
MsgBox Err.Description
End Sub