Otomatik sayı yıllara göre vermesi - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Otomatik sayı yıllara göre vermesi (/konu-otomatik-sayi-yillara-gore-vermesi.html) |
Cvp: Otomatik sayı yıllara göre vermesi - Fatih34 - 16/03/2019 (15/03/2019, 23:19)ozanakkaya yazdı: Fatih34 ? Hocam aynı kisiyim. Profil resmi kaldırınca bu şekilde oldu. Cvp: Otomatik sayı yıllara göre vermesi - berduş - 18/03/2019 değerleri otomatik sayıya vereceğinizi varsayarak tablonuzun otomatik sayı alanını kısa metin yaptım ama gönderdiğiniz çalışmada formda otomatik sayıyı gösteren metin kutusu göremedim. ben mi yanlış anladım? kodu kaydet butonuna ekledim dilerim işinize yarar bu arada ufak bir hatırlatma accesste hiçbir tablo, form ,rapor metin kutusu tablodaki alan adlarında boşluk yada Türkçe karakter kullanmayın sorun çıkabilir. Cvp: Otomatik sayı yıllara göre vermesi - berduş - 20/03/2019 syn fatih34 olumlu yada olumsuz geribildirimde bulunur musunuz? Cvp: Otomatik sayı yıllara göre vermesi - Fatih34 - 06/04/2019 (20/03/2019, 11:06)haliliyas yazdı: syn fatih34 olumlu yada olumsuz geribildirimde bulunur musunuz? Sayın Halil hocam öncelikle teşekkür ederim ilginiz ve alakanız için. İşlerden dolayı siteye girememiştim. İnceledim hocan elinize ve yüreğinize sağlık. Yalnız hocam ekte gönderdiğim çalışmaya uyguladım. Hata verdi. Kodlarda sadece isimlerde değişiklik yaptım hata verdi. Nerede hata yaptığımı bir türlü bulamadım. Ayrıca hocam her denemede bir sayıyı otomatik veriyor. Her ne kadar tablodaki kayıtları silsemde sıfırdan vermeyip kaldığı yerden devam ediyor nerede bir değişiklik yapmak gerekiyor Sub TumDenetimlerAktif() AktifOlsun "frmŞahısBilgileri" btnYeniKayıt.Enabled = False btnkapat.Enabled = False btnDüzenle.Enabled = False End Sub Sub TumDenetimlerPasif() PasifOlsun "frmŞahısBilgileri" btnYeniKayıt.Enabled = True btnkapat.Enabled = True btnDüzenle.Enabled = True End Sub Private Sub btnIptal_Click() TumDenetimlerPasif DoCmd.GoToRecord , , acLast End Sub Private Sub btnKapat_Click() If MsgBox("Pdncereyi Kapatmak isytediğinize Eminmisiniz?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then DoCmd.Close acForm, "FrmŞahısBilgileri" End If End Sub Private Sub btnKaydet_Click() 'TC Kimlik Numarası Boş Geçilmez If IsNull(txtTcKimlikNo) Or txtTcKimlikNo = "" Then MsgBox "Lütfen TC Kimlik Nosunu Giriniz", vbExclamation, "Uyarı" Exit Sub End If 'Bilgileri Kaydet xmax = DMax("mid([EvrakSayısı],6)", "[tblŞahısBilgileri]", "mid([EvrakSayısı],1,4)=format(date(),'yyyy')") Me.EvrakSayısı = Format(Date, "yyyy") & "/" & Nz(xmax, 0) + 1 (Bu kod Hata veriyor ) DoCmd.RunCommand acCmdSaveRecord MsgBox "Bilgiler Başarı İle Kayıt Edildi", vbExclamation, "Uyarı" TumDenetimlerPasif DoCmd.GoToRecord , , acNewRec End Sub Private Sub btnYeniKayıt_Click() TumDenetimlerAktif DoCmd.GoToRecord , , acNewRec End Sub Private Sub cboIl_AfterUpdate() cboIlce.Requery End Sub Private Sub cboIl1_AfterUpdate() cboIlce1.Requery End Sub Private Sub EvrakSayısı_Click() xmax = DMax("mid([EvrakSayısı],6)", "[tblŞahısBilgileri]", "mid([EvrakSayısı],1,4)=format(date(),'yyyy')") Me.EvrakSayısı = Format(Date, "yyyy") & "/" & Nz(xmax, 0) + 1 End Sub Private Sub Form_Load() TumDenetimlerPasif End Sub Cvp: Otomatik sayı yıllara göre vermesi - berduş - 06/04/2019 tablo yapınızı ve formunuzu görmeden bir şey demem zor. daha önce gönderdiğiniz tablo ve formda neler değişti bilemiyor. ne hatası verdi? Cvp: Otomatik sayı yıllara göre vermesi - berduş - 06/04/2019 tüm kayıtları sildiğiniz halde yani hiç kayıt olmamasına rağmen mi kaldığı yerden devam ediyor? ben şimdi denedim çalıştı. kayıtları silince 1 den başladı tarihi 2020 ye aldım 1 den başladı tarihi 2019 aldım kaldığı yerden devam etti aradaki kayıtları sildim (1,2,3,4 vardı 2 ve 3 sildim) yeni kayıt 5ten başladı. çalışmanızı eklerseniz çözmeye çalışırız. |