hocam sizden ricam açık kaynak kod şeklinde yayınlasanız da ben nasıl yapıldığını görsem
zaten proje açık. kodlarda gözüküyor. projeye Shift tuşuna basarak açınız ve açılasıya kadar Shift tuşunu bırakmayınız.
Kodlarda Bunlar.
Kod:
Private Sub TcNo_AfterUpdate()
If tcno = DLookup("[TcNo]", "[tblKisiler]", "[TcNo]=forms![frmKisiler]!TcNo") Then
MsgBox "Bu Personel Daha Önce Tanımlanmış..!", vbOKOnly, "Mükerrer Kayıt"
Exit Sub
Else
End If
End Sub
hocam çok ama çok teşekkür ediyorum . projeye Shift tuşuna basarak açma modulunu nasıl yaptığınızı öğrenebilirmiyim
shift tuşuna basılı tutuyorsun parmağını. projeye çift tıklıyorsun. açılınca parmağını shift tuşundan kaldırıyorsun. sitede arama yaparsan konu ile ilgili bilgileri bulabilirsin.
Modül falan değil o, açılışta bazı alanların görünmesini seçeneklerden kapatırsanız sadece shift ile açınca görünürler.
kıymetli hocalarım cevaplarınız için teşekkür ederim. özgür hocam size mesaj atmak istedim ama hata verdği için cevap veremedim . istediğim projeyi sizin sayenizde hemen hemen yapabildim. mehmet demiral hocam işte kapatmam gereken kısımlar hakkında kaynak konusunda yardoımcı olurmusunuz ??