If Len(Nz(Me.txtUyeNo, "")) = 0 Then Exit Sub ' <-- sadece bu satır eklenecek
'hy_Renklendirme_________________________________
If Len(Nz(Me.txtUyeNo, "")) = 0 Then Exit Sub ' <-- sadece bu satır eklenecek
Dim AidtRS As New ADODB.Recordset
'hy_Renklendirme_________________________________ satırının altına aşağıdaki kodu ekler misiniz?
If Len(Nz(Me.txtUyeNo, "")) = 0 Then Exit Sub ' <-- sadece bu satır eklenecek
If Len(Nz(Me.txtUyeNo, "")) = 0 Then Exit Sub ' <-- sadece bu satır eklenecek
