اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

السلام عليكم

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

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

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

المثال

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

        9999            9999               موجود

        9998            9999            غيرموجود

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

Newfield 

:

 

iif

)

F1=f2

;

"Yes"

;

"No"

(

معناه

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

Yes

و إلا

اطبع

No

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

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

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

وفقك الله

تم تعديل بواسطه عبد الفتاح كيرة
رابط هذا التعليق
شارك

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

 

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

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

 

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

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

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

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

شكرا لك

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

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

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

أخى  

abdul_algalal

 

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

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

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

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

شكرا لك

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

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

 

رابط هذا التعليق
شارك

  • 2 months later...

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information