محمد احمد لطفى

تفضل فقط قم بتغيير , الى ; db1.mdb

تحديث هناك بعض الاخطاء فى النقل لا ينقل الحقل كاملا و تقريبا ينقل likea وليس likeb Replace&add.rar

محاولة تعمل فى اول الجملة فقط يرجى النظر الى الوحدة النمطية تم تغير الوحدة النمطية Replace&add.rar

لارسال ملف pdf اختيار نوع المرفق مستند و اختيار ملف pdf الذى سنرسله و الضغط على ارسال اما مفاتيح الارسال يجب معرفة كيف يعمل الواتس عندما يتحدث و نقوم بتجريب خطوة خطوة عن طريق sendkey ( زراير الكيبورد )

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

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

فى هذا النموذج ونقلا من أستاذى kanory فى موضوع سابق - البحث عن العبارة او العبارات في الجدول سواءا كانت تلك العبارة في بداية النص او وسطها او نهايتها ومقارنتها بالجدول الاخر لجلب المرادف لها . - حذف تلك العبارة من الجدول نهائيا ...... البرنامج يعمل و لكن هناك مشكلتين أولا مع زيادة عدد الانشطة أصبح بطىء فالمطلوب ايجاد حل لتسريعه ثانيا هناك مشكله تحدث مثلا فى جدول KindX هناك مثلا مقاولات و للمقاولات المطلوب اذا وجد مقاولات ينقل مقاولات و اذا وجد للمقاولات ينقل للمقاولات و لكنه اذا وجد للمقاولات ينقل مقاولات و يترك حرفين ال فى الجدول tabletx حقل namex التشغيل من خلال استعلام 1 اذا كان هناك شيىء غير مفهوم يرجى التوضيح . الموضوع السابق وجزاكم الله كل خير Replace&add.rar

تفضلى يعمل على option button Dim frm As Form Dim ctl As Control Dim optionName As String Dim i As Integer ' يمكنك استبدال "اسم_نموذج" بالاسم الفعلي لنموذجك Set frm = Forms("Nameformx") ' تحديد جميع أزرار الاختيار (Option Buttons) في النموذج بناءً على الأسماء المحددة For i = 0 To 14 optionName = "خيار" & i On Error Resume Next Set ctl = frm.Controls(optionName) On Error GoTo 0 If Not ctl Is Nothing Then If TypeOf ctl Is Access.OptionButton Then ctl.Value = True End If End If Next i

يجب وضع مثال للعمل عليه هذا DoCmd.RunSQL "UPDATE اسم_الاستعلام SET اسم_الحقل = True;" اذا كان اسم الاستعلام او الجدول مصدر النموذح و الحقل

تفضلى بالتوفيق DoCmd.RunSQL "UPDATE اسم_الاستعلام SET اسم_الحقل = True;"

جرب بالتوفيق =Nz(Sum([total]), 0) or =IIf([total]="#خطاء", 0, Sum([total]))

تفضلى بالتوفيق Private Sub Command0_Click() ' زر "Yes" - للطباعة Dim response As VbMsgBoxResult Dim patientName As String ' احصل على اسم المريض من النموذج patientName = Me![اسم_المريض] ' قم بعرض رسالة التأكيد مع اسم المريض response = MsgBox("هل تريد طباعة التقرير للمريض: " & patientName & "؟", vbYesNoCancel + vbQuestion, "تأكيد") Select Case response Case vbYes ' طباعة التقرير DoCmd.OpenReport "اسم_التقرير", acViewNormal Case vbNo ' معاينة التقرير DoCmd.OpenReport "اسم_التقرير", acViewPreview Case vbCancel ' إلغاء العملية MsgBox "تم إلغاء العملية.", vbInformation, "إلغاء" End Select End Sub

جزاك الله خيراً أستاذ @Moosak

جزاك الله خيراً أستاذ @Foksh

جزاك الله خيراً أستاذ @kkhalifa1960 قمت بتغيير y1 الى ()date لتتغير بطريقة الية

أستاذ @ناقل تمام بس يوم السبت بيعرض كل الاسبوع الى الى فات يعنى لو عملت تاريخ الكمبيوتر السبت 11 مثل الصورة

أستاذ @kkhalifa1960 المطلوب عرض أيام الاسبوع الحالى السبت 11 الاحد 12 الاثنين 13 الثلاثاء 14 الاربع 15 الخميس 16 الجمعه 17 و عندما يأتى يوم السبت القادم تتحدث الحقول بطريقة الية النموذج المرفق يعمل و لكن من الاثنين الى السبت و الاحد الاسبوع القادم ولا يتحدث تاريخ الايام الا يوم الاثنين القادم ( حاولت تغيير الطريقة فى النموذج المرفق و كان أمس يوم السبت 11 و هكذا باقى ايام الاسبوع ثم لاحظت اليوم أن تم تغيير يوم السبت الى 12 وباقى الايام زادت يوم كذلك ) وجزاك الله كل خير date12.mdb

أريد ضبط تاريخ أيام الاسبوع أولا يوم السبت و الاحد تاتى تاريخ الاسبوع القادم ثانيا الارقام التاريخ فى جميع الحقول لا تتغير الا يوم الاثنين مفترض ان تتغير يوم السبت وجزاكم الله كل خير date.mdb

دى محاولة قد تكون صحيحة و قد تكون خاطئة حسب فهمى للسؤال مع تغيير حقل age لنص و ليس رقمى age collect.rar

للتوضيح عند وقف On Error Resume Next يظهر خطأ عند حذف الملف Kill aFile الخطأ run time error 70 You tried to open a write-protected file for sequential Output or Append لقد حاولت فتح ملف محمي ضد الكتابة للإخراج المتسلسل أو الإلحاق بالتوفيق

تفضل كليك يمين

تفضل Vtext.zip

تفضلى بالتوفيق أو DoCmd.FindRecord Me![test_list].Column(1), , , , , acCurrent lab.rar

تمت التجربة و الملف يعمل يجب ان يكون بجوار البرنامج فولدر Myfiles وبداخله فولدر My pdf Bbb.rar