صالح حمادي

السلام عليكم أضف مرفق للتعديل عليه

السلام عليكم اتبع الخطوات الموجودة بالصور: الكتابة رأسي من أعلى لأسفل.mdb

نعم لقد طلبه مني أحد الإخوة من قبل و وعدته بأن أنجز ذلك، بعد أنتهي من أعمالي التي تمنعني من الدخول كثيرا للمنتدى. نعم يمكن ذلك لاحظ هذا المرفق في في قائمة ملف لا يوجد وميض و بقية القوائم يوجد وميض أدخل على الأكواد البرمجية و ستعرف السر في ذلك مثال.rar

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

و عليكم السلام يا أستاذ عيدك مبارك و كل عام و أنت بألف خير الظاهر أن غيابك الطويل غيرك كثيرا و لم تعد جعفر الذي نعرفه من قبل تغيير للافضل طبعا لم تترك لنا مجال لمنافستك الآن هل ذهت لميكروسفت و أخذت دروس خصوصية أم ماذا ؟ ماذا يتوجب علينا للحاف بك !!!!! لقد سبقتنا بـ 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.

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