صالح حمادي

بصراحة أنا وضعتها من أجلك لكن عندما لم تعلق على الموضوع ظننت أن الفكرة لم تعجبك.

و عليكم السلام يا أستاذ عيدك مبارك و كل عام و أنت بألف خير الظاهر أن غيابك الطويل غيرك كثيرا و لم تعد جعفر الذي نعرفه من قبل تغيير للافضل طبعا لم تترك لنا مجال لمنافستك الآن هل ذهت لميكروسفت و أخذت دروس خصوصية أم ماذا ؟ ماذا يتوجب علينا للحاف بك !!!!! لقد سبقتنا بـ 10 سنوات ضوئية كاملة.🚀

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

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

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

و هل أستطيع نقل التركيز لمربع نص او مربع تحرير وسرد

أنا استخدم هذا الرقم و هو بيشتغل معي صح لكن اسم المديرية لا يظهر و كأن المربع فارغ مع العلم أنني عندما أدخل كلمة المرور و اسم المستخدم يفتح الموقع.

رقم المديرية هو 39031

هل قرأت آخر تعليق لي تفضل هذه هي الصفحة: جعفر.rar

لقد استخدمت هذا الكود و نجح معي و الحمد لله Me.WebBrowser4.Document.Forms(0).iap.Value = "524131" لكن الخيار لا يظهر في مربع التحرير و السرد

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

هل تضع كود في حدث عند التمرير

السلام عليكم أخي استخدم هذا الكود: DoCmd.OutputTo acOutputReport, name report, acFormatPDF, , True, , , acExportQualityPrint و يمكنك الإستعانة بهذا الرابط شريط طباعة في الأكسس:

الحمد لله. ربي يوفقك شكرا صديقي Shivan Rekany

لم تخبرني هل هذا هو المطلوب أم لا ؟

السلام عليكم Dim rst As DAO.Recordset Dim rst As DAO.Recordset Dim ddate As Date Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!Atarih < ddate Then MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra Else ddate = rst!Atarih End If rst.MoveNext Next i غير مكان السطر: rst.MoveNext اجعلها تحت End If

نعم. احذف هذه العبارة من الكود: Exit Sub

السلام عليكم استخدم الدالة DateDiff و قد شرحتها هنا جيدا مع المثال:

السلام عليكم استخدم هذا الكود في حدث عند الفتح: MsgBox Me.Name

السلام عليكم استعمل هذا الكود: Dim rst As DAO.Recordset Dim ddate As Date Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!Atarih < ddate Then MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra Exit Sub Else ddate = rst!Atarih rst.MoveNext End If Next i فحص تسلسل التاريح.rar

السلام عليكم من المعلوم أن أداة التصفح تستخدم متصفح internet explorer و إذا كان هذا المتصفح غير محدث معك فلا تظهر النتائج جيدة. لذلك: يجب عليك تحديث نسخة internet explorer إلى الإصدار 10 أو 11.

أنت لم تضع أي مرفق

العنوان يعطي شيء... و المضمون يعطي شيئا آخر... و هذا مخالف لقوانين المنتدى أخي الكريم يجب عليك إختيار عنوان مناسب للمضمون

أعد ربط قاعدة بيانات الأمامية بالقاعدة الخلفية و تأكد من صحة اسم الجدول في الخلفية

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