صالح حمادي

السلام عليكم و رحمة الله تعالى و بركاته لقد قمت بكتابة كود يقوم بإنشاء ملف أكسل جديد و آخر يقوم بإنشاء ملف وورد جديد و هذه هي الأكواد. كود إنشاء ملف أكسل: Dim xlApp1 As Object Dim xlWB1 As Object curPath = CurrentProject.Path & "\salah88.xlsx" Set xlApp1 = CreateObject("Excel.Application") xlApp1.Visible = False Set xlWB1 = xlApp1.Workbooks.Add xlWB1.SaveAs curPath xlApp1.Quit Set xlWB1 = Nothing Set xlApp1 = Nothing MsgBox "لقد تم إنشاء ملف أكسل بنجاح" كود إنشاء ملف وورد: Dim wdp As Word.Application Dim doc As Word.Document FilePath = CurrentProject.Path Set wdp = New Word.Application Set doc = wdp.Documents.Add wdp.Visible = True wdp.ActiveDocument.SaveAs FilePath & "\s1988.doc" ', wdFormatDocument wdp.Quit Set doc = Nothing Set wdp = Nothing MsgBox "لقد تم إنشاء ملف وورد بنجاح" السؤال: كيف يمكن إنشاء ملف أكسس جديد بنفس الطرق السابقة حاولت كثيرا و كل المحاولات باءت بالفشل. هناك طرق أخرى مثل نسخ ملف ثم حذف كائناته أو تصدير جدول أو نموذج ثم مسحه و ترك الملف فارغا. لكن أنا أريد معرفة طريقة الإنشاء بالطرق السابقة

السلام عليكم أخي إبراهيم حياك الله. أولا: لم أفهم ماذا تقصد بـــ(Nota , Notb,Notc,Notd,Note ) . المهم. سوف أعطيك طريقة تتبعها من أجل الوصول إلى الحل إن شاء الله السؤال الأول: 1- أضف حقل لجدول القاعات tblhall تكتب فيه رقم المدرسة للطلاب الموجودين داخل هذه القاعة مثلا (id_school). 2- عند إعطاء أمر التوزيع قبل وضع المعلم في القاعدة يختبر هل رقم المدرسة متساوي في حقل SID لجدول المعلم و حقل المدرسة في جدول القاعات (id_school) . إذا كانا مختلفين يسجل المعلم و إذا كانا متساويين يغيره بعلم آخر. السؤال الثاني: عند إضافة معلم جديد لقاعة يختبر الكود هل المعلمين الموجودين في القاعة لنفس مدرسة المعلم الجديد أم لا إذا كان نعم يتخطى هذا المعلم و يبحث عن معلم آخر. و إذا كان لا يضع هذا المعلم في هذه القاعدة. (أنا الآن مشغول قليلا لا أستطيع التعديل على مرفقك عليك بالمحاولة لتطبيق هذا الأمر وحدك و عندما أنتهي من عملي سوف أنجز التعديل على مرفقك إن شاء الله).

تفضل جرب هذا الحل: Discount.rar

أخي كريمو الظاهر أنك قمت بإجراء بعض التعديلات الغير صحيحة على الشريط لقد قمت بتصحيح الأخطاء حسب طريقتك المستعملة و هو بعمل بشكل جيد الآن Discount.rar

معذرة فكثرة الأشغال و الإرتباطات تجعلني أتأخر في الرد في بعض الأحيان نعم أخي صالح أحسنت هذه هي الطريقة. و هذا هو الكود بأسماء مربعات النص لديك: Me.Requery DoCmd.OpenReport "استعلام", acViewPreview Me.نوع_الماده = "" Me.سعر_المفرد = "" Me.الكميه = "" Me.S = "" Me.F = "" Me.اسم_الناقل = "" Me.اسم_الزبون = "" Me.Requery نموذج قائمة بيع.rar

تفضل غير هذا السطر: curPath = "e:\salah88.xls" بهذين السطر: DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") curPath = DTPath & "\salah- " & Format(Date, "mm-dd-yyyy") & ".xls"

