الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اضافه الى كود

بدأه bumb في 23 يوليو 2011 · 5 رد · 500 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

في البداية اشكركم كافة من مشرفين ومتعاونين على ما قدمتموه لي

لدي كود اود تطويره

الكود بكل بساطه يلغي رسالة الأكسس المتعلقة بالتكرار ويظهر رساله بدلاً منها ولأسباب انتم تعلمونها جيداً

المطلوب هو

عندما يجد القيمة المراد ادخالها تظهر الرسالة مصحوبة بمعلومات صاحب القيمه بدلاً من تنبيهي بأنها موجوده فقط ... مثال

في نموذج بيانات عميل جديد اقوم بادخال السجل المدني وعند الضغط على انتر يبدأ الكود بالعمل بحيث اذا كان السجل المدني غير موجود يسمح لك بإكمل التسجيل ولكن اذا كان موجوداً تظهر الرساله وبها بيان بأن السجل المدني يخص فلان وتاريخ تسجيله كذا وبقية البيانات التي سوف اقوم انا بإضافتها الى الكود فيما بعد

اشكركم على سعة صدركم

الكود

Private Sub txtBawahNum_BeforeUpdate(Cancel As Integer)

Dim aa As String

On Error Resume Next

DoCmd.SetWarnings False

aa = DLookup("BawahNum", "Details", "BawahNum = txtBawahNum ")

If aa <> "" Then

MsgBox "هذا الرقم موجود مسبقاً", vbInformation

Cancel = -1

End If

End Sub

تحياتي لكم

#2

تفضل هذا الكود 

txtc = DCount("[importername]", "importationtable", "[receiveno]=[forms]![importaionform]![receiveno]")
txtc3 = DLookup("[IDD]", "importationtable", "[receiveno]=[forms]![importaionform]![receiveno]")

txtc2 = DLookup("[importername]", "importationtable", "[receiveno]=[forms]![importaionform]![receiveno]")
If txtc > 0 Then
        Beep
        MsgBox " ÓÈÞ ÊÓÌíá ÇáÝÇÊæÑÉ ÑÞã : " & receiveno & vbCrLf & _
         "  ÈÇÓã : " & txtc2 & vbCrLf & _
         " Ýí ÇáãÚÇãáÉ ÑÞã : " & txtc3
             DoCmd.GoToControl "id"
       DoCmd.GoToControl "receiveno"
 receiveno = ""

Else
End If

وهذا مثال بالكود

بالتوفيق

msg.rar

سيد الاستغفار

{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}

من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري

#3

ممكن تشرح لي من اين أتت هذه المسميات

txtc txtc3 txtc2

تحياتي لك

#4

هل شرح الكود صعب الى هذا الحد

#5
bumb كتب:

ممكن تشرح لي من اين أتت هذه المسميات

txtc txtc3 txtc2

اعتقد بانها متغيرات بدون تعريف

لاحظ وجودها في الكود = الحقول التي تريد اظهارها في الرسالة .

سيد الاستغفار

{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}

من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري

#6

بالفعل هى متغيرات و لكن لم يتم تعريفها

لو كنت تريد عرض الاسم المكرر فكل ما تحتاجه الى هذا التعديل 

Private Sub txtBawahNum_BeforeUpdate(Cancel As Integer)
Dim aa As String
On Error Resume Next
DoCmd.SetWarnings False
aa = DLookup("BawahNum", "Details", "BawahNum = txtBawahNum ")
If aa & "" <> "" Then
MsgBox aa & " موجود مسبقاً", vbInformation
Cancel = -1
End If
End Sub

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

مواضيع مشابهة