Skip to main content

AccessTr.neT


Combobox'tan Tarih Seçilerek Textbox'a Nasıl Veri Alabilirim

Combobox'tan Tarih Seçilerek Textbox'a Nasıl Veri Alabilirim

Çözüldü #1
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 ?
.rar gun_sonu.rar (Dosya Boyutu: 19,07 KB | İndirme Sayısı: 6)
Cevapla
#2
diyelim ki veriyi metinTarih kutusuna göndereceksiniz, bu durumda comboboxın degiştiğinde/Combo7_Change olayına aşağıdaki kodu yazabilirsiniz

Visual Basic Code
metinTarih.value=combo7.value

Cevapla
#3
(02/11/2020 09:20)berduş Adlı Kullanıcıdan Alıntı: diyelim ki veriyi metinTarih kutusuna göndereceksiniz, bu durumda comboboxın degiştiğinde/Combo7_Change olayına aşağıdaki kodu yazabilirsiniz

Visual Basic Code
metinTarih.value=combo7.value


cevap icin tesekurler.

Hocam malesef calismiyor. ekteki dosya uzerinde denerseniz sorunu anlarsiniz?
cok kolay gibi duruyor fakat denemedik yol kalmadi Img-cray
Cevapla
#4
Zaten kodu sizin dosyanizda denedim
Hatta tarih atanacak textbox yoktu kendim ekledim sorunsuz calisti
Siz kodu nereye hangi olaya yazdiniz?
dosya ektedir
.rar gun_sonu_hy.rar (Dosya Boyutu: 23,12 KB | İndirme Sayısı: 4)
Son Düzenleme: 02/11/2020, 11:16, Düzenleyen: berduş.
Cevapla
#5
Merhaba.
Textboxları ilişkiiz olarak deneyiniz.

Visual Basic Code
Option Compare Database

Visual Basic Code
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


Visual Basic Code
Private Sub Form_Load()
    Me.LastOfadet.Value = Nz(DLast("[adet]", "[tblGunsonu]"), "")
    Me.LastOfurun.Value = Nz(DLast("[urun]", "[tblGunsonu]"), "")
End Sub

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

Visual Basic Code
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

Visual Basic Code
  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

Visual Basic Code
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ı"

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task