02/12/2010, 13:55
Merhabalar. Formumun girildiğinde olayına If DCount("[birimsayisi] or [birim]", "gelenevrak", "[birimsayisi]or [birim] = Forms.form1.[birimsayisi] or [birim]") > 0 Then
MsgBox Me.[birimsayisi] & " numaralı kayıttan daha önce girilmiş."
Me.Undo
End If
End Sub ifadesini yazdım. Farklı birimlerden aynı sayı ile birden çok yazışma gelebilir. Amacım aynı anda hem birim sayısı hem de birimi kontrol etsin her ikiside mükerrerse kayıt yapmasın. Yukarıdaki kod birimsayısı aynı ise farklı bir birimden de gelse kayıt yapmıyor.Yardımcı olabilirmisiniz.
MsgBox Me.[birimsayisi] & " numaralı kayıttan daha önce girilmiş."
Me.Undo
End If
End Sub ifadesini yazdım. Farklı birimlerden aynı sayı ile birden çok yazışma gelebilir. Amacım aynı anda hem birim sayısı hem de birimi kontrol etsin her ikiside mükerrerse kayıt yapmasın. Yukarıdaki kod birimsayısı aynı ise farklı bir birimden de gelse kayıt yapmıyor.Yardımcı olabilirmisiniz.