• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
O

ofbayoglu

Yeni Üye
Katılım
30 Eki 2021
Mesajlar
27
Aldığı beğeni
5
Excel V
Office 2013 TR
Konu Sahibi
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
 
Çözüm
halily
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yada
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
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
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yada
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
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 1 Negatif oyla
Çözüm
Konu Sahibi
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.
Geri
Üst