مفرج

أخي الكريم افضل طريقة إنك تربط الملف لانك ستحتاجه دائم بشكل آلي عملت لك الربط لكن يجب أن يكون الدليل الذي فيه البرنامج على C:/ Stock حتى يعمل الارتباط Stock.rar

السلام عليكم تم تعديل البرنامج Record_On_Date2.rar

أخي الكريم لا استطيع التعقيب يجب أن تعدل التاريخ في الجدول من date إلى datep ونوعه إلى نص بطول 5 حروف وفي خصائص الفورم ( عند الفتح اختر إجراء حدث ) وضغط على النقاط الثلاث المقابلة يظهر لك محرر الفجيول بيسك ويظهر لك Private Sub Form_Open(Cancel As Integer) End …

أخي الكريم ضع المعادلة =Mid([aa];[cc];2) بدل =Mid([aa];[cc];1) لانك تختار حرف واحد لو وضعت 2 يعني انك تختار حرفين الحرف + التشكيل اسف لا استطيع إضافة تعقيب في هذا المنتدى

بارك الله فيك ورحم والديك جهد تشكر عليه

أخي الكريم أرفقت لك البرنامج وتستطيع التعديل عليه ______________16.rar

أخي الكريم يمكن فتح القاعدة لكن المشكلة إن الشفت أو ال autoexec يعمل خروج الكود هو : Option Compare Database Dim appAccess As Access.Application Private Sub getb_Click() On Error GoTo Errorp Dim x As String x = "" & Chr(10) & Chr(13) & "$" & Chr(10) & Chr(13) …

طريقة ذكية أستخد الاسكي للانتر ثم $ ثم الاسكي للانتر مرة واحدة ثم % تفتح عن طريق الفيجيول بيسك و الكود هو x = ";PWD=" & Chr(10) & Chr(13) & "$" & Chr(10) & Chr(13) & "%" & "" Set db = OpenDatabase(Application.CodeProject.Path & "" & "\data.mdb", False, False, …

اخي الكريم اضغط على دي بج يكون خط على الخطأ لانك تضيف نص إلى رقم او ما اشبهه يفضل ارفاق قاعدة المعلومات والمطلوب وتجد الحل إن شاء الله تعالى Dim db As Database, rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tbl_tahlilwekly_merf") rst.MoveFirs…

يمكن إضافة أي عدد من السجلات بشرط أن لايزيد حجم القاعدة عن 2 قيقا إذا كنت تعمل على قواعد البيانات أما إذا كنت تعمل على مشاريع أكسس (يريط مع ماكروسفت اس إكيو إل ) فالعدد مفتوح

جزاك الله خيرا

ارفق القاعدة بارك الله فيك

جزاكي الله خيرا سأحول

الف مبروك وتستاهلين أكثر

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

أخي الكريم البرنامج شغال على اكسس 2003 ولا يوجد به مشكلة الا إذا كانت القاعدة DATA بكلمة سر إدخل على القاعدة MAIN ثم اضغط الزر تظهر لك اسماء المناطق اضع كلمة سر للقاعدة DATA ثم تظهر المشكلة اشكرك على التفاعل

اخي فتي الوادي جزاك عني خيرا لم استطيع اضافة موضوع جديد أو تعقيب وإنما رد سريع فقط والا استطيع إضافة مرفقات في الرد السريع لايوجد مرفقات اذا كانت القاعدة data بدون كلمة سر يقرؤها اما اذا أمنت بكلمة سر إعطاني رسالة الخطأ سوف أرسل القاعدة عبر بريدك الألي وانا اس…

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

أخي الكريم انا لان لايوجد عندي فيجيول بيسك يمكن وضعها على أكسس وابشر بسعدك

اشكركم علل التفاعل يمكن الإضافة على الدالة بعد تعديل التاريخ Flag = False If (Left(dt, 4) > 1300 And Left(dt, 4) < 1500) Or (Left(dt, 4) > 1900 And Left(dt, 4) < 2100) Then Flag = True If (Val(Mid(dt, 6, 2)) > 0 And Val(Mid(dt, 6, 2)) < 13) And Flag Then Flag …