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

تتضمن هذه المقاله ارتباطات الي المقالات التي توفر تفاصيل حول الدالات الشائعه المستخدمه في التعبيرات في المايكروسوفت أكسس اتمنى تستفيدون من هذه الرابطة مع التوفيق للجميع رابطة عربي 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) جعفر

على سبيل المثال فى الملف المرفق ينبغى أن يتم التوزيع طبقاً للشروط التالية 1. لا يدخل نفس الملاحظ نفس القاعة مرتين إلا بعد أن يكون قد دخل جميع القاعات 2. لا يجتمع ملاحظان سوياً مرتين فى أى قاعة من القاعات إلا عند الضرورة القصوى 3. يدخل القاعة ملاحظ من المجموعة الأولى (الصفراء)وملاحظ من المجموعة الثانية (الخضراء) 4. يجب ألا يزيد عدد المرات التى يكون فيها الملاحظ إحتياطياً ( ح ) عن غيره بأكثر من مرة واحدة يعنى يا إما يتساوى الجميع فى عدد مرات توزيعهم إحتياطياً وهذا قد يكون صعباً وفى هذه الحالة لا يجب أن يكون الفارق بين أكثر شخص واقل شخص فى التوزيع إحتياطياً أكثر من 1 5. عند التوزيع الصحيح وتغطية كل القاعات مفروض أن يعطى البرنامج إشارة توزيع صحيح تحت كل مجموعة ويعطى إشارة توزيع خاطئ فى حالة عدم تحقيق الشروط المذكورة ليتم تعديله يدوياً أو تركه كما هو إن كان الخطأ لا يسبب ضرر الملف مرفق وأرجو أن يدلى الخبراء بدلوهم فيه وتعاونوا على البر والتقوى بارك الله فيكم جميعاً ودمتم بود الساقية.rar

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

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

السلام عليكم ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية 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

تحية طيبة استاذ جعفر الكود يعمل مليون بالمية بعد تعديل السطرين التاليين السطر الاول من cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" الى cmmd = App_Location & " shell input text " & ChrW(34) & "I am testing'" & ChrW(34) & "; sleep 1" و السطر الثاني من cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" الى cmmd = App_Location & " shell input tap 60 640" & "; sleep 1"

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

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

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

لا أعتقد أنه يوجد كود يتحكم في هذا الأمر

طيب ايه رايك يا استاذ شفان لو هو محتاج بعد فترة يغير الرقم ؟ ممكن اضافة جدول خدمى ونعمل منه dlockup فى الكود والرسالة كده هيكون فى مرونه اكبــــر اول ما اروح البيت بس انا ممكن انفذ الفكرة بس لانى مش فى البيت ومش معايا اكسس دلوقتى

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

السلام عليكم ورحمة الله انسخ هذا الكود و الصقه فى موديول و خصص له زر كما يلى : من قائمة insert ---------- Devolper ثم اضغط على زر من القائمة المنسدلة ورابطه بالكود السابق كما ارجو ان تقوم بازالة التنسيق الشرطى كى ترى الدوائر Sub Circles() Dim ws As Worksheet Dim Arr() As Variant Dim LR As Long, R As Long, i As Long Dim Cel As Range Set ws = Sheets("شيت") If LR < 14 Then LR = 14 LR = ws.Range("C" & Rows.Count).End(xlUp).Row Arr = Array(10, 11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 37) For R = 14 To LR For i = LBound(Arr) To UBound(Arr) For Each Cel In ws.Cells(R, Arr(i)) If Cel.Value < ws.Cells(13, Cel.Column) Or Cel.Value = "غ" Then Set xx = ActiveSheet.Shapes.AddShape(msoShapeOval, Cel.Left, Cel.Top, Cel.Width, Cel.Height) xx.Fill.Visible = msoFalse xx.Line.ForeColor.SchemeColor = 10 xx.Line.Weight = 1.2 End If Next Next Next End Sub

استاذنا @ابوخليل @محمد ايمن @omarahmed1424 @abosherif1 @wael_rafat في هذا الرابط راح تجدون ما طلبتم الكود مع شرح بالفيديو https://whatsmate.github.io/2017-02-04-send-whatsapp-message-vba/ و استاذنا @Elsayed Bn Gemy انت مطلوب هنا للمشاركة في هذا الموضوع اذا عندك معلومة عنه

لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 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 ساعات جعفر

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

كيف مو مشكلة!! اذا استعملت: DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo او DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 PauseTime = 4 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo والاكسس اظهر لك التقرير ، معناته لازم نشوف لنا صرفة مع الاكسس ، ومو يشتغل على كيفه ، وإلا يعني هوش بلا راعي جعفر

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

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

السلام عليكم ورحمة الله تعالى وبركاته استكمالا لسلسلة الجواب بيبان من العنوان اقدم اليكم المرفق الاتى تدرج الوان على النموذج برمجيا تدرج الاوان بطريقة مذهلة ☺.rar

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

طيب رجاء تجربة المرفقين الاتيين المرفق الاول لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد عدد عشر صور بعدد العشر ورقات التى تم مسحهم ضوئيا Archive v10.rar المرفق الثانى لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد صورة واحده فقط بصيغة tif وعند فتحها تستطيع ان تستعرض فيها عدد العشر ورقات التى تم مسحهم ضوئيا مثل الـ pdf Archive-Scan multiple files v11.rar

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

اسم الجدول بالنقاط ..... quran 02.rar

الفكرة ان الجدول باسم مسافة ( ) ثم تم اخفاءه وهذا الملف بعد اظهار الجدول تحياتي quran.rar

السلام عليكم اردت المشاركة في هدا الموضوع واعتبره موضوع مهم بنسبة لصناعة البرامج الباركود هدا المثال من الاخت الكريمة (( زهرة )) فاحببت ان اشارك به لعله ينفع من يبحث عن الباركود وطريقة طباعة الملصقات بالطابعة العادية ورق A4 هدا نمودج لاختيار الاصناف المراد طباعتها وهدا تقرير جاهز لطباعة بالعدد المحدد للاصناف وهدا مثال للاخت زهرة zaBarCode_Items.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 ولو بشكل مخفي بحيث تكون القيمة بلون ارضيه الخلية ) تقبل خالص تحياتى

هلا والله أخوي وائل حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اذا اتفقنا ، شوف الحل التالي: مشكلتك في طريقة طباعتك للتقرير انك تجلب وتفرز وتصفي 34 الف سجل 3 مرات ، بينما الطريقة التالية تخليك تجلب وتفرز وتصفي 34 الف سجل مرة واحدة فقط ، ولكن تطبع التقرير 3 مرات: DoCmd.OpenReport "Rreceipt", acViewPreview, , , acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر

جزاك الله خير اخي @اباجودي واسال الله ان يكتب لك الاجر العظيم والعلم الوفير الحمدلله رضينا بقدر الله والصبر جميل شكر لك اخي تحياتي لك

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

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

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

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

السلام عليكم عفواً هذا هو الاصدار الذي حملته من الموقع ياشباب اي واحد من مصر بجرب البرنامج لو سمحتوا ويرد علينا اذا نجح ام لا تحياتي sms22.rar