نجوم المشاركات

تتضمن هذه المقاله ارتباطات الي المقالات التي توفر تفاصيل حول الدالات الشائعه المستخدمه في التعبيرات في المايكروسوفت أكسس اتمنى تستفيدون من هذه الرابطة مع التوفيق للجميع رابطة عربي https://support.office.com/ar-sa/article/الدالات-مرتبة-حسب-الفئة-b8b136c3-2716-4d39-94a2-658ce330ed83 رابطة انجليزي https://support.office.com/en-us/article/Access-Functions-by-category-b8b136c3-2716-4d39-94a2-658ce330ed83

جدول أكسس به 6236 آية قرآنية بالتشكيل لمصممي برامج القرآن الكريم لا تتعجب من اسم الجدول واسم الاستعلام فكلاهما نفس الاسم وهو اسم غير موجود هههههههه على العموم هذه خدعة لكن الكود الغريب هو كود الاستعلام : SELECT * FROM ‍‌; فعلا الكمبيوتر آلة غبية جدا ههههههه quran.rar

Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus) استدعاء المنطقة واللغةوالوقت والتاريخ والحاسبة.rar

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

دوختنا شوية شقلبة يسيطة في سطرين الاضافة لتصبح Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else DoCmd.GoToRecord , , acNewRec taxt_now = 2 'End If End Sub انشاء الله تنحل وتحياتي

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

انظر الملف المرفق . يوجد جدولين كلاهما بنفس الاسم تماما وهو الرقم:(5) تماثل تام في التسمية ، لا مسافات ولا فراغات وبرغم ذلك متواجدين متجاورين كجداول مستقلة tbls.rar

السلام عليكم هناك العديد جدا من الطرق .. اليك =VLOOKUP(C5,IF(المصروف!$F$5:$F$10=الموقف!D5,المصروف!$E$5:$G$10,""),3,FALSE) و =INDEX(المصروف!$E$5:$G$10,MATCH(1,(المصروف!$E$5:$E$10=الموقف!C5)*(المصروف!$F$5:$F$10=الموقف!D5),0),3) و =VLOOKUP(C5&D5,IF({1,0},المصروف!$E$5:$E$10&المصروف!$F$5:$F$10,المصروف!$G$5:$G$10),2,0) معادلات صفيف بعد كتابتها يتم الضغط على CTRL + SHIFT + ENTER معادلة على اساس شرطين الرقم والتاريخ.rar

استدراك علما انه يتوفر الواتساب على جهاز الكمبيوتر واستخدمه كثيرا شرط يكون جهاز الهاتف مفتوحا انظروا الصور

السلام عليكم وكما قال أخي شفان ، إذا كان الحقل مضمن ، فمعناه ان له قيمه تحدده من الجدول ، فاذهب الى إعدادات الحقل في الجدول وغير نوع الرقم من رقم كامل long integer الى Double جعفر

وعليكم السلام جرب هذا ، انت تقرر Round الى اي عدد بعد الفاصلة ، 2 او 3 مثلا ، وعدم وضعك لرقم معناه انك تقرب الرقم بدون كسور بعد الفاصلة: taxt_n1: Round([taxt_t1]/[d2]*[d1],3) taxt_n4: Round(1/[d2]*[d11],2) جعفر

تمام يا كبير ان شاء الله غدا اصمم لك مرفقا بالاكسس ولكن حان وقت النوم استودعكم الله

اسف جداا على التأخير فى الرد كنت مشغول ولم افتح الحاسب الا الان تمام التمام تم تحويل أعدادات الحقول الى مزدوج وتمت العملية بنجاح بارك الله فيكم وشكرا لك استاذ جعفر واستاذ شيفان

