Büyük harf i metin kutusu alan özelliği biçim e > bu işareti yazmanız yeter
silme tuşuna şifre konuldu şifre 123 buton özelliği tıklandıgında olay yordamında kodu görebilirsiniz
prg açıldıgında ilk açılacak formu Dosya secenekler gecerli veritabanı form görüntüleden ayarlayınız
raporun tam görünmesi için acıldıgında olay yordamına DoCmd.maximize yazınız diger bölümündeki açılan kalıcı yı evet olarak işaretleyiniz
mükerrer kayıt engelleme
Metin kutusunun güncelleştirme sonrasına
Private Sub barkod_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.[barkod].Value
stLinkCriteria = "[barkod]=" & "'" & SID & "'"
If DCount("[barkod]", "tblgelenmal", stLinkCriteria) > 0 Then
'Undo duplicate entry
Me.Undo
MsgBox "GİRMAYA ÇALIŞTIĞINIZ " _
& SID & " NUMARALI BARKOD DAHA ÖNCE GİRİLMİŞ." _
& vbCr & vbCr & "LÜTFEN KAYITLARINIZI KONTROL EDİNİZ.", vbInformation _
, "AYNI BARKOD'u TEKRAR GİRİYORSUNUZ"
End If
DoCmd.Close
End Sub

kodu yazın gerekli alanları kendi prg nize göre değiştirin