AccessTr.neT

Tam Versiyon: Otomatik sayı yıllara göre vermesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
(15/03/2019, 23:19)ozanakkaya yazdı: [ -> ]Fatih34 ?
fatih16 ?

Hocam aynı kisiyim. Profil resmi kaldırınca bu şekilde oldu.
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.
syn fatih34 olumlu yada olumsuz geribildirimde bulunur musunuz?
(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
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?
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.
Sayfalar: 1 2 3