• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Access Data Tablosunda Kimlik Ile Userform üzerinden Veri Arama

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
O

ofbayoglu

Yeni Üye
Kullanıcı Bilgileri
Katılım
30 Eki 2021
Mesajlar
27
Aldığı beğeni
4
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
arkadaşlar access data tablosunda kimlik nosu ile arama yapmak istiyorum. Sipariş No da yazan sayıyı metin olarak arama yaptığımda çıkıyor. ama kimlik üzerinden arama yaptığımda çıkmıyor. sayı olarak arama nasıl yapabilirm.

Private Sub TextBox1_Change()
Dim baglan As New Connection
Dim rs As New Recordset

On Error Resume Next

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\ResanData.accdb;"
rs.Open "select * from siparis WHERE kimlik='" & Me.TextBox1.Text & "'", baglan, adOpenKeyset, adLockPessimistic

Me.TextBox10.Text = rs.Fields(0)
Me.TextBox2.Text = rs.Fields(2)
Me.ComboBox1.Text = rs.Fields(3)
Me.ComboBox2.Text = rs.Fields(4)
Me.TextBox3.Value = rs.Fields(5)
Me.TextBox4.Value = rs.Fields(6)
Me.TextBox5.Value = FormatNumber(CDbl(rs.Fields(7)))
Me.TextBox6.Value = FormatNumber(CDbl(rs.Fields(8)))
Me.TextBox7.Value = rs.Fields(9)
Me.ComboBox3.Text = rs.Fields(10)
Me.ComboBox4.Text = rs.Fields(11)
Me.TextBox8.Value = rs.Fields(12)
Me.TextBox9.Value = rs.Fields(13)
Me.TextBox17.Value = rs.Fields(14)
Me.TextBox18.Value = rs.Fields(15)
Me.TextBox19.Value = rs.Fields(16)

rs.Close
baglan.Close
End Sub
 

Ekli dosyalar

  • hata.jpg
    hata.jpg
    654.6 KB · Gösterim: 6
Çözüm
halily
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
yada
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
aşağıdaki gibi dener misiniz?
kimlik alanı sayısal olduğu için
kimlik='" & Me.TextBox1.Text & "'" buradaki tırnak işaretlerine gerek yok
val() ise metni sayısala çevirmek için eklendi belki de kullanılmasa da olurdu
Tarihe göre sırala Oylara göre sırala
Kimlik alan adınız string bir değer değilse ' işareti koymadan aratma yapmanız gerekiyor.
 
Olumlu oy 0 Negatif oyla
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
yada
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
aşağıdaki gibi dener misiniz?
kimlik alanı sayısal olduğu için
kimlik='" & Me.TextBox1.Text & "'" buradaki tırnak işaretlerine gerek yok
val() ise metni sayısala çevirmek için eklendi belki de kullanılmasa da olurdu
 
Olumlu oy 0 Negatif oyla
Çözüm
hocam burada şöyle bi sorunla karşılaştım kayıt güncellemek istediğimde güncelle butonu yerine mükerrer kaydı nasıl engellerim. aşağıdaki kodlarla kayıt yapıyorum kayıt tuşuna bastığımda aynı kaydı kaydetmesin istiyorum. nasıl düzenleyebilirim.

Private Sub CommandButton1_Click()
Dim baglan As New Connection
Dim rs As New Recordset



On Error Resume Next



baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\ResanData.accdb;"
rs.Open "select * from siparis where Kimlik", baglan, adOpenKeyset, adLockPessimistic
rs.AddNew

If Me.TextBox1.Text <> "" Then rs.Fields(1) = Me.TextBox1.Text
If Me.TextBox2.Text <> "" Then rs.Fields(2) = Me.TextBox2.Text
If Me.ComboBox1.Text <> "" Then rs.Fields(3) = Me.ComboBox1.Text
If Me.ComboBox2.Text <> "" Then rs.Fields(4) = Me.ComboBox2.Text
If Me.TextBox3.Text <> "" Then rs.Fields(5) = Me.TextBox3.Text
If Me.TextBox4.Text <> "" Then rs.Fields(6) = Me.TextBox4.Text
If Me.TextBox5.Text <> "" Then rs.Fields(7) = Me.TextBox5.Text
If Me.TextBox6.Text <> "" Then rs.Fields(8) = Me.TextBox6.Text
If Me.TextBox7.Text <> "" Then rs.Fields(9) = Me.TextBox7.Text
If Me.ComboBox3.Text <> "" Then rs.Fields(10) = Me.ComboBox3.Text
If Me.ComboBox4.Text <> "" Then rs.Fields(11) = Me.ComboBox4.Text
If Me.TextBox8.Text <> "" Then rs.Fields(12) = Me.TextBox8.Text
If Me.TextBox9.Text <> "" Then rs.Fields(13) = Me.TextBox9.Text
If Me.TextBox17.Text <> "" Then rs.Fields(14) = Me.TextBox17.Text
If Me.TextBox18.Text <> "" Then rs.Fields(15) = Me.TextBox18.Text
If Me.TextBox19.Text <> "" Then rs.Fields(16) = Me.TextBox19.Text



cevap = MsgBox("Sipariş Kaydı Yapıldı", vbOKOnly, "YENİ KAYIT")


Call Siparis_Bilgileritemizle
rs.Update

rs.Close
baglan.Close

Call siparislistesi
End Sub
 
Olumlu oy 0 Negatif oyla
Yanılmıyorsam yeni sorular için yeni konular açmanız gerekiyor. halily hocamın çözümü sonuca ulaştırdıysa çözüm olarak işaretleyebilir misiniz? Yeni soruya yeni konuda göz atalım isterseniz.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst