AccessTr.neT

birde bu tip deneyin

Forms![A_DONEM_FORM_ANA].[A_DONEM_Gelir_ANA alt formu].Form!.[AktarilanindrKDV]=

denedim
aktar as integer i beğenmedi



Private Sub KDV_Son_Durum_DblClick(Cancel As Integer)

aktar As Integer
aktar = MsgBox("İNDİRİLECEK KDV tutarı " & vbCrLf & _
"Aktarılan KDV alanına" & vbCrLf & _
"aktarılsın mı ?", _
vbCritical + vbYesNo, _
"Onaylayınız")
If aktar = 6 Then
If IsNull(Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV) Then
Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV = Forms![F_DONEM_INDR_KDV_Son]!KDV_Son_Durum
Else

End Sub

bakın ben kullanıyorum benim kullandığım kod bu şekilde
Private Sub Liste16_Click()
Forms!ANAFORM.[GİDEN].Form!.[SAYI] = Dlookup ("[SAYI]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[KONU] = Dlookup ("[KONU]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[TARİH] = Dlookup ("[TARİH]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[DESİMAL NO] = Dlookup ("[DESİMAL NO]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[BÖLÜM] = Dlookup ("[BÖLÜM]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[CİNSİ] = Dlookup ("[CİNSİ]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[GİTTİĞİ YER] = Dlookup ("[GİTTİĞİ YER]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[EK] = Dlookup ("[EK]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
Forms!ANAFORM.[GİDEN].Form!.[İD] = Dlookup ("[İD]", "GİDEN", "[İD] = " _
& Liste16.Column(7))
End Sub

başına dim yazın beğenir
iddialıyım bu kod çalışacak

Dim aktar As Integer

Eşref hocam sizin gönderdiğinizide denedim olmadı
Örneği göndereyim mi.
Bak söylemedi demeyim ben bile içinde boğulacağım.

---

Yok hocam beğendiremedim
Hem sizin mesaj farklı ve yüksek bir sesle çıkınca korktum

Sorgulardada problem meydana geldi de birazda o sebepten göndermek istemedim.
Sizinde iyice kafanızı karıştırır diye.
Şu an ilgilendiğim sorun
DONEM ANA Formundaki butonla açtığım KDV formundan indirilecek KDV yi Gelir elt formunda aktarılan KDV alanına aktarmaya çalışıyorum.
Açılan form sogudan geliyor
Donem alanı kriter açılıyor.
Aslında ocak ayında borç kalmadı şubattada 14,00 kaldı ama nasıl bir problem varsa bir ocakta bir şubatta indirilecek KDV görünüyor .
Bana yardımcı olmaya çalıştığınız için teşekkür ederim.
Projemi komple gömderiyorum. Size kolay gelsin..

---

Sayın Hocalarım
Biraz dinlenince mesajlarımın biraz gayri ciddi olduğunu fark ettim, özür dilerim.
Niyetim saygısızlık etmek değildi. Hani yorgunluktan gülme krizi tutar ya işte öyle
Saygılar..

Projem çok mu kötü Hocalarım Bi el atan olmadı..