Arkadaşlar merhaba,
ekteki dosyamda tabloda durum2 alanı için açlına kutudan durum değişikliği yapmaktayım.Yani işi biten satırlar için tahsil ya da iade seçeneği vermekteyim.
Ancak benim yapmak istediğim tarih formunda göreceğiniz üzere seçilen tarih alanına göre tıklandığında otomatik olarak "tahsil" bilgisini güncellemek istiyorum.
bunu bir sorgu ile çözebiliyorum ancak Vba olarak başaramadım.
Konuyla ilgili bilgi ve yardımlarınızı rica ediyrum.
Sevgi ve saygılarımla.
UPDATE sorunu hk
Formunuzda eksik bilgiler var gibi düşünerek ak12 isimli bir açılankutu ekledim.
inceleyiniz...
NOT: Koddaki 'OnError Goto HATA[/B] satırının başındaki tırnak işaretini kaldırın.
OnError Goto HATA[/B] olacak
inceleyiniz...
NOT: Koddaki 'OnError Goto HATA[/B] satırının başındaki tırnak işaretini kaldırın.
OnError Goto HATA[/B] olacak
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Ayhan bey yardım ve cevabınız için çok teşekkür ederim.bu soru için tam olarak istediğim cevap.
affınıza sığınarak dosyada az bir uyarlama soru da bir ilave yaptım ,
yeni halinde iki tane durum kutucuğu oldu.durumlar arası uptade için de yardımınızı alabilirsem çok sevineceğim.
Sevgi ve saygılarımla.
affınıza sığınarak dosyada az bir uyarlama soru da bir ilave yaptım ,
yeni halinde iki tane durum kutucuğu oldu.durumlar arası uptade için de yardımınızı alabilirsem çok sevineceğim.
Sevgi ve saygılarımla.
Biraz uğraştırdı ama galiba istediğin Sql deyimi bu
Kod:
Private Sub Command0_Click()
On Error GoTo HATA
DoCmd.RunSQL "UPDATE " & txtTUR & " SET " & txtTUR & ".durum2 = " & IIf(IsNull(ak12), "Null ", "ak12 ") & _
"WHERE (((" & txtTUR & ".ttarihi) Between [ilktarih] And [sontarih]) " & _
"and ( " & txtTUR & ".TUR = txtTUR) " & _
"and ((" & txtTUR & IIf(IsNull(ak11), ".durum2) Is Null));", _
".durum2= ak11)))")
MsgBox "Degistirildi..... ", vbInformation, ":)"
CIKIS: Exit Sub
HATA:
MsgBox "HATALI ISLEM YAPTINIZ.....", vbCritical, ":("
Resume CIKIS
End Sub
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Ayhan bey, mükemmel cevabınız için çok teşekkür ederim.
Dünden beri uğraşıyordum ama şimdi cevabınızı görünce çözüme epeyce uzak olduğumu
görüyorum.. ( döngülerle çözebilirim sanıyordum da)
çok çok teşekkür ederim.
Zihninize sağlık...
Dünden beri uğraşıyordum ama şimdi cevabınızı görünce çözüme epeyce uzak olduğumu
görüyorum.. ( döngülerle çözebilirim sanıyordum da)
çok çok teşekkür ederim.
Zihninize sağlık...
Konuyu Okuyanlar: 1 Ziyaretçi