Yıla göre oto sıra numarası
Tarih
05/12/2012 00:16
Konu Sahibi
yorum70
Yorumlar
2
Okunma
1184
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
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ı.


Ek Dosyalar
.rar   HEDEF_ 2013.rar (Dosya Boyutu: 130,12 KB / İndirme Sayısı: 40)
"Her tercih, bir vazgeçiştir"

Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:45
Çö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

Cevapla


yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
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"

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  karma kutuya göre toplama çıkarma maras321 5 192 06/12/2016, 03:07 maras321
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 281 03/12/2016, 00:13 m_demir
  açılan kutu değerine göre aktif/pasif buton ferhatozge 10 338 30/11/2016, 12:01 donepezil
  açılır kutu secime göre yazı rengi ve sorgudan çağrılan ilişikli nesne (bit resmi) maras321 3 91 29/11/2016, 21:39 maras321
  Tabloda Telefon numarası yoksa eklesin. 53rize 4 92 29/11/2016, 11:30 53rize


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya