[FORM] Açılan form kayda gitmiyor

mengene · 23-12-2011, 10:23

Merhaba,

veritabanımda aşağıda gördüğünüz kodu bir formda liste0 kutusunun dbl click olayına yazdım. Fakat açılan form(Siparisler_Sorgusu) belirtilen siparis_ID nosuna gitmiyor. Bunun sebebi "Siparisler_Sorgusu" formunun her açılışta yeni kayıt açma kodundan dolayı olabilir mi acaba. En azından liste kutusuna çift tıkladığımda ilgili siparis_ıd sini açmasını nasıl bir ek kodla çözebilirim acaba. Yardımcı olan olursa çok sevinirim.

Visual Basic
Private Sub Liste0_DblClick(Cancel As Integer)
On Error GoTo Err_Komut2_Click
 
    Dim stDocName As String
    Dim kriter As String
    kriter = Me.Liste0
 
    stDocName = "Siparisler_Sorgusu"
    DoCmd.OpenForm stDocName, , , "Siparis_ID=" & kriter
 
Exit_Komut2_Click:
    Exit Sub
 
Err_Komut2_Click:
    MsgBox Err.Description
    Resume Exit_Komut2_Click
End Sub

mengene · 23-12-2011, 10:33

Çözdüm arkadaşlar kusura bakmayın meşgul ettim.

MirzaKatar · 23-12-2011, 11:37

Merhaba,
Nasıl çözdünüz? Formun açıldığında yeni kayda gitme kodunu silerek mi?

mengene · 23-12-2011, 12:01

Merhaba MirzaKatar,

Aşağıdaki koda gördüğün kodu ekledim. Kritere göre siparis_ıd yi çağırdığımda formdaki verili alan tek geliyor ve yeni kayıt açmak istiyor. Bir önceki kayıda gittiği zaman aslında istediğim fiş numarasına ulaşmış oluyor. Bende geriye bir kayıt ilerle kodu ile sorunu çözdüm. İşimi gördü

Visual Basic
Private Sub Liste0_DblClick(Cancel As Integer)
On Error GoTo Err_Komut2_Click
 
    Dim stDocName As String
    Dim kriter As String
    kriter = Me.Liste0
 
    stDocName = "Siparisler_Sorgusu"
    DoCmd.OpenForm stDocName, , , "Siparis_ID=" & kriter
    DoCmd.GoToRecord , , acPrevious
 
Exit_Komut2_Click:
    Exit Sub
 
Err_Komut2_Click:
    MsgBox Err.Description
    Resume Exit_Komut2_Click
End Sub

Selamlar,

MirzaKatar · 23-12-2011, 12:23

Teşekkürler güzel bir çözüm...

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Altformda Kayıt Tıklayınca Sürekli Ilk Kayda Gidiyor.	M_Kemal_Askeri	6	131	11-04-2026, 02:28 Son Mesaj: M_Kemal_Askeri
	Sürekli Formda Kayda Uygun Resim Ekleme	yahyamacit	2	440	18-11-2023, 10:56 Son Mesaj: yahyamacit
	[RAPOR] Açılan Raporu Pdf Olarak Kaydetmek	hnakis	1	430	24-05-2023, 07:53 Son Mesaj: alperalper
	[VBA] Açılan Kutudki Boş Satırları Gösermesin	programmer67	3	422	13-05-2023, 22:47 Son Mesaj: BeyTor
	Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası	OGUZTURKYILMAZ	3	673	13-04-2023, 23:39 Son Mesaj: OGUZTURKYILMAZ
	Altformda Kayıt Bulma Ve Tüm Kayda Metinkutusundan Veri Yazdırma	ŞabanTR	4	602	15-01-2023, 18:07 Son Mesaj: ŞabanTR
	Listbox çift Tıklama Olayında Kayda Göre Pencere Açma Hk.	volki3301	1	669	01-06-2021, 15:00 Son Mesaj: onur_can
	[VBA] Alt Formda Açılan Kutu Güncelleme	hedefkaya	5	729	07-02-2021, 14:45 Son Mesaj: ekremer1969

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL