kkhalifa1960

DLookUp("[sumOftot]";"Query_table1";"[coud]=" & coud)

يا أخي الحل بسيط زود عدد أزرار(أمر0)بالعدد الذي تريده بالتاب وعلى فكرة البرنامج يعمل عندي 100 زر والبرمجة سارية سواء كان صنف واحد أو أي عدد من الاصناف

تفضل أخي print eta-1.accdb

اليكم مثال اجنبي كان بمكتبتي يمكن يساعدكم . رحاء الدعوة لي بالشفاء . PictureBoxA2K.zip

استاذنا kanory نعم الكود يعمل لكن الغي منه (move next.)

Dim x1, x2 As Date x1 = Format(Date, "m") x2 = Format(Date, "yy") rx="RD" &""& me.حقل رقم تقرير الاستلام&""& x1 &""& x2

تفضل أخي محاولتي دون الدخول في تفاصيل برنامجك ووافني بالرد rep_2.rar

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

للاسف يمكن اظهار المجلد .... اذهب امكان المجلد ثم ابدأ من اليسار (View - Option- Change Folder and and search Options- View) وأكمل مع الصورة ثم ظهور المجلد بلون أصفر باهت . الحل !!!!!!!!!!!!!! برنامج كما بمشاركتي الأولى والله ولي التوفيق PhoXo1.bmp

DoCmd.SetWarnings True SQL = "INSERT INTO Obtained_Basic (File_No_B, Academic_Year_B, Class_B, Classroom_B, Periods_B)" & _ "SELECT stages.File_No_S, [Forms]![Operations_On_Result]![Year] AS [Year], stages.Class_S, stages.Classroom_S, [Forms]![Operations_On_Result]![Periods] AS Periods" & _ "FROM stages INNER JOIN stages ON stages.File_No_S=Obtained_Basic.File_No_B " & _ "WHERE [Forms]![Operations_On_Result]![Year])=[Forms]![Operations_On_Result]![Year] AND [Forms]![Operations_On_Result]![Periods]=[Forms]![Operations_On_Result]![Periods]AND [File_No_S] & [Forms]![Operations_On_Result]![Year] & [Class_S] & [Classroom_S] & [Forms]![Operations_On_Result]![Periods]) Not In (SELECT [File_No_B] & [Academic_Year_B] & [Class_B] & [Classroom_B] & [Periods_B] AS Not2" & _ "FROM Obtained_Basic;" DoCmd.RunSQL SQL DoCmd.SetWarnings False اضف قيل الكود (DoCmd.SetWarnings True) وفي نهاية الكود (DoCmd.SetWarnings False)

اين المرفق للعمل عليه لان هل الفورم هذا (single Form) أو غير ذلك وما الى ذلك .

تفضل أخي افتح القاعدة (DA111) ثم اختار القاعدة المنسوخ اليها ولتكن (DA112) المرفقة كمثال ثم جرب نسخ أي من جدول أواستعلام ................... وشوف النتيجة من الزر (فتح القاعدة المُرسَل إليها) ولو حابب تنقل هذا الى قاعد بياناتك 1- الفورم (Form1) 2-الجدول (tbl_DbContents) عدل به اسماء كل محتويات برنامجك ونوعها . 3- أذ كان هذا ماتريد اضغط أفضل اجابة واليك المرفق ووافني بالرد Copy table-report- model Programmatic module.rar

استاذي ومعلمي نعم يعمل على النواة 32x جزاك الله كل الخير

جميل جداً استمر ........ ولاتنسى الضغط على أفضل اجابة

أخي أنا كان ردي على ماطلبت والحين أنت تريد برنامج كامل افتح موضوع جديد وحدد طلبك كله مرة واحدة المنتدى به العديد من هذه البرامج

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

هذا كل مالدي تفضل 525203709_(AccessFIX).accdb

تفضل أخي تم عمل طلبك الاول اما الثاني تم اضافة جدول (tbl_Data) للترحيل به ........... ووافني بالرد electrivahro-1.accdb

تفضل أخي تم استخدام (WebBrowser) لعرض صور أو مواقع الوب اليك المرفق ووافني بالرد New Microsoft Access Database-1.accdb

جزالك الله خير أستاذ موسى

1- اعمل ضغط واصلاح للبرنامج ( وانت فاتح البرنامج روح ملف ثم ضغط واصلاح ) واذا ما ماسار ............ 2- ارسل مرفق والكل بيساعدك.

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

كنترول بانل .... أكسس..... اصلاح......وبعد مايخلص أعد تشغيل الكومبيتر

هل هذا ماتبغاه SecretFolder.rar

تفضل أخي ولا تنسى الضغط على أفضل اجابة DD112.accdb