Arkadaslar bir tabloya gun icinde yapilan kayitlari aliyorum. sorgu kullanarak gun icindeki en son degeri
sorgu olarak aliyorum. sonra form uzerinden combobox ile tarihi secip textbox a veri nasil alabilirim. yardiminiz icin tesekkur ederim.

Lutfen ekte gonderdigim dosyada form1 i inceleyiniz..
combobox  dan secilen tarih bilgileri text boxlara nasil gelir ?

diyelim ki veriyi metinTarih kutusuna göndereceksiniz, bu durumda comboboxın degiştiğinde/Combo7_Change olayına aşağıdaki kodu yazabilirsiniz

metinTarih.value=combo7.value

(02/11/2020, 09:20)berduş yazdı: diyelim ki veriyi metinTarih kutusuna göndereceksiniz, bu durumda comboboxın degiştiğinde/Combo7_Change olayına aşağıdaki kodu yazabilirsiniz

metinTarih.value=combo7.value

cevap icin tesekurler.

Hocam malesef calismiyor. ekteki dosya uzerinde denerseniz sorunu anlarsiniz?
cok kolay gibi duruyor fakat denemedik yol kalmadi

Zaten kodu sizin dosyanizda denedim
Hatta tarih atanacak textbox yoktu kendim ekledim sorunsuz calisti
Siz kodu nereye hangi olaya yazdiniz?
dosya ektedir

Merhaba.
Textboxları ilişkiiz olarak deneyiniz.

Option Compare Database

Private Sub Combo7_Change()

    Me.LastOfadet.Value = Nz(DLookup("[adet]", "[tblGunsonu]", "cstr([Date])= '" & Me.Combo7.Value & "'"), "")

    Me.LastOfurun.Value = Nz(DLookup("[urun]", "[tblGunsonu]", "cstr([Date])= '" & Me.Combo7.Value & "'"), "")

End Sub

Private Sub Form_Load()

    Me.LastOfadet.Value = Nz(DLast("[adet]", "[tblGunsonu]"), "")

    Me.LastOfurun.Value = Nz(DLast("[urun]", "[tblGunsonu]"), "")

End Sub

eğer amacınız seçtiğiniz tarihe göre verilerin gelmesi ise yani süzme/filtreleme ise aşağıdaki kodu deneyebilirsiniz?

Me.Filter = ""

'Me.FilterOn = True

If Len(Me.Combo7.Value & "") < 1 Then Exit Sub



Me.Filter = "cdbl(Date)=" & Replace(CStr(CDbl(CDate(Me.Combo7.Value))), ",", ".")

Me.FilterOn = True

---

yada Combo7 değiştiğinde olayına aşağıdaki kodu

  If Len(Me.Combo7.Value & "") < 1 Then Exit Sub



  Dim rst As Recordset

    Dim ArmaKrt As String



    Set rst = Me.RecordsetClone

    ArmaKrt = CDbl(Me.Combo7)

    rst.FindFirst "Date = " & Replace(ArmaKrt, ",", ".")

        If rst.NoMatch Then

            MsgBox "kayıt bulunamadı"

        Else

            Me.Bookmark = rst.Bookmark

        End If

    rst.Close

---

veya aşağıdaki

If Len(Me.Combo7.Value & "") < 1 Then Exit Sub

Dim ArmaKrt As String



    ArmaKrt = CDbl(Me.Combo7)

    Me.Recordset.FindFirst "Date = " & Replace(ArmaKrt, ",", ".")

        If Recordset.NoMatch Then MsgBox "kayıt bulunamadı"