Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
29/05/2009 18:50
Konu Sahibi
firdevs
Yorumlar
13
Okunma
4609
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

firdevs

Aktif Üye
Kullanici Avatari
Aktif Üye
296
22/02/2009
46
İzmir
Ofis 2003
12/05/2014,23:39
Çözüldü 
Sayın Hocalarım
Bu işler ne zormuş..
Bir arpa boyu yol gidemiyorum. Img-cray

Private Sub KDV_Son_Durum_DblClick(Cancel As Integer)
If MsgBox("İNDİRİLECEK KDV tutarı Aktarılan KDV alanına aktarılsın mı?", vbYesNo, "Onaylayınız") = vbYes Then
Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV = IIf(IsNull(Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV), Forms![F_DONEM_INDR_KDV_Son]!KDV_Son_Durum, [A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV)

End If

Bu kodun neresi yanlış sürekli debug diyor.
Kurcalaya kurcalaya artık benim kafam da karıştı..Img-grin

Kod karışık gelebilir form ve alanların isimlerinden dolayı.
Bana açıklayıcı sade bir kod örneği verseniz de olur. Img-grin


Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Cevapla

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Çözüldü 
If MsgBox("İNDİRİLECEK KDV tutarı Aktarılan KDV alanına aktarılsın mı?", vbYesNo, "Onaylayınız") = vbYes 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
Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV = [A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV)
End If
End If


Bir de bunu deneseniz ?
Açıklama olarak :
Adreslemelerinizin doğru olduğunu varsayıyorum
sadece "IIf" ten vaz geçip
içiçe 2 "If" kullanıyorum


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

firdevs

Aktif Üye
Kullanici Avatari
Aktif Üye
296
22/02/2009
46
İzmir
Ofis 2003
12/05/2014,23:39
Çözüldü 
Olmuyor copile error syntax error diyor.


Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Cevapla

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Çözüldü 
uygulamayı ekleyin bakalım


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

firdevs

Aktif Üye
Kullanici Avatari
Aktif Üye
296
22/02/2009
46
İzmir
Ofis 2003
12/05/2014,23:39
Çözüldü 
adresleme dediğiniz kullandığım form ve alan adlarının doğru yazılışını kast ediyorsanız
defalarca kontrol ettim kesinlikle doğru
adres gösterme şeklimde hata var diye düşünüyorum.
Bundan önce tek açılan formdan yine tek bir açık olan forma aktarma yapmıştım .
Bu işlemi birkaç forma uyguladım.
Bunda alt formu adres gösteremediğimi düşünüyorum.
uygulamam çok büyüdü ve çok karışık gelebilir .
Resmen sizi çatlatır.
Razıyım olsun diyorsanız göndereyim.


Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Cevapla

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Çözüldü 
Lütfen Mesajınız dahil silip
aşağıdaki kodu tam olarak
yapıştırıp
denermisiniz



Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
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
Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV = [A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV
End If
End If


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü form üzerinde filtre ve sorgu bazk 17 9.381 07/09/2017, 09:08 alperen2006
Çözüldü Form Üzerinden Tablodaki Satış Koduna Ait Verileri İskonta Oranına Göre Güncelle husem 2 128 30/08/2017, 15:51 husem
Çözüldü Form.recordset Kodunda Hata Almaktayım. Makrovba 6 206 17/08/2017, 01:06 Makrovba
Çözüldü Alt Form Listesindeki İlk Seçeneğin Otomatik Seçilmesi katmer 2 167 05/08/2017, 21:47 katmer
Çözüldü Form Engelleme Hk. serkan1985 4 186 04/08/2017, 00:48 serkan1985

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.