(06/03/2020, 12:27)Oğuz Türkyılmaz yazdı: hata vermişti

Lütfen bu tür sorularınızda aldığınız hatayı açıklamalı olarak yazın. Kodu aşağıdaki ile değiştirerek deneyin.

Private Sub Kaydet_BTN_Click()



If MsgBox("Girdiğiniz veriler kaydedilecektir, Onaylıyormusunuz ", vbExclamation + vbYesNo, "Dikkat") = vbNo Then Exit Sub



Dim rstkayit As ADODB.Recordset

Dim strSQL As String



strSQL = "SELECT * FROM T_UyeHesap "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

                 .AddNew

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("IslemTuru") = "ALACAK" ' İşlem Turunu Alacak olarak kaydetmesi gerekiyor

                .Fields("Tutar") = Me.Tutar_TXT

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Update

                

        End With

        

    rstkayit.Close

    Set rstkayit = Nothing

        

        

    strSQL = "SELECT * FROM T_UyeTahsilat "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

                 .AddNew

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("GelirKodu") = Me.GelirKodu_TXT

                .Fields("GelirTipi") = Me.GelirTipi_TXT

                .Fields("TaksitAyKapama") = Me.TaksitKapama_CBO.Column(0)

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("AidatTutar") = Me.Tutar_TXT

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Update

        End With

                              

    rstkayit.Close

    Set rstkayit = Nothing

                              

Dim fat As Control

    For Each fat In Me.Form.Controls

   Select Case fat.ControlType

      Case acTextBox 'Bütün metin kutularini bosalt

         fat.Value = ""

        Case acComboBox 'bütün açilan kutulari bosalt

           fat.Value = ""

           Case acCheckBox

              fat.Value = "0"

      End Select

      

      Next

    

    Tarih_TXT = Date

      

End Sub