(20/03/2020, 17:52)berduş yazdı: Oğuz bey hangi alan 0 ise kayıt gösterilmeyecek
kullandığınız form kaynagi ne? Recordset kodunu kast ediyorum
ÇıkanTutar alanı 0 ise
Dim rstkayit As ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM T_HesapHareketleri"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[MakbuzNo]=" & "'" & Me![MakbuzNo_TXT] & "'"
If Not rstkayit.EOF Then
.Fields("Tarih") = Me.Tarih_TXT
.Fields("MakbuzNo") = Me.MakbuzNo_TXT
.Fields("GelirTuru") = Me.GelirTuru_CBO.Column(0)
.Fields("GirenTutar") = Me.GirenTutar_TXT
.Fields("GiderTuru") = ""
.Fields("CikanTutar") = "0"
.Fields("Aciklama") = Me.Aciklama_TXT
.Fields("HesapTuru") = Me.HesapTuru_CBO.Column(0)
.Update
Else
.AddNew
.Fields("Tarih") = Me.Tarih_TXT
.Fields("MakbuzNo") = Me.MakbuzNo_TXT
.Fields("GelirTuru") = Me.GelirTuru_CBO.Column(0)
.Fields("GirenTutar") = Me.GirenTutar_TXT
.Fields("GiderTuru") = ""
.Fields("CikanTutar") = "0"
.Fields("Aciklama") = Me.Aciklama_TXT
.Fields("HesapTuru") = Me.HesapTuru_CBO.Column(0)
.Update
End If
End With
Dim fat As Control
For Each fat In Me.Form.Controls
Select Case fat.ControlType
Case acTextBox
fat.Value = ""
Case acComboBox
fat.Value = ""
Case acCheckBox
fat.Value = "0"
End Select
Next
Tarih_TXT = Date
End Sub