السلام عليكم ورحمه الله وبركاته
أحتاج إلى كود فيجوال بيزك للوصول الى حقل في أخر سجل في جدول ومقارنته بمربع نص في نموذج ....هل هذا ممكن ..!؟
علماً بأني أستخدم أكسس 2007
الكود الذي أستخدمه بهذا الشكل
If [TYPE] = [cartona]![type] And [type no] = [cartona]![ type no] Then
RES = MsgBox("حسناً لقد تم إضافة الصنف بالفعل...!", vbOKOnly, "Ok!!That's Not good!!!!")
Else
..
..
...
End Ifهل بالأمكان جعل الشرط يتحقق من أخر سجل في الجدول cartona ....!
وشكراً مسبقاً
تم تعديل هذه المشاركة بواسطة عيسى الشريف في 7 يناير 2012 في 15:31
فهل من المعقول وضع الكود بهذه الطريقة
If [TYPE] = Max([cartona]![type]) And [type no] =Max([cartona]![ type no]) Then
RES = MsgBox("حسناً لقد تم إضافة الصنف بالفعل...!", vbOKOnly, "Ok!!That's Not good!!!!")
Else
..
..
...
End Ifأعتقد لا ...!!!
صحيح
الكود بالأعلى يتحقق من أول سجل ....!!!!
فهل هذا طبيعي...!!؟
ما أحتاجه هو التحقق من أخر سجل تم إضافته للجدول .
يرجى من الأخوة الخبراء الرد .... وشكراً
اخي الفاضل
استبدل MAX بـ LAST
If [TYPE] = Last([cartona]![type]) And [type no] =Last([cartona]![ type no]) Then
RES = MsgBox("حسناً لقد تم إضافة الصنف بالفعل...!", vbOKOnly, "Ok!!That's Not good!!!!")
Else
..
..
...
End Ifبالتوفيق
zahrah كتب:اخي الفاضل
استبدل MAX بـ LAST
If [TYPE] = Last([cartona]![type]) And [type no] =Last([cartona]![ type no]) Then RES = MsgBox("حسناً لقد تم إضافة الصنف بالفعل...!", vbOKOnly, "Ok!!That's Not good!!!!") Else .. .. ... End Ifبالتوفيق
الأخت الفاضلة زهرة , شرف لي بأن تردي على طلبي ..
بارك الله فيك , جربت Last كما أقترحتي ,و لكن عند الضغط على زر الحدث يعطيني رسالة بأن الدالة غير معرفة ويتم تحديد كلمة لاست (وكذا ماكس وفي حالة ماكس) بالدالة الغير المعرفة ...!!!
فما رأيك أختي الفاضلة..
عيسى الشريف كتب:الكود بالأعلى يتحقق من أول سجل ....!!!!
فهل هذا طبيعي...!!؟
ما أحتاجه هو التحقق من أخر سجل تم إضافته للجدول .
يرجى من الأخوة الخبراء الرد .... وشكراً
اخي الفاضل : عيسى
بناء على مشاركتك السابقة تقول ان الكود يتحقق من السجل الأول
ولهذا اعتقدت ان الكود يعمل بشكل طبيعي معك ولم تخبرنا ان الكود يظهر به خطأ ولهذا اقترحت عليك ان تستيدل MAX بـ LAST
ولكن بعد ان اتضحت الرؤيه فالكود من اساسه خاطىء فلا يمكن استخدام الدالة بهذه الطريقة سوى في الإستعلامات اما النماذج وتحت زر امر فإن الوضع مختلف
لذا ضع لي اسم الجدول الذي به الحقول
واسم الحقول التي في الجدول التي تريد ان يتم تطبيق عليها المعيار وانواع هذه الحقول هل هي نصيه او رقميه
واسم النموذج الذي به الحقول
حتى اقوم بعمل الدالة لك بطريقة صحيحه
بالتوفيق
zahrah كتب:اخي الفاضل : عيسى
بناء على مشاركتك السابقة تقول ان الكود يتحقق من السجل الأول
ولهذا اعتقدت ان الكود يعمل بشكل طبيعي معك ولم تخبرنا ان الكود يظهر به خطأ ولهذا اقترحت عليك ان تستيدل MAX بـ LAST
ولكن بعد ان اتضحت الرؤيه فالكود من اساسه خاطىء فلا يمكن استخدام الدالة بهذه الطريقة سوى في الإستعلامات اما النماذج وتحت زر امر فإن الوضع مختلف
لذا ضع لي اسم الجدول الذي به الحقول
واسم الحقول التي في الجدول التي تريد ان يتم تطبيق عليها المعيار وانواع هذه الحقول هل هي نصيه او رقميه
واسم النموذج الذي به الحقول
حتى اقوم بعمل الدالة لك بطريقة صحيحه
بالتوفيق
أنا متأسف جداً على الشرح السيء مني , فقد كنت أقصد الكود الأول الذي بالأعلى ....
If [TYPE] = [cartona]![الصنف] And [type no] = [cartona]![رقم الصنف] Then
أسم الجدول الذي به الحقول =cartona
أسماء الحقول التي يتم تطبيق المعاير عليها = الصنف و رقم الصنف (الحقول نصية ...لأحتوائها على نص ورقم )
أسم النموذج الذي به حقول المقارنة =sell حقول المعاير هي =type no ,type
تم تعديل هذه المشاركة بواسطة عيسى الشريف في 10 يناير 2012 في 12:54
استبدل الكود القديم بهذا الكود الجديد
If Me.TYPE = Dlast("[الصنف]","cartona","[رقم الصنف] =" & Me![type no] Thenzahrah كتب:استبدل الكود القديم بهذا الكود الجديد
If Me.TYPE = Dlast("[الصنف]","cartona","[رقم الصنف] =" & Me![type no] Then
ممتاز .....
أعجز عن شكرك أختي الفاضلة زهرة
بارك الله فيك وفي أهلك وفي علمك
وضعت الكود بهذا الشكل وكان ناجحاً 100%
If Me.[TYPE] = DLast("[الصنف]", "cartona", "[type]") And Me.[TYPE no] = DLast("[رقم الصنف]", "cartona", "[type no]") Then