AccessTr.neT
Sorgudan foruma bilgi işletme. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sorgudan foruma bilgi işletme. (/konu-sorgudan-foruma-bilgi-isletme.html)



Sorgudan foruma bilgi işletme. - barcins - 05/06/2015

Selam arkadaşlar, 2013 Acess var sorun buyüzden oluyor. biraydır uğraşıyorum 
uyarlayamadım sürekli 3061 kodu alıyorum birde siz bakarmısın. 


Private Sub FISNOBUL_Click()



Dim db As Database
Dim rs As Recordset


Set db = CurrentDb()

Set rs = db.OpenRecordset("Select * From [HURDA_GIRISLERI] Where İRSALİYENO = IRSALIYE ")


NETTARIH = rs.Fields("TARIH")
NETNETPLAKA = rs.Fields("PLAKA")


rs.Close
db.Close

End Sub


Cvp: Sorgudan foruma bilgi işletme. - SCavusoglu - 05/06/2015

Eklediğiniz uygulama birçok referans hatası verdiğinden açılamamaktadır. Daha sade ve sadece sorunuzla ilgili çalışır durumda bir uygulama eklerseniz yardımcı olunabilir..


Cvp: Sorgudan foruma bilgi işletme. - barcins - 06/06/2015

.rar sorgudan foruma bilgi.rar (Dosya Boyutu: 50,24 KB | İndirme Sayısı: 7)
 Peki. Access 2007 de çalıştığı için komple gösterdim. şimdi kısalttım. istediğim şöyle birşey;

Forum da Evrak numarasını yazdıkdan sonra butona bastığımda HURDA_GIRISLERI Sorgusundaki
TARIH, SAAT, FIRMA, PLAKA, HURDA CINSI, FIYAT, KG verilerini formdaki yerlerine getirmesi. 

Şimdiki Dosyadaki kısa şeklidir. Teşekkürler.
tüm Kitaplıklar açıkmış. en sade duruma getirdim dosya ektedir. yardımcı olabilirseniz sevinirim.
.rar sorgudan foruma bilgi.rar (Dosya Boyutu: 43,77 KB | İndirme Sayısı: 6)

Private Sub FISNOBUL_Click()
Dim dbsNorthwind As DAO.Database
Dim rstProducts As DAO.Recordset
Dim strSQL As String
Dim msg


Set dbsNorthwind = CurrentDb


Set rstProducts = dbsNorthwind.OpenRecordset("Select * From HURDA_GIRISLERI Where IRS = NETIRSALIYE ")

NETTARIH = rstProducts.Fields("TARIH")
NETSAAT = rstProducts.Fields("SAAT")

End Sub

BUDA OLMADI Img-cray


Cvp: Sorgudan foruma bilgi işletme. - ozanakkaya - 09/06/2015

İnceleyiniz.

ancak tabloda bulunan veriyi tekrar tabloya kaydetmek hatalı. 

Net2015 tablosuna otomatik sayı alanı ekle, hurda giriş tabmosuna bu veriyi aktar. Sayıları eşitleyip forma aktar. Veri tekrarı veritabanını şişirir.
İlişkilendirme konularnı incele.


Cvp: Sorgudan foruma bilgi işletme. - barcins - 09/06/2015

Öncelikle emeğinize sağlık. Teşekkür ederim.
Tablo bulunan veriyi tekrar işleme konusu anlatabilmem biraz zor.
Kısaca özetlemek gerekirse Net2015 tablosu Excel bağlı tablo. bir program excele atıyor. ben oradan alıyorum. olmayan haneleri gerekli notları buforumda nolduruyorum.. anlatabildim galiba.

Şimdi istediğim bu şekilde idi. fakat bir ilave yapabilmek istiyorum.
Girdiğimiz irsaliye numarası bu formun tablosunda "Hurda_giris_eksper" kayıtlı ise "Bu fiş Kayıtlı" mesaj verip girişe müsade etmese.


Cvp: Sorgudan foruma bilgi işletme. - ozanakkaya - 09/06/2015

Farklı sorunuz var ise yeni konu açmalısınız.

Site Kuralları