Private Sub cmdtt_click()
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As Long, h As Long, i As Long, l As Long, m As Long
Dim n As Long, o As Long, u As Long, t As Long, r As Long, W As Long, q As Long, p As Long, v As Long, x As Long
If Me!tb01 <> "" Then...