أهلين و مرحبتين أي كنت يا رجل لك من وحشة كبيرة منذ مدة لم نشترك في موضوع واحد. أعرف أنك لا تدخل على موضوع إلا و حللت بارك الله لك و في علمك إن شاء الله - لقد استعملت طريقة مغايرة قليلا لإنتظار تحميل الصفحة و ذلك بإستخدام حلقات التكرار. حلك هو الأفضل و الأسرع و الأنجع و لكني سوف أرفقه للفائدة. Sub Timeout(seconds As Double) Start_Time = 0 Do DoEvents Loop Until (Timer - Start_Time) >= seconds End Sub Private Sub أمر86_Click() On Error Resume Next Dim j As Integer, i As Integer vitesse_progress = 1 DoCmd.GoToRecord , , acFirst For j = 1 To DCount("*", "AppFiller2") Me.WebBrowser4.Navigate Me.الموقع For rep = 1 To 1000 * vitesse_progress Timeout 1 Me.rr = rep Next rep For i = 1 To 100 'Me.k = i If Me.WebBrowser4.Document.all.Item(i).innerText Like "*" & Me.t & "*" Then MsgBox "لقد تم العثور على الكلمة المطلوبة داخل هذه الصفحة" Exit Sub End If Next i DoCmd.GoToRecord , , acNext Next j MsgBox "لم يتم العثور على كلمة البحث" End Sub أضفت رابط صفحة غوغل في السجل الأول و صفحة فايسبوك في السجل السادس اكتب كلمة "فيسبوك" و اضغط على زر بحث نلاحظ أنه لا يتوقف إلا في الصفحة رقم 6 اللهم أشفه و أشفي جميع مرض المسلمين. اللهم أجعل إبنه رمهان بارا به يا رب العالمين WebAppFiller (1) (1).rar

سوف أحاول

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

هل نجح معك الأمر

في الزر الذي يقوم بعرض التقرير تضع كود فتح التقرير ثم تكتب me.t="" ثم مربص النص الثاني و الثالث و هكذا

أنتظري حتى تظهر صفحة الويب ثم إضغطي على زر بحث

كنت أضفت الرد هنا منذ يومين لكن الظاهر أنه لم يصل بسبب ضعف النت تستطيع استعمال نفس الطريقة السابقة إضافة جدول به ثلاثة حقول (اسم الحقل . اسمه بالعربية . الجدول) و تستعمل الفلترة من أجل ظهور حقول الجدول المختار فقط. تفضل طلبك هنا و المسار موجود بالعبارة أدناه تستطيع تغييرها كما تشاء curPath = "e:\salah88.xls" كما لا تنسوا الضغط على زر الإعجاب للإجابات الصحيحة final.rar

السلام عليكم إطلع على هذه المشاركة بها الحل إن شاء الله

يمكنك استعمال هذه الطريقة: me.T="" وهكذا لجميع مربعات النموذج بعد إضافة كود الطباعة

السلام عليكم في حدث مفتاح للاسفل للنموذج ضع هذا الكود: If KeyCode = vbKeyF6 Then DoCmd.OpenForm "نموذج6" End If كما يجب أن تغير خاصية مفتاح المعاينة إلى نعم في خصائص هذا النموذج

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

السلام عليكم سؤال1 : هل الكلمات المراد البحث عنها تكون في عنوان الصفحة المسجل داخل الجدول (في هذه الحالة الأمر بسيط) أم البحث سوف يكون في داخل الصفحة ذاتها (هذا الأمر صعب لكن سوف نحاول ما بوسعنا) سؤال2 : هل هذه روابط صفحات أنترنت مباشرة أو صفحات محفوظة في جهاز الكمبيوتر

اطلع على موضوع استاذنا جعفر فيه من الخير و البركة الكثير و الكثير. و سوف تجد به ظالتك بإذن الله و إذا عند استفسار سوف نساعدك

أتمنى أن تضيف بعضا من التوضيح : 1- موقع أي دولة و ما هو رابط الموقع إذا لم يكن هناك أي حرج 2- من أي ملف تريد نقل النتيجة أكسل أكسس...

السلام عليكم حسب ما فهمت أنك تريد تصفح جميع المواقع بالضغط مرة واحدة على الزر: تفضل إليك هذا التعديل: WebAppFiller (1) (1).rar

نعم تستطيع و يا ريت ترفق مثال لتعديل عليه

تفضل استعمل هذا الكود في حدث عند الضغط لزر تحديد جميع الحقول: Dim i As Integer If Me.تدقيق34 = True Then For i = 0 To Box.ListCount - 1 Box.Selected(i) = True Next i Else For i = 0 To Box.ListCount - 1 Box.Selected(i) = False Next i End If

نسيت أمر هذا السؤال ليس عليك تغيير اسم الجدول ليظهر أمام المستخدم بالعربية. إطلع على المرفق و وافني بالنتيجة الآن zeyad.rar

تفضل في حدث قبل التحديث لمربع رقم الأستاذ أضف هذا الكود: Dim Msg, Style, Title, Response Title = "تغيير السجلات" Msg = "سينتج عن هذا التعديل تغيير في السجلات الفرعية" & vbCrLf & vbCrLf & _ "هل أنت متأكد من التعديل على السجلات الفرعية؟ " Style = vbYesNo + vbDefaultButton2 Response = MsgBox(Msg, Style, Title) If Response = vbNo Then Undo End If و في حدث بعد التحديث ضع هذا الأمر: Me.Refresh Database11.rar