jjafferr

تفضل :) انا علشان اجرب الكود، خليته على حدث الزر، اما انت فخليه على الحدث اللي يريحك :) Option Compare Database Private Sub cmd_check_Click() On Error GoTo err_cmd_check_Click Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst 'Form values added Form_Valu…

يمكنك ان تعرف حجم ملف صورتك الاصلية بالبايت ، ثم تطلب من البرنامج قراءة حجم الصورة في المجلد (والتي تحمل نفس الاسم) ، فاذا لم يتطابق الحجمين ، تظهر رسالة بذلك ، هكذا: Folder_image_size = "c:\temp\Sample.jpg" Old_image_size = 123456 'in bytes If Old_image_size …

عفوا اسمح لي بالاضافة: في الاكسس 2003 فما فوق ، تستطيع هذه الدالة بجلب اكثر من قيمة من نفس السجل، مثلا، بدل ان نقرأ اسم الشخص، ثم اسم والده، ثم اسم جده، ثم اسم قبيلته، ثم نجمع قيمها في السطر الاخير ليكوّن الاسم الكامل: first_name = DLookup("[first_name_en]", "…

تفضل الكود في هذا الرابط الخارجي: http://access.mvps.org/access/api/api0039.htm جعفر

لوسمحت ترفع ملف جهاز البصمة ، وقاعدة بياناتك ، حتى يتم عمل استيراد خانات البيانات ، ثم عمل زر لها :-) جعفر

اخي mr_mgm قصدك ان جهاز البصمة يمكنه حفظ البيانات في صيغة mdb ، طبعا هذا باﻻضافة إلى ملفات بصيغ اخرى ، و csv من ضمنها ، ولكن جميع هذه الملفات ﻻ عﻻقة لها ببرنامج eslamtek اﻻكسس ، حيث يتوجب عليه استيراد البيانات إلى برنامجه في نهاية اﻻمر :) جعفر

ملف بيانات البصمة والذي هو بصيغة csv ، اذا يتم حغظه بنفس اﻻسم وفي نفس المجلد دائما ، فيمكننا ان نعمل زر في برنامج آكسس ، والذي يستورد ملف csv ويخزن البيانات مباشرة بالطريقة الصحيحة :) رجاء إرفاق ملف csv وفيه بيانات حقيقية وصحيحة ، ﻻنه ﻻحقا المبرمج سيطلب حساب ف…

حياك الله أختى الفاضلة ، ومنكم نستفيد :) وياريت اصحاب الاسئلة يساعدونا ويعطوا السؤال بوضوح وبأمثلة :) جعفر

حياك الله ، وكما يقولون: كل يوم تعال :) جعفر

الآن طلبك صار مفهوم ، جرب الكود في هذا الرابط الخارجي: http://support.microsoft.com/kb/184297 جعفر آسف الرابط غلط ، اعتذر :(

اخي جرب الكود في هذا الرابط الخارجي ، ورجاء إخبارنا اذا نجح الكود معاك : http://www.john-am.com/2011/07/temporarily-changing-print-margins-in-access-2003/ جعفر

حياك الله اخوي ، الخباز يشكرك :) انا مهندس مدني ، وبرمجة الاكسس هواية :) يا طويل العمر ، رجاء خبرنا المتطلبات كلها من البداية لوسمحت ، لعدم تكرار العمل :( يعني بعد ما اطبخ القبولي ، تقول كنت اريد برياني ، ولما اسوي برياني دجاج ، تقول اريد برياني لحم :) تفضل :)…

>يعني لما انقر على المستطيل الخاص بالكمية المستهلكة يتفعل كود vb الله يطول في عمرك ، وين قلت هالكلام ، هذه اول مرة تقوله!! تفضل :) لما تنقر على المستطيل الخاص بالكمية المستهلكة ، ستحصل على الجواب ، وهي نفس المعادلة: Private Sub cx_Click() Me.cx = Nz(Me.t1, 0) …

تفضل :) لم الاحظ ان خانة cx غير مرتبطة بالجدول ، وانما هي للعملية الحسابية فقط :( لذا ، فلا داعي للكود السابق ، وكل الذي سنفعله هو وضع معادلة واحدة (نفس المعادلة السابقة) في خصائص cx : =Nz([t1],0)-Nz([t2],0) كما في الصورة: جعفر 35.gaz.accdb.zip

تفضل :) اعمل استعلام ، ولا تختار اي جدول ، ثم بزر اليمين اختار SQL والصق هاي الكود: SELECT TOP 4 RowID FROM tbl_temp ORDER BY RowID DESC; ومنها تقدر تغير الجدول والخانه اللي تعجبك :) جعفر

آسف على التأخير ، بس ما كان بالسهولة اللي توقعتها :( وتغير العقل المدبر للعملية كلها ، واصبح هذا الكود: Private Sub cmd_Report_Click() On Error GoTo err_cmd_Report_Click 'No warning please DoCmd.SetWarnings False 'delete the Records of tbl_temp DoCmd.OpenQuery…

شكرا جزيلاً :) انا عامل استعلام للبنات ، بس في الكود ، ولأني ما فرضت عليه طريقة عرض التاريخ ، فأخذها حسب تضبيطات الكمبيوتر. سأعمل بطريقة اخرى إن شاء الله :) مو انت والرحمة :) مسقط مافيها مطر البر اليوم :) جعفر

اخي عندك 11 Tab في النموذج FPutInOut ، وفيهم 11 نموذج ، ولكن لا يوجد واحد فيهم مرتبط بالجدول Tmain ، ولا اعرف ما صلة النموذج بالجدول!! لذا ، رجاء تحديد المطلوب بدقة (اي نموذج ، اي زر ، اي خانة ، اي استعلام) ، حتى نستطيع المساعدة وتنتهي فترة انتظارك :) جعفر

وعليكم السلام حسب علمي ، فإن ماكينة البصمة تحفظ المعلومات بصيغة csv والتي هي عبارة عن معلومات مفصولة "بالفاصلة" (اي ان هناك فاصلة بين المعلومة والاخرى) لكل شخص ، هذا الملف يمكن فتحة بواسطة Notepad. يمكن لأكسس توريد هذا الملف وعمل جدول له (من خبرتي ، التاريخ سي…

تفضل :) حسابي هو: بعد تغيير قيمة الكمية الكلية (t1) ، نعمل الحدث: Private Sub t1_AfterUpdate() ' Me.cx = Nz(Me.t1, 0) - Nz(t2, 0) End Sub وبعد تغيير قيمة الكمية المتبقة (t2) ، نعمل الحدث: Private Sub t2_AfterUpdate() ' Me.cx = Nz(Me.t1, 0) - Nz(t2, 0) End Sub …