Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/12/2012 00:16
Konu Sahibi
yorum70
Yorumlar
2
Okunma
1608
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
iİY AKŞAMLAR:

Evrakno alanını yıl/oto sayı vermesi için Sirano alanını metınden otomatık sayıya çevirdim(1.ANAHTAR)

namara ekle butonuyla numara veriyor ancak kaydet deyınce proğramdan atıyor.

Yapmak istediğim; NUMARA EKLE butonun tıklandığında ki kodu KAYIT EKLE komutuna ekleyıp otomatık evrakno vermesi...

2012/1
2013/36...Yanı YIL/ SIRADAKİ sayı.


"Her tercih, bir vazgeçiştir"


ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:18
Çözüldü 
referanslara "Microsoft ActiveX Data Objects 2... Library" referansını ekle.

Kaydet butonunun tıklandığında olayındaki kodu aşağıdakilerle değiştir.


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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Private Sub kaydet_Click()
If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kaydediliyor...") = vbYes Then
    Dim son_id, aktif_yil, tablodaki_son_kayit, yil_bolumu, otomatik_sayi_bolumu As String
        son_id = DMax("sirano", "evrakkayit")
            tablodaki_son_kayit = Nz(DLookup("evrakno", "evrakkayit", "sirano=" & son_id), 0)
                If tablodaki_son_kayit = 0 Then
                    evrakno = Format(Date, "yyyy") & "-0001"
                Else
                    yil_bolumu = Left(tablodaki_son_kayit, 4)
                        If yil_bolumu <> Format(Date, "yyyy") Then
                            evrakno = Format(Date, "yyyy") & "-0001"
                        Else
                            evrakno = yil_bolumu & "-" & Format(Mid(tablodaki_son_kayit, 6, 5) + 1, "0###")
                        End If
                End If


    strSQL = "SELECT * FROM evrakkayit "
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  
  
 With rstkayit
        .Find "[evrakno]=" & "'" & Me![evrakno] & "'"
            If Not rstkayit.EOF Then
                
                .Fields("evrakno") = Me.evrakno
                .Fields("gelyer") = Me.gelyer
                .Fields("tarihi") = Me.tarihi
                .Fields("savtarih") = Me.savtarih
                .Fields("savno") = Me.savno
                .Fields("sayisi") = Me.sayisi
                .Fields("ilceno") = Me.ilceno
                .Fields("alintarih") = Me.alintarih
                .Fields("eki") = Me.eki
                .Fields("konuozt") = Me.konuozt
                .Fields("adisoyadi") = Me.adisoyadi
                .Fields("buro") = Me.buro
                .Fields("memur") = Me.memur
                .Fields("yazan") = Me.yazan
                .Fields("amir") = Me.amir
                .Fields("dusunceler") = Me.dusunceler
                .Fields("kayitoncesi") = Me.kayitoncesi
                .Fields("kayitsonrasi") = Me.kayitsonrasi
                .Fields("gereğiyapildimi") = Me.gereğiyapildimi
                .Fields("gonyer") = Me.gonyer
                .Fields("gontarih") = Me.gontarih
                .Fields("kyypo") = Me.kyypo
                .Fields("aitolddosya") = Me.aitolddosya
                .Fields("vertarih") = Me.vertarih
                .Fields("sucno") = Me.sucno
                .Update
             Else
                .AddNew
'Call MB

                .Fields("evrakno") = Me.evrakno
                .Fields("gelyer") = Me.gelyer
                .Fields("tarihi") = Me.tarihi
                .Fields("savtarih") = Me.savtarih
                .Fields("savno") = Me.savno
                .Fields("sayisi") = Me.sayisi
                .Fields("ilceno") = Me.ilceno
                .Fields("alintarih") = Me.alintarih
                .Fields("eki") = Me.eki
                .Fields("konuozt") = Me.konuozt
                .Fields("adisoyadi") = Me.adisoyadi
                .Fields("buro") = Me.buro
                .Fields("memur") = Me.memur
                .Fields("yazan") = Me.yazan
                .Fields("amir") = Me.amir
                .Fields("dusunceler") = Me.dusunceler
                .Fields("kayitoncesi") = Me.kayitoncesi
                .Fields("kayitsonrasi") = Me.kayitsonrasi
                .Fields("gereğiyapildimi") = Me.gereğiyapildimi
                .Fields("gonyer") = Me.gonyer
                .Fields("gontarih") = Me.gontarih
                .Fields("kyypo") = Me.kyypo
                .Fields("aitolddosya") = Me.aitolddosya
                .Fields("vertarih") = Me.vertarih
                .Fields("sucno") = Me.sucno
                .Update
             End If
        End With
      
End If

MsgBox "Kayıt Gerçekleşmiştir..", , "Bilgi"
End Sub


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
Sn.Ozanakkaya çok teşekkür ediyorum.Sorun çözüldü.


"Her tercih, bir vazgeçiştir"



Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Metin Ve Rakamlardan Seri Numarası Üretme Yunus Bozkurt 11 268 16/06/2019, 17:06
Son Yorum: halily
Çözüldü Form Ortalama Ekran Çözünürlüğüne Göre cozum 3 101 31/05/2019, 17:31
Son Yorum: ozanakkaya
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 121 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 296 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü Girilen Sipariş Miktarına Göre Makinanın Üretm Doluluğu gimbo25 7 263 14/05/2019, 14:10
Son Yorum: halily

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.