'.Find "[UyeNo]=" & "'" & Me![UyeNo_TXT] & "'" Uye No alanı metin olduğunda bu yazım doğru oluyor. Alan sayı türünde ise  nasıl yazılmalı

1-      '.Find "[UyeNo]=" & Me![UyeNo_TXT]  Bu kod hata vermedi ama işlemde gerçekleşmedi.
2-       .Find "[UyeNo]=" & "Me![UyeNo_TXT]" Bu kod aşağıdaki hatayı verdi.

Option Compare Database

Option Explicit

Private Sub Kaydet_BTN_Click()



If Me.UyeNo_TXT = "" Or IsNull(Me.UyeNo_TXT) Then



If IsNull(Me.UyeNo_TXT) Or Me.UyeNo_TXT = "" Then

   MsgBox "DİKKAT" & vbCrLf & "Lütfen Uye No Bilgisini Giriniz!. " & vbCrLf & "Kayit işlemi için bu bilginin girilmesi zorunludur", vbCritical

   Me.UyeNo_TXT.SetFocus

   

   Exit Sub

End If

End If





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

        .Find "[UyeNo]=" & "Me![UyeNo_TXT]"

        '.Find "[UyeNo]=" & Me![UyeNo_TXT]

        '.Find "[UyeNo]=" & "'" & Me![UyeNo_TXT] & "'"

        If Not rstkayit.EOF Then

                 

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("IslemTuru") = "Alacak"

                .Fields("Tutar") = Me.Tutar_TXT

                .Fields("Aciklama") = Me.Aciklama_TXT

           

           Else

           

                .AddNew

           

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("IslemTuru") = "Alacak"

                .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

        .Find "[UyeNo]=" & "Me![UyeNo_TXT]"

        '.Find "[UyeNo]=" & Me![UyeNo_TXT]

        '.Find "[UyeNo]=" & "'" & Me![UyeNo_TXT] & "'"

        If Not rstkayit.EOF Then

                

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("GelirKodu") = Me.GelirKodu_TXT

                .Fields("GelirTipi") = Me.GelirTuru_CBO

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

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("AidatTutar") = Me.Tutar_TXT

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Update

        

        

        Else

                .AddNew

                

                .Fields("UyeNo") = Me.UyeNo_TXT

                .Fields("GelirKodu") = Me.GelirKodu_TXT

                .Fields("GelirTipi") = Me.GelirTuru_CBO

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

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("AidatTutar") = Me.Tutar_TXT

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Update

            

            End If

            

        End With

                              

    

    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

                .Fields("GirenTutar") = Me.Tutar_TXT

                .Fields("GiderTuru") = ""

                .Fields("CikanTutar") = "0"

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Fields("HesapTuru") = "Kasa TL"

                .Update

                

               Else

               

                .AddNew

                .Fields("Tarih") = Me.Tarih_TXT

                .Fields("MakbuzNo") = Me.MakbuzNo_TXT

                .Fields("GelirTuru") = Me.GelirTuru_CBO

                .Fields("GirenTutar") = Me.Tutar_TXT

                .Fields("GiderTuru") = ""

                .Fields("CikanTutar") = "0"

                .Fields("Aciklama") = Me.Aciklama_TXT

                .Fields("HesapTuru") = "Kasa TL"

                .Update

            End If

        End With

        

    rstkayit.Close

    Set rstkayit = Nothing

        

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