Değer belirleme

[özcan.]

Değerli Arkadaşlar,
Ben Forumunuzun yeni bir üyesiyim. İşyerimde kendi hazırladığım bir stok programı kullanıyorum ve programı geliştirmeye çalışıyorum. Programda Ürün Listesinden Faturaların ilgili alanlarının (AlışFiyatı,ÜrünAdı vb.)değerlerini belirliyorum.
Birden fazla fatura türü ve bir Ürün Listesi var.
Bunun için Ürün listesinde aşağıdaki örnek kodu kullanıyorum.

Private Sub AlışFiyatı_DblClick(Cancel As Integer)
On Error GoTo ErrorHandler
Forms![Alış Faturası]!AlışFiyatı = Forms![Ürünler]!AlışFiyatı
Forms![Alış Faturası]!ÜrünAdı = Forms![Ürünler]!ÜrünAdı

Forms![Satış Faturası]!SatışFiyatı = Forms![Ürünler]!SatışFiyatı
Forms![Satış Faturası]!ÜrünAdı = Forms![Ürünler]!ÜrünAdı

ErrorHandlerExit:
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
Resume ErrorHandlerExit
End Sub
Problem şu. O sırada değer belirleme işlemini açık olan Alış Faturası için yapıyorum. Satış Faturası kapalı olduğu için bu kod ile doğal olarak"Satış Faturası bulunamadı..." şeklinde ikaz alıyorum. Bu durumda her fatura türü için ona ait değerleri saklayacak ayrı Ürün Listeleri yapmaktan başka yol var mı? Tek Ürün Listesine nasıl bir kod yazayım ki sadece açık olan faturanın değerlerini belirlesin. Kapalı olan faturalar için “….faturası bulunamadı” şeklinde ikaz vermesin. Yardımınız için şimdiden teşekkürler.

 

[modalı]

Sayın özcan,

Var tabi. Formlarınız belli tablolara dayanıyorlar. O zaman DLookUp fonksiyonu ile bilgileri istediğiniz tablodan çekip alabilirsiniz.

İyi çalışmalar

 

[özcan.]

Değer Belirleme

Sayın özcan,

Var tabi. Formlarınız belli tablolara dayanıyorlar. O zaman DLookUp fonksiyonu ile bilgileri istediğiniz tablodan çekip alabilirsiniz.

İyi çalışmalar

Sayın Modalı
DLookUp fonksiyonunu hangi forma nasıl uygulayacağımı anlayamadım. Ekte örnek dosya gönderiyorum. İlgilenirseniz sevinirim. Teşekkürler.

 

[modalı]

Sayın özcan,

Gönderdiğiniz uygulama ya eksik, bazı noktaları silinmiş veya başka bir uygulamadan eksik kopyalanmış. Bir sürü alt form görünüyor ama onları taşıyan ana form yok.

İyi çalışmalar

 

[özcan.]

Sayın özcan,

Gönderdiğiniz uygulama ya eksik, bazı noktaları silinmiş veya başka bir uygulamadan eksik kopyalanmış. Bir sürü alt form görünüyor ama onları taşıyan ana form yok.

İyi çalışmalar

Sayın Modalı,
Örnekteki eksiklikleri düzelttiğimi sanıyorum. Sizin de göreceğiniz gibi ya dört ayrı Stok Formu kullanmam gerekecek ya da tek Stok Formundaki tüm faturaları kapsayan kodu aynı formdan tüm faturalarda kullanılabilir hale getirmem gerekecek.Sizi bu konuda fazla meşgul ettiğim için kusura bakmayın. Teşekkürler.