AccessTr.neT
UPDATE sorunu hk - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: UPDATE sorunu hk (/konu-update-sorunu-hk.html)



UPDATE sorunu hk - amelie - 08/12/2009

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.


Cvp: UPDATE sorunu hk - ayhan2122 - 08/12/2009

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


Cvp: UPDATE sorunu hk - amelie - 08/12/2009

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.


Cvp: UPDATE sorunu hk - ayhan2122 - 09/12/2009

Biraz uğraştırdı ama galiba istediğin Sql deyimi bu Img-grin

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




Cvp: UPDATE sorunu hk - amelie - 10/12/2009

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..Img-cray ( döngülerle çözebilirim sanıyordum da)
çok çok teşekkür ederim.
Zihninize sağlık...