السلام عليكم ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية Unicode بعد) والكود فيه الكود الاسرع (الذي في الاعلى) ، وكود التجارب في الاسفل: Private Sub cmd_WhatsApp_Click() Dim cmmd As String Dim cmmd1 As String Dim cmmd2 As String Dim cmmd3 As String Dim cmmd4 As String Dim cmmd5 As String Dim cmmd6 As String Dim cmmd7 As String 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'Send a message from MS Access through WhatsApp cmmd1 = App_Location & " shell input keyevent 82" & "; sleep 1; " cmmd2 = "am force-stop com.whatsapp" & "; sleep 1; " cmmd3 = "am start -n com.whatsapp/.Main" & "; sleep 1; " cmmd4 = "input text " & Me.To & "; sleep 1; " cmmd5 = "input tap 400 700" & "; sleep 2; " cmmd = cmmd1 & cmmd2 & cmmd3 & cmmd4 & cmmd5 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) Exit Sub 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & Me.To & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) End Sub جعفر Send_WhatsApp_messages.mdb.zip

جرب الفكرة دي من نموذج البيانات الشخيصية تنقل بين الموظفين وعندما تصل للموظف (انهاء + مؤمن أو دخول) ستظهر صورة تظهر وتختفي 11116_Backup.rar

دوما اخي على الرحب والسعة ما رأيك احيلك على المستودع تنتقي منه ما تشاء

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

نعم هو المطلوب اسأل الله أن يحقق لك كل مطلوب وفوق المطلوب وجميع من في هذا المنتدى المميز

اتفضل اليك كود قبل تحديث مثلا عندك مربع نصي باسم تيكست 0 Private Sub Text0_BeforeUpdate(Cancel As Integer) If Left(Me.Text0, 1) <> 9 Then Me.Undo MsgBox "يجب ان تبدأ من رقم 9" End If End Sub

لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 1. يجب اتباع هذه الخطوات لجعل الهاتف يتفاهم مع الكمبيوتر ، الى الصورة التي قلت تحتها: "الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج" ، 2. انزل المرفق من الرابط ، 3. في النموذج frm_Names ، اضف زر للواتس اب ، وضع الكود (الكود المرفق ، ليس الذي في الرابط) على حدث النقر وفي الكود ، بدل: "اسم او رقم الشخص" ، او اسم المجموعة ، يجب ان تكتب معلمة حقيقية ، لأن البرنامج سيعمل بحث لها ، Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "اسم او رقم الشخص" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" Call ShellWait(cmmd, vbNormal) المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه وارجو منه يعطينا النتيجة حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات جعفر

استاذنا / محمد عصام بهذا تكون فعلا فهمت قصدي ممكن بس غدا ان شاء الله سوف اوضح وارسل لك كل شئ انا محتاجه انا اليوم فرحتي كبيرة فعلا ومش عايز اضيع منها شئ حياك الله غدا بالصحة والعافية ان شاء الله

ياســـــــــــــــــــــــــــــــــــــــــــــــــــــلام عليك الله يفتــــــــــــــــــــــــــــــــــــــــــح عليك اكرمك الله وزادك من العلم اخي الفاضل / ابا جــــــــــــــــــــــــــــودي (محمد عصام ) الشــــــــــــــــــــــــــكر موصول لاخي العزيز / محمد ايمن لا انسي تعبه معي اخيرا هذا هو المطلوب الله يرحمك والديك في الدنيا والآخرة شوف بقي استاذ / محمد عصام المرفق الاول Archive v10.ra يعمل 100% اما الثاني يسحب صورة واحدة فقط طب لماذا افتح كل هذه المجلدات حتي اجد العشر صور هل يمكن جعله مجلد واحد بداخله مجلدات باسماء الرقم الصادر يعني هل يمكن تقليل عدد فتح المجلدات اخر شئ استاذنا : هو أن انا لا احتاج في نموذج الصادر كل هذه الاشياء انا اريد فقط رقم الصادر وزر سحب الاسكنر اريد ان احذف الاستعلامات والجداول والوحدات النمطية التي لا احتاج اليها فكيف ذلك عموما جزاك الله خيرا وبارك الله فيك

جزاك الله خيراً اخي الكريم على هذا الدعاء الطيب وجزالك الله بمثله ان شاء الله الحمد لله ان تم المطلوب .. الحمد لله الذي بنعمته تتم الصالحات

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

تسلم استاذي الغالي هو دا المطلوب الله ينور عليك ويجعله في ميزان حسناتك وزادك الله علما

السلام عليكم - جاري العمل على المعادلة VLOOKUP(C5,IF(المصروف!$F$5:$F$10=الموقف!D5,المصروف!$E$5:$G$10,""),3,FALSE) النتائج ممتازة جزيت خيرا

File > Options > Trust Center > Trust Center Settings > Privacy Options > Remove personal information from file properties on save > OK.

بارك الله لك أستاذ خالد أنتم أروع

شاكر جدا لحضرتك

استأذن من السيد @co2002co اولا في النموذج بها كومبوبوكس وليس ليست بوكس للعلم اتفضل بطريقة هذه الاستعلام .. استعلام التوحيد SELECT T1.حقل1 FROM T1 GROUP BY T1.حقل1 ORDER BY T1.حقل1 union SELECT T2.حقل1 FROM T2; واليك ملفك بعد تعديل ListBox.rar

في المثال المرفق اخي الكريم تحتوي ListBox على الاسماء من الجدول T1 اي احمد محمد علي المطلوب اخي الكريم ان تحتوي الاداء على الاسماء من الجدولين T1 , T2 اي احمد محمد علي فتحي سالم خالد كل الشكر والتقدير ListBox.rar

عليكم السلام اتفضل اخي الكريم docmd.runcommand accmdprint

::: تفضلي تم التعديل على البرنامج وحسب الطلب ... بالتوفيق Referral_UP.rar

طيب جرب هذه الطريقة: DoCmd.OpenReport "Rreceipt", acViewPreview, ,stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo وعليكم السلام اخي بدر نعم نعرف هذه الطريقة ، ولكن التقرير بطيء ، لذلك فنحن نحاول فتح التقرير مرة واحدة ، والطباعة عدة مرات جعفر

ربما يفيدك هذا التعديل في التنسيق والمعادلة تاريخ اخلاء2.rar

السلام عليكم جزاك الله خيرا استاذنا القدير محمد صالح اخي الكريم ارفع الملفات دائما علي المنتدي وليس روابط خارجيه.. فلم استطع تحميله تقبلوا مروري وتحياتي

اخي الكريم على الرغم من ان هناك امور غير واضحه .. مثل لو عددهم 29 لا يتم الترحيل .. وايضاً انت بتجيب رقم الصف الفارغ بشيت الكشف بدءاً من B35 صعوداً لاعلى وبذلك تجاهلت باقي الصفوف التى هي اسفل منها .. ومع ذلك اليك الطريقة وعليك التعديل بما يناسبك فيما يتعلق بالجزئيتين السابقتين استدعاء بيانا_2.rar ( تم الغاء دمج الخلايا B3:B5 لانه من شأنه ان يفسد عمل الكود .. يمكنك ان تدمج B3:B4 ولكن ضع اى قيمه في B5 ولو بشكل مخفي بحيث تكون القيمة بلون ارضيه الخلية ) تقبل خالص تحياتى

يلزمك هذه المعادلة =SUMPRODUCT(INDIRECT("'"&A6&"'!$C$6:$C$12"),--(INDIRECT("'"&A6&"'!$b$6:$b$12")="ذكر"))

مجرد خطأ فى المسميات بين Reqid و Request ID واتفضل قاعدتك بعد التعديل referral.rar

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

استأذن من استاذنا @jjafferr هل تريد ان يظهر هكذا بدون ازالة لاي اوت اتفضل اليك هذا الحل وبعد عمل هذا خلي يكون مؤشر الماوس بيكون على Page Footer حتى يكون يغير شكل المؤشر الى سهمين للاعلى ولاسفل واسحبه الى اعلى لكي لا يكون هناك فراغ اليك قاعدة بياناتك بعد تعديل تقبل تحياتي New Microsoft Access Database.rar

السلام عليكم ورحمة الله تعاىل وبركاته اخى الحبيب جزاكم الله خيرا على هذه الهدية القيمة وشكر الله تعالى لكم واحسن اليكم وزادكم علما اسأل الله أن يمن علي ولدكم بالشفاء العاجل وأن يجمع لكم وله بين الأجر والعافية ... اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه أسأل الله العظيم بأسمائه الحسنى و صفاته العلى أن يشفيه شفاء تاما لا يغادر سقما و أن يمتعه بقوته و سمعه و بصره ما أحياه . اسأل الله سبحانه أن يملأ قلبكم وقلبه رضى بالله و بقضائه و حكمه و أن يملأه اعتصاما به و توكلا عليه و إيمانا و تسليما و يقينا. و أذكركم الصبر فالجزع لا يغير من الأمر شيئا إلا أن يضر و لا ينفع. و الصبر خير في كل حال ، و أوصيكم بالرقية الشرعية و كثرة الذكر ، وتحيّنوا لدعائكم الثلث الآخر من الليل و ساعة الجمعة الأخيرة و أوقات الإجابة و كذا الصدقة المتواصلة قلت أو كثرت

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

نعود لأخونا ابراهيم، وكما قلنا بأن أخونا ابراهيم أراد أن يجمع الملفات في شيت واحد طالما أن المندوبين لديهم نفس النموذج. ولعمل هذه التجميعة فلا بد أن نتبع إحدى الطريقتين: إما أن يتم استدعاء جميع الملفات النصية من المجلد إلى الإكسيل بشكل مباشر. أو أن يتم تجميع الملفات النصية إلى ملف نصي جديد ، ومن ثم يتم الإستدعاء من الملف النصي الجديد إلى الإكسيل بشكل مباشر. اعتمدت أنا على الطريقة الثانية كالتالي: ابراهيم2.rar لا تنسى نقل الملف إلى مكانه الصحيح حيث يوجد المجلد info لو لاحظت أننا لم نغير في الكود سوى هذا السطر Shell Environ$("COMSPEC") & " /c Copy" & ThisWorkbook.Path & "\info\*.txt" & ThisWorkbook.Path & "\info\CombinedFile.txt " والذي يعني لأن يجمع الملفات النصية داخل المجلد info إلى ملف نصي جديد اسمه combinedfile تأكد من الملف النصي الجديد داخل المجلد تابعــــــــــــــــــــــــونا

وحتى لا نشتت الموضوع اسمحولي بأن أدرجها في موضوع جديد، لأن شرحها يحتاج على الأقل إلى أربعة أمثلة لاستيعابها. تابعونا في هذا الرابط

ولهذا السبب جعلنا نفكر بالتعامل مع ملفات النصوص text files.. سنعرف ذلك عندما سنشرح طريقة عمل الكود.. تابعنا

من خلال متابعة الموضوع توصلت إلى أنه يمكن عمل استدعاء لأكثر من 20 مندوب والطريقة : أن نجعل ملفات التكس لكل مندوب مرقمة بأرقام تسلسلية بدلا من ahmad.txt or ali.txt ستكون الملفات هكذا 1.txt و 2.txt و 3.txt وهكذا إلى آخر عدد من المندوبين ثم من ملف ابراهيم استطيع عمل حلقة تكرارية تبدا من 1 إلى آخر ملف ويتم بضغطة واحدة إحضار جميع الملفات هذه هي الفكرة

تفضلوا ملف أخونا ابراهيم مع المندوبين الثلاثة، حاولو تنقلوا الملفات في المكان الذي فيه مجلد info (وليس داخله) والذي سبق أن تم تنزيله من قبل ، ومن ثم جربوا فتح ملفات المندوبين وأخيراً ملف أخونا ابراهيم وقومو باستدعاء الملفات الثلاثة إليه. وتقبلوا تحياتي. allfiles.rar

1-كود المعاينة ممتاز 2-مرفق ملف المستخدم هو wzالباسورد هو 214 يوجد داخل الملف كود لااخفاء واضهار الاشرطة اريد كود اخر عند اخفاء الاشرطة يظهر لي شريط الحالة فقط وباقي الازرار توضح نفسها ويوجد مثال حي للطلبات علي الالة الحاسبة مثال.rar