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.
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.