VBA kodunuzun analizini yapan program tertemiz bir kod yazılması için tüm hünerlerini sergiliyor.

*** Ölü kodları temizleyerek projenizi hızlandırıyor.
*** Program içinde unutulan, mantık hatası yapılan yerleri tespit edebiliyor.
*** Kullanılmayan fonksiyon ve modülleri siler.
*** Kodunuzu optimize eder,
*** Kusurlu, gizli hataları düzeltir
*** Akış şemasını çizebilir
*** Kodların kullandığı DLL, OCX vs. gösterir

Daha bir sürü özelliği olan program gerçekten mükemmel özelliklere sahi

s.a.

[vb]Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String
Yetki = Dlookup ("Yetki", "tblsifre", "[ID]=" & Forms!frmşifre!kullanıcı.Value)
If Yetki = "Admin" Then
k1 = Dir("c:\windows\system32\def.txt")
If k1 = "" Then
MsgBox "Üzgünüz. Lisans işlemleriniz yapılmamış. Lütfen bizimle irtibata geçiniz", vbCritical, "DİKKAT - Lisanssız program kullanımı"

DoCmd.OpenForm "frm_Lisans"
k2 = Dir("c:\windows\system32\abc.txt")
If k2 = "" Then MsgBox "Üzgünüz. Lisans işlemleriniz ya

rs.Open "SELECT * FROM [ILACLAR] ORDER BY IIf(IsNumeric(Mid([ILAC_NO],1,1)),1,2), IIf(IsNumeric(Mid([ILAC_NO],1,1)),[ILAC_NO],Mid([ILAC_NO],3))*1;", Baglan, 1, 1 

Bu kod ile sayıları ve harf ile başlayan (A-109 gibi) sayıları sıralatabiliyorum.
101-A
101-B
101-C
101-D
101-E
101-F
ACL-200
LMC-001
KCC-201
gibi harf ile biten ve başında üç harf bulunan sayılar için bu çalışmıyor.Bu kodda nasıl revize yaparsam bu verdiğim sayılarıda sıralamaya sokabilirim.

Merhaba arkadaşlar, 

Ekteki veritabanımda resimde gördüğünüz gibi bir uyarı alıyorum. Daha öncesinde Office 2010 accdb formatındayken gayet güzel çalışyordu fakat mdb ye çevirdiğimde bu hatayı veriyor. Nasıl çözeriz  Teşekkürler.

Servis Giriş Formunda bir kayıt için Görev Emri butonuna bastığımda raporu açıyordu. Şimdi Raporda personel isimleri hata veriyor.

[Resim: https://accesstr.net/resim/do.php?img=5015]

sayın üstadlarım merhaba;

bir düğme tıklanma yordamına bir tablo açtırmak istiyorum ancak bundan önce bir mesaj kutusuyla uyarmak istiyorum ve evet, hayır seçenekleri olacak kişi evet derse kontrol paneli kapanacak ve tablo açılacak hayır derse bi işlem yapmadan kontrol panelinde kalacak
eveti seçince kontrol panelini kapatamadığım için mesaj kutusunun önüne kapanması için kodu ekledim ancak hayır deyince kontrol panelini tekrar açmadığı için altına bir satır daha ekledim hayır derse kontrol

Merhabalar arkadaşlar,

Access ile DepoTakip sistemi hazırlamaktayım.  ADO ' yu kullanarak bağlantı  ve kayıt oluşturmaktayım. Sorunum Fiş Giriş formunu açtığımda sistem  form.recordset koduna geldiğimde hata veriyor ve hata ayıklama moduna düşüyor daha sonrada program kapatılıyor. Örnek resimler ektedir.
Ancak  Access 2010 sürümünde prgramı çalıştırdığımda  herhangi bir hata vermedi düzgün bir şekilde  çalıştı. Bu hatayı Access 2016 versiyonunda almaktayım. Acaba 2016 versiyonundan kaynaklı

MErhaba Arkadaşlar;
Aşağıdaki kodda göreceğiniz olusturtarih1 ve olusturtarih2 ifadelerini listekutusu isimli listekutusunun kaynak koduna çağırmak istiyorum.
Bu alanların forma çağrılması konusunda sorun yok. Denemek için metin kutusu yaptım istediğim gibi kodlar geliyor. Fakat Select ifadesi içerisinde & [size=small][font=Monaco, Consolas, Courier, monospace]" & [olusturtarih1] & "  ve [size=small][font=Monaco, Consolas, Courier, monospace] & [olusturtarih1] &  ve hatta [size=small][font=Monac

iYİ AKŞAMLAR

INSERT INTO ile Formdan tabloya kayıt yapmaya çalışıyorum. Eksik işleç diye bir hata veriyor sebebi nedir. Yardımlarınız için teşekkürler.

[Resim: https://accesstr.net/resim/do.php?imgf=1...045681.jpg]
[Resim: https://accesstr.net/resim/do.php?imgf=1...706332.jpg]
Bu arada bu hataya rağmen tabloya kaydı atıyor. Kodda Türkçe karakter sorunuda yok.

Arkadaşlar Ado ile kaydet butonun kodlarını bir arkadaşın çalışmasından alarak ve öğrenerek uyarlamaya çalışıyorum. lakin hata alıyorum. İlgilenebilir misiniz?
[sql]
If IsNull(Me.txtid) Or Me.txtid = "" Then
MsgBox "Lütfen Öğrenci Kayıt Sırasını Yazınız!", , "Kayıt İşlemi"
Me.txtid.SetFocus
Exit Sub
End If

Dim txtidKontrol As Long
txtidKontrol = Nz(DCount("ogrid", "tbl_ogrenciler", "ogrid='" & Me.txtid & "'"))
If txtidKontrol <> 0 Then
Cancel = False
MsgBox "Girmekte Oldugu

Kendi Yazdığım Scriptte Acunetix Ve Rips Gibi Yazılımlar İle Tarama Yaptım Ve Birçok Hata Aldım, Genelikle Hatalar Kendini Tekrar Ediyor Örnek Olarak Db Dosyam Tüm Sayfalarda Çalıştığı İçin Db Dosyamdaki Bir Hata Kendini Diğer Sayfalarda Da Gösteriyor. Netten Sürekli Araştırmalar Yapıyorum Ama Hataların Çözümlerini Bulamıyorum. Rips Hataları Gösterdiği Gibi Çözümlerinide Sunuyor Ancak Çözümlerdeki Gibi Yaptığım Halde Bile Hata Almaya Devam Ediyorum. 
Örnek Hatalar ;


[img]https://resim.acce