ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
06/03/2017 12:16
Konu Sahibi
raburabu
Yorumlar
28
Okunma
1579
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.951
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,07:24
Merhaba,

İnceleyip olumlu/olumsuz bildirimde bulununuz.


Ek Dosyalar
.rar   raburabu3-ATOZ2_SONN.rar (Dosya Boyutu: 208,09 KB / İndirme Sayısı: 11)
Cevapla

raburabu


Kullanici Avatari
Altın Üye
65
12/06/2015
0
Konya
Ofis 2010 32 Bit
Bugün,10:15
Merhaba ozanakkaya ve atoz112 hocalarım.

Ellerinize sağlık. Süper oldu. Bunu diğer formlarım da da kullanacağım inşallah. Süper olmuş. Allah ilminizi artırsın.


Cevapla

raburabu


Kullanici Avatari
Altın Üye
65
12/06/2015
0
Konya
Ofis 2010 32 Bit
Bugün,10:15
Merhaba hocalarım.

Biliyorum cevaplanmış sorulara aktarıldı ancak. Bu kodları diğer formlarım da kullandığımda geri alma işlemi yapmıyor. aşağıdaki kodda kırmızı olan yerleri değişiklik yapacağım formların ismi ile değiştirdim. Örnek teki gibi alt formlara da gerekli ekleri yaptım. Ancak yeni formda gerekli geri almaları yapmadı.

Çalışan kod
Dim ctl As Access.Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox And ctl.Tag = 1 Then
ctl.Value = EskiVeriler.Item(ctl.Name)
End If
Next
Set ctl = Nothing
Call Me.FATURADETAY.Form.EskiVeri
DoCmd.Close acForm, "alısfatura"

Cancel = True
DoCmd.Close
Else
Cancel = True
DoCmd.Close
End If


Yeni forma eklediğim kod

Dim ctl As Access.Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox And ctl.Tag = 1 Then
ctl.Value = EskiVeriler.Item(ctl.Name)
End If
Next
Set ctl = Nothing
Call Me.HAREKETDETAY.Form.EskiVeri
DoCmd.Close acForm, "HAREKETLER"

Cancel = True
DoCmd.Close
Else
Cancel = True
DoCmd.Close
End If
End If
'Hata:
End Sub


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.951
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,07:24
mdl_gerial isminde modül eklendi.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Option Compare Database
Option Explicit

Global EskiVeriler As VBA.Collection
'www.accesstr.net

Public Function EskiVerileriSakla(GFormadi As String)
On Error Resume Next
Dim GKontrol As Access.Control
Dim GAltformKontrol As Access.Control
Dim GForm As Access.Form

Set EskiVeriler = New VBA.Collection

Set GForm = Forms(GFormadi)

    For Each GKontrol In GForm.Controls

        If TypeName(GKontrol) = "SubForm" Then
            For Each GAltformKontrol In GKontrol.Form.Controls
                If GAltformKontrol.ControlType = acTextBox And GAltformKontrol.Tag = 1 Then
                    EskiVeriler.Add GAltformKontrol.Value & "", GAltformKontrol.Name
                End If
            Next
        Else
            If GKontrol.ControlType = acTextBox And GKontrol.Tag = 1 Then
                EskiVeriler.Add GKontrol.Value & "", GKontrol.Name
            End If
        End If
    Next

Set GKontrol = Nothing
End Function

Public Function EskiVeriAktar(GFormadi As String)
On Error Resume Next
Dim GKontrol As Access.Control
Dim GAltformKontrol As Access.Control
Dim GForm As Access.Form

Set GForm = Forms(GFormadi)

For Each GKontrol In GForm.Controls
    If TypeName(GKontrol) = "SubForm" Then
        For Each GAltformKontrol In GKontrol.Form.Controls
            If GAltformKontrol.ControlType = acTextBox And GAltformKontrol.Tag = 1 Then
                GAltformKontrol.Value = EskiVeriler.Item(GAltformKontrol.Name)
            End If
        Next
    Else
        If GKontrol.ControlType = acTextBox And GKontrol.Tag = 1 Then
            GKontrol.Value = EskiVeriler.Item(GKontrol.Name)
        End If
    End If
Next
End Function


Veri değiştiğinde geri alınacak metin kutularının im özelliğine 1 yazıldı.

Formun geçerli olduğunda olayına 

Visual Basic Code
Call EskiVerileriSakla(Me.Name)


Kodu eklendi.

Geri Al veya kapat butonunun tıklandığında olayına

Visual Basic Code
Call EskiVeriAktar(Me.Name)


Kodu eklendi.


Ek Dosyalar
.rar   raburabu-Sld_2.rar (Dosya Boyutu: 190,84 KB / İndirme Sayısı: 7)
Cevapla

atoz112

Uzman
Kullanici Avatari
Uzman
5.716
9
04/08/2009
İstanbul
Ofis 2007
10/11/2017,12:11
Sayın raburabu,

Sadece bilgilendirme amacı olması adına;
Örneği inceleme imkanım olmamakta fakat kodlara göre yorumlamak üzere,

Eğer önceki formlardaki denetimlerin özelliklerinde IM (TAG) satırı 1 olak yazıldıysa,yeni formlarda da aynı şekilde 1 olarak yazmanız gerekir.kodlarda gördüğüm ayrıntı bu olduğu için buna dikkat çekmek istedim.

Blginize...iyi çalışmalar,saygılar.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Kayıtlarda Gezerken Dlookup Nasıl Çalıştırılır? ogzcntrk 10 450 19/10/2017, 09:14 ogzcntrk
Çözüldü Raporda Satırbaşı Nasıl Eklenir. furens 3 114 22/09/2017, 09:49 furens
Çözüldü Access İçine Bat Dosyası Nasıl Yerleştirebilirim. mtorcu 10 429 28/08/2017, 11:03 mehmetdemiral
Çözüldü Alt Formu Kaydetmeden Kapatma (butonla) december 6 444 12/08/2017, 17:11 ozanakkaya
Çözüldü Veritabanında Tıklanan Düğmenin Adı Yada Değerini Tabloya Nasıl Aktarabilirim cemre1970 2 282 03/06/2017, 22:11 cemre1970
 
 

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