DLookUp fonksiyonu alanın veri bağlantısı olarak yazıldığından değişiklik yapma imkanınız yok. Ancak, Sevkiyat tablosuna fiyat diye bir alan eklerseniz ve DLookUp fonksiyonunu kod olarak girerseniz o zaman değiştirmek istediğiniz fiyat değişir ve aynı zamanda kaydedilir.
sizden fazla yardım istediğimi biliyorum ama inanın access konusunda acemiyim ve şunuda bilminizi isterim ki siz ve arkadaşlardan cevap gelene kadarda ben diğer konu ve sorulara bakarak çözmeye çalışıyorum.
şimdi ricam şu nasıl yapacaığımı bana daha açık anlatırmısınız,teşekkürler.
sayın fikko
anladığım kadarıyla fiyat kısmında çıkan fiyatı bazen değiştirmek istiyorsun,
sayın gulsum1 bu konuda bana yardımcı olmuştu bakabilirsin
öncelikle sevkiyat tablona Fiyat diye bir alan ekle sonra sevkiyat formuna gel ve oradaki Fiyat metin kutusunun denetim kaynağını Fiyat yap sonrada AlışVadesi metin kutususnun denetim kaynağını Alış Vadesi diye değiştir
sonrada bu kodu formunda Sip_No alanının güncellendiğinde kısmına ekle sen sipariş noyu girip o alandan çıktıktan sonra cinsi ve sipariş noyu kontraol eder eğer cinsler tablosunda uyuşan değer varsa onları ilgili alana getirir yoksa sen elinle yazabilirsin ok
Private Sub Sip_No_AfterUpdate()
Dim rs As New ADODB.Recordset
rs.Open "Cinsler", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
If rs("Cins") = Me.Cins And rs("SipNo") = Me.Sip_No Then
Fiyat.Value = rs("Fiyat")
Alış_Vadesi.Value = rs("Vadesi")
End If
rs.MoveNext
Loop Until rs.EOF
End If
formundaki Fiyat metin kutusunun özellikler diğer adını Fiyat diye değiştir kod çalışacak dikkatet kod formda fiyat diye bir metin kutusu arıyor ama formdaki açılankutu bilmem ne
Private Sub SipNo_AfterUpdate()
Dim rs As New ADODB.Recordset
rs.Open "Cinsler", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
If rs("Cins") = Me.Cins And rs("SipNo") = Me.SipNo Then
Fiyat.Value = rs("Fiyat")
Alış_Vadesi.Value = rs("Vadesi")
End If
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
End Sub
kodun doğrusu bu olacak önceden Sip_No olan alanı SipNo olarak değştirmişsin
sevgili gülsüm hnm.
bana bu konuyla ilgili yardım etmiş ve sorunumu çözmüştünüz.Fakat sevkiyata
yazdığınız kodun baktığı tablo yerine sorgudan bakmasını sağlamaya çalıştım
ve bugüne kadar halledemedim bana yardımcı olursanız çok sevinirim.Teşekkürler
sorgu ile tablonun adı aynı olduğu için sorgu ismini cinsler1 diye değiştir koda gir ordaki cinsler olan adı cinsler1 diye değiştir
Arkadaşlar yukarıda görüldüğü gibi dosyada bir kod uyguladık ve çalışmıştı
şimdi ben bu kod un sorgudan veri almasını istiyorum fakat olmuyor yardımcı olurmusunuz,teşekkürler
dosyanını son hali ektedir kod sevkiyat formu sipno içindedir
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.