AccessTr.neT

Sayın hocalarım,

Private Sub btn_BTKAYDET_Click()
On Error Resume Next


gonderen = WorksheetFunction.CountA(Worksheets("GELIRLER").Range("C:C")) + 2
If gonderen = 2 Then
If BAKBIR < txt_BTTUTAR.Value Then
MsgBox txt_BTTUTAR.Value & " Bakiye olmadığından işlem yapılamadı..."
Exit Sub
End If

Worksheets("GELIRLER").Cells(gonderen, 2) = txt_GELIR_SIRA.Value
Worksheets("GELIRLER").Cells(gonderen, 3) = txt_BTTARIH.Value
Worksheets("GELIRLER").Cells(gonderen, 5) = cb_BTGONDERENBANKA.Value
Worksheets("GELIRLER").Cells(gonderen, 6) = cb_BTBACIKLAMA.Value
Worksheets("GELIRLER").Cells(gonderen, 7) = "ÇIKIŞ"
Worksheets("GELIRLER").Cells(gonderen, 9) = Format(txt_BTTUTAR.Value, "#,##0.00")
Worksheets("GELIRLER").Cells(gonderen, 10) = cb_ISLEMYAPAN.Value
Worksheets("GELIRLER").Cells(gonderen, 11) = cb_BTGONDERENBANKA.Value
Else
Worksheets("GELIRLER").Cells(gonderen, 2) = Worksheets("GELIRLER").Cells(gonderen - 1, 1) + 1
Worksheets("GELIRLER").Cells(gonderen, 3) = txt_BTTARIH.Value
Worksheets("GELIRLER").Cells(gonderen, 5) = cb_BTGONDERENBANKA.Value
Worksheets("GELIRLER").Cells(gonderen, 6) = cb_BTBACIKLAMA.Value
Worksheets("GELIRLER").Cells(gonderen, 7) = "ÇIKIŞ"
Worksheets("GELIRLER").Cells(gonderen, 9) = Format(txt_BTTUTAR.Value, "#,##0.00")
Worksheets("GELIRLER").Cells(gonderen, 10) = cb_ISLEMYAPAN.Value
Worksheets("GELIRLER").Cells(gonderen, 11) = cb_BTGONDERENBANKA.Value
End If

MsgBox "Kayıt İşlemi Yapıldı!.."

End Sub


eğer BAKBIR küçükse txt_BTTUTAR mesaj verip işlem yapmasın istiyorum ama yapıyor.


Saygılarımla,

karşılaştırma işlemini yordamın en başına almayı dener misiniz?

Merhaba,
On Error Resume Next
satırını kaldırıp çalıştırın, hata nereden kaynaklanıyor bakalım.

koşulunu karşılaştırırken her iki değerinde sayısal olduğundan emin olun. Sayısal değer ile text değeri karşılaştırıyorsunuz görünüşe göre.