Merhaba

Formdan T_UyeHesap tablosuna ıslem turunu Alacak olarak kaydettiğim kayıt işlemini ADO ile kayıt yaparken nasıl tanımlayabilirim. Teşekkürler

'CurrentDb.Execute " insert into T_UyeHesap " & _

 '            " (  UyeNo,Tarih,IslemTuru, Tutar, Aciklama ) values " & _

              " ( " & Me.UyeNo_TXT & ",'" & Me.Tarih_TXT & "','Alacak', '" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "')"

'End If

  

ADO 

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

            If Not rstkayit.EOF Then

                 .AddNew

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("IslemTuru") = Me.IslemTuru_CBO.Column(0)

                .Fields("Tutar") = Me.Tutar_TXT

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Update

             End If

        End With

        

        

        strSQL = "SELECT * FROM T_UyeTahsilat "

    Set rstkayit = New ADODB.Recordset

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

        With rstkayit

            If Not rstkayit.EOF Then

                 .AddNew

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("GelirKodu") = Me.GelirKodu_TXT

                .Fields("GelirTipi") = Me.GelirTipi_TXT

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

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("AidatTutar") = Me.AidatTutar_TXT

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Update

             End If

        End With

                              

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