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

Derecelendirme: 0/5 - 0 oy

yorum70


Kullanici Avatari
Altın Üye
A.... Ş....
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ı.


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

Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.871
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,22:23
Çö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
Altın Üye
A.... Ş....
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"

Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formdaki Değerlere Göre Raporu Listeleme husem 7 239 01/10/2017, 21:44 ozanakkaya
Çözüldü Form Üzerinden Tablodaki Satış Koduna Ait Verileri İskonta Oranına Göre Güncelle husem 2 153 30/08/2017, 15:51 husem
Çözüldü Döneme Göre Kayıt Etme haziran4 5 227 17/08/2017, 08:22 haziran4
Çözüldü Formda İki Kritere Göre Filtre Uygulamak ertans 2 267 18/07/2017, 11:43 ertans
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 1.066 14/07/2017, 08:32 Gokcen Akan

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