فيديو كيفية البحث عن السجلات و الانتقال إليها

[عبد الفتاح كيرة]

السلام عليكم و رحمة الله ()
نتابع معكم الفيديوهات الاحترافية
التى تسهل العمل على برنامج أكسيس
من خلال الاستعانة بأكواد
vba

درس اليوم سهل جدا و بسيط جدا
و هو عن كيفية البحث عن السجلات و الانتقال إليها
لكن هذه المرة باستخدام طريقة البحث
searchforrecord

أرجو لكم النفع و الفائدة

الفيديو بتاريخ اليوم
أرجو دعم القناة بالاشتراك
https://www.youtube.com/watch?v=Xqw4...ature=youtu.be

[zoed2]

كل التوفيق والتجاح شكرا على الشرح

[عبد الفتاح كيرة]

شكرا لك أخى الفاضل 

ربنا يبارك فيك

[صالح حمادي]

ما شاء الله أخي عبد الفتاح أنت دائما في الموعد أعانك الله

[عبد الفتاح كيرة]

دائما أسعد بتشجيعكم أستاذ صالح

جزاك الله خيرا 

[صالح حمادي]

أنت أكبر من أن تحتاج إلى تشجيع أستاذنا الكريم فأعمالك تتكلم عليك

[عبد الفتاح كيرة]

أستغفر الله

ما زلت أتعلم

بارك الله فيك 

[abdul_algalal]

السلام عليكم

استاذ عبدالفتاح لقد استفدنا من شروحاتك الكثير . الله يجعلها في ميزان حسناتك (آمين يارب)

لدي سؤال اذا تكرمت هو كيف اقارن بين عمودين في استعلام اكسس          مثل هذه الداله في الاكسيل اريدها في الاستعلام  =IF(ISNUMBER(MATCH(B1;A1;0));"موجود";"غير موجود") 

(المطلوب الكود الذي اكتبه في العمود الجديد"المقارنه")                                   

المثال

        عمود1          عمود2           المقارنه            

        9999            9999               موجود

        9998            9999            غيرموجود

                                                                                            ولك جزيل الشكر والتقدير. ؛؛؛؛؛؛؛؛؛؛؛؛

[عبد الفتاح كيرة]

أنشئ استعلامات

أدرج العمودي المطلوب مقارنتها

فى خانة فارغة من الاستعلام مكان اسم الحقل اكتب

Newfield 

:

 

iif

)

F1=f2

;

"Yes"

;

"No"

(

معناه

لو الحقل الأول يساوى الثانى اطبع 

Yes

و إلا

اطبع

No

شغل الاستعلام

معذرة للكتابة رآسيا 

لأنى اكتب من الموبايل

وفقك الله

تم تعديل أغسطس 30, 2016 بواسطه عبد الفتاح كيرة

[أبورحيل]

بارك الله فيك يا أستاذ زدنا من علمك زادك الله من علمه 

تم تعديل أغسطس 30, 2016 بواسطه أبورحيل

[عبد الفتاح كيرة]

شكراً لك على هذا الكلام الطيب 

وفقكم الله

[abdul_algalal]

الله يعطيك العافيه تمت الطريقه بنجاح  الف الف شـــكــــر لاستاذنا القدير عبدالفتاح

[abdul_algalal]

استاذ عبدالفتاح ارجو منك الافاده اريد جمع الحقل الذي يحتوي على لون النص اسود في التقرير (اكسس)

 

هذا الكود تم استخراج النص باللون الاسود باقي اريد جمع النص باللون الاسود فقط    ( في تفاصيل التقرير)

Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer)
Dim RetColor As Long
 
 If [mm] = "abdul" Or [mm] = "algalal" Then
 
        [w].ForeColor = vbBlack
 Else
        [w].ForeColor = vbWhite
 End If
End Sub

                                                                                                    ,,,,,,,,,,,,,,,,ولك جزيل الشكر والتقدير,,,,,,,,,,,,,,,,,,

[abdul_algalal]

المعذره المقصود لون النص يعني لون الرقم     1+1=2

[عبد الفتاح كيرة]

أخى  

abdul_algalal

 

أظن هذا مخالفا لقوانين المنتديات

المشاركة مخصصة لموضوع واحد

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

و نقوم جميعا إن شاء الله بالرد عليك حسب الإمكان

شكرا لك

و مؤقتا جرب الآتى

sum(if   me.[w].ForeColor = vbBlack,1,0)

الان, عبد الفتاح كيرة said:

أخى  

abdul_algalal

 

أظن هذا مخالفا لقوانين المنتديات

المشاركة مخصصة لموضوع واحد

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

و نقوم جميعا إن شاء الله بالرد عليك حسب الإمكان

شكرا لك

و مؤقتا جرب الآتى

sum(if( me.[w].ForeColor = vbBlack,1,0)

 

[abdul_algalal]

شكراً الف شكر على الافاده

 

واقدم اعتذاري على المخالفه لكوني لا ادري

[عبد الفتاح كيرة]

لا عليك أخى

قلت لك ذلك

قبل أن يقوله لك المشرفون

كل عام أنت بخير

[محمد ايمن]

جزاك الله كل خير

[عبد الفتاح كيرة]

شكرا أخى أيمن

[BFS]

الاخوة الافاضل السلام عليكم ورحمة الله وبركاته

اطلب من حضرات الاخوة الذين لهم درايه ومعرفة بقاعدة الاكسس ان يساعدونى فى تعديل الملف المرفق

علما بان جميع الملاحظات المطلوبة التى نرغب عملها فى الملف ساتجدوها اثناء فتح الملف اتمنى منكم مساعدتى خاصة لاول مرة اشارك فى عذا الموقع الرائع واملى وطيد فى ذلك وشكرا.

بحث بالحرف الابجدى.rar