-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
DLookUp da boş alana giriş yapabilmek
- Konbuyu başlatan FİKKO
- Başlangıç tarihi
Sayın FİKKO,
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.
İyi çalışmalar
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.
İyi çalışmalar
Sayın modalı,
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.
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.
rica
arkadaşlar uzun zamandır bekliyorum sorumla ilgili cevap olmadı sorunumu yanlış anlatmış olabilirim.Ricam şu yardım edebilirseniz.
DLookUp formülünü yazdığın alan formül olduğu için kilitleniyor,formülün baktığı alanlara veri girmezsem alanın kilitlenmemesi ve veri girilebilmesi
arkadaşlar uzun zamandır bekliyorum sorumla ilgili cevap olmadı sorunumu yanlış anlatmış olabilirim.Ricam şu yardım edebilirseniz.
DLookUp formülünü yazdığın alan formül olduğu için kilitleniyor,formülün baktığı alanlara veri girmezsem alanın kilitlenmemesi ve veri girilebilmesi
- Katılım
- 2 Ocak 2007
- Mesajlar
- 148
- Excel Vers. ve Dili
- office xp
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
http://www.excel.web.tr/showthread.php?t=26362
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
http://www.excel.web.tr/showthread.php?t=26362
cevap
ö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
Set rs = Nothing
Set conn = Nothing
End Sub
unutmadan referanslar resimdeki gibi olacak
ö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
Set rs = Nothing
Set conn = Nothing
End Sub
unutmadan referanslar resimdeki gibi olacak
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
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
Sayın Gülsüm hnm.
yardımlarınızdan dolayı size çok teşekkür ederim.Yapmış olduğunuz kod gerçekten çok işime yaradı her şey için tekrar çok teşekkür ederim kolay gelsin.
yardımlarınızdan dolayı size çok teşekkür ederim.Yapmış olduğunuz kod gerçekten çok işime yaradı her şey için tekrar çok teşekkür ederim kolay gelsin.
rica
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
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
Yardım
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
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