(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