@ozguryasin tarafından yapılan MySql örneğini ufak düzenlemeler ile MsSql Server için uyarladım.

VBA penceresinde yer alan SqlServerConnStr modülündeki SqlServerConnStringGetir isimli fonksiyon bize MsSql Server'a bağlantı için gereken SqlServer Connection String (SqlServer'a Bağlantı Cümlesi) geri döndürür.

MsSql'e bağlantı için iki tür yöntem vardır:

1- Windows Authentication ile kendi bilgisayarınızda herhangi bir kullanıcı adı ve şifre gerektirmeden MsSql Se

Arkadaşlar verilerinizi md5 şifreleme ile kullanmak için örnek uygulama paylaşmak istedim.Özellikle veritabanı web sayfası ile ortak kullanacak olursanız ihtiyacınız olabilir.

Yaptığım Saat uygulaması umarım beğenirsiniz.

Güle güle kullanınız.

Arkadaşlar. Size kendimce geliştirmeye çalıştığım bir basit lisanslama ve demo örneğini yolluyorum. Bu örneği adım adım açıklayalım:

1- Öncelikle gönderdiğim Mdsoft_demo uygulamasını kuruyoruz. Böylece aslında bir klasör açıp içine Access çalışmamız kopyalanıyor. Bu arada masaüstüne kısayol, ekle kaldır falan da yollanmış oluyor. Bunu Smart İnstall Maker programıyla hazırladım. 

2- Aynı kurulum içinde aslında bir gizli dosya da windows klasörüne kopyalanıyor. Bu bizim demomuzun kısıtlı çal

Oto Galeri Veritabanı lazım acil

Merhaba Ben Proje Ödevi Aldım Ama Tam Nerden Başlıcamı Bilmiyorum O Yüzden Biraz Örneklere Bakıp Fikir Edinmek İstiyorum Şimdiden Cevap Yazanlara Teşekkür Ediyorum

excelde listbox sıralama örneği

Merhaba Usta arkadaşlar, 
Ekte, form üzerinde çalışan liste kutusundan arama örneği var. Arama işlemini sol taraftaki metin kutusu üzerinden yapıyor. Anlaşılacağı bulma işlemini üzere alttaki liste kutusundan yapıyor. 

Benim yapmak istediğim ise buna benzer şekilde sağ tarafa eklediğim açılan kutudan seçilen parametreye göre alttaki liste filtrelenecek, yani kayıtlar azaltılacak ve kullanıcı kalan kayıtları görüp inceleyerek bir tanesini seçecek. Örneğe göre köyler  Tozkoparan köyünü seçtiği

Merhaba,
modül kodları:
[vb]Public Sub KytKaynAyari(ByVal MvctForm As Access.Form)

Dim SqlStr, SqlStrRpr As String
' formun kayıt kaynağının ayarlanması
SqlStr = " SELECT TACALISANKAYDI.*, TRADYASYON" & MvctForm.AclRMynSec & ".* FROM TACALISANKAYDI LEFT JOIN TRADYASYON" & MvctForm.AclRMynSec & _
         " ON TACALISANKAYDI.KIMNO = TRADYASYON" & MvctForm.AclRMynSec & ".KIMNO"
SqlStrRpr = SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=[Formlar]![FRADYASYONMYN]![mtn_KimNo]))"

DoCmd.OpenForm