نجوم المشاركات

اضافة لما اشار الية اخي واستاذي @jjafferr اسهل طريقة لضبط التقرير بعد ازالة مساحة التقرير الزائدة التي اشار اليها اخي الفاضل جعفر الدخول على طريقة عرض التخطيط والتاكد ان كافة حقول التقرير داخل الاطار مرفق صورة للتوضيح

وعليكم السلام 🙂 الصفحة الثانية ، إما الطول او العرض اكثر من اللازم ، قم بتصغيرها الى ان يختفي المثلث الاخضر : جعفر

تفضل التعديل DATA145.zip

السلام عليكم تفضل اخي الكريم تم اضافة جدول TAB الى الاستعلام الموجود بنموذج 2 frm_Q_books وربط حقل Nass MusndWZwayid 7.rar يمكن وبتم ربط الجداول بقاعدة البيانات الحالية تحياتي

بداية يجب إرجاع الفضل لإهله الاستاذ / سليم حاصبيا - الاستاذ ابراهيم الحداد فى مساعدتهم الدائمة وخاصة فى اعداد هذا البرنامج والذى اتمنى ان يحوز رضاكم كتلميذ من تلامذة المنتدى أمنيتى تعريفى بعيوبه من جانب اساتذتى واسم المستخدم/ محمد فتحى / وكلمة المرور 1970 ومحرر الاكواد / 6101970 1562309003_.rar

تفضل التعديل التعديل الجديد - سيتم ارسال المعلومات لملف الوورد - سيتم حفظ التعديلات كنسخة جديدة بصيعة ( Word + PDF) - pdf5.zip StudentFile2021-06-15041817.docx StudentFile2021-06-15041817.pdf

ماشاء الله تبارك الله علم وادب وسعة صدر الله يجزاك خير اخي حسين ويبارك فيك ولك

غيير اسم الخط في مربع النص في الوورد الى Wingdings 2 و اجعل القيمة المرسلة حروف كما هو موضح ادناه Wdoc.Bookmarks("ChekBox1").Range.Text = IIf([chekBox1]=-1,"P","O")

في حدث عند النقر للحقل id ضع الامر الاتي If Me.NewRecord Then Exit Sub DoCmd.OpenForm "b", WhereCondition:="[id]=" & [ID] الملف مرفق Database1210.accdb

تفضل هذا التعديل DATA143.zip

ممكن ان تضع الكود السابق على حدث "عند تحميل" النموذج حتى لا ترى مكان ادخال السجل الجديد ، عندما تفتح النموذج لأول مرة ، وضع زر لإظهاره ، وضع هذا الكود على حدث "النقر" : me.AllowAdditions=true جعفر

وعليكم السلام 🙂 هو ليس سجل فارغ ، وانما مكان ادخال البيانات لسجل جديد 🙂 اذا ما تريده ، في حدث تحميل النموذج اكتب: me.AllowAdditions=false جعفر

جرب ورد تكرار -عدد - قيمة1.xlsm

جزاك الله خيـرا بارك الله في جهودك وأسال الله لك التوفيق دائما

تفضل: If DCount("[npart]", "part", "cpart=" & aa) > 0 Then MsgBox "Exist !" Else MsgBox "Not Exists" End If

اخي الكريم الملف شغال في حدث فتح يعني عند فتح الملف ينفذ اذا كان التاريخ في الجهاز مطابق للتاريخ في الكود ملاحظة يمكنك تغيير التاريخ في الكود حسب ما تريد قرعة.xlsm

مثلا: الجدول X في البرنامج الخارجي ، و الاستعلام X هو للجدول X ، ولكن فيه الحقول المطلوب التعامل معها فقط ، بدلا من جميع حقول الجدول. أ. بعمل رابط للجدول X في البرنامج الذي تشتغل عليه ، فيصبح كأي برنامج عادي ، واذا اردنا ان يكون للقراءة فقط ، فيا نعمله في الاستعلام او النموذج ، او ب. عمل استعلام مباشرة في قاعدة البيانات ، للجدول/استعلام X ، وهنا نستطيع ان نجعل البيانات للقراءة فقط من استعلام مباشرة برنامجك : 1. في برنامجك ، اعمل استعلام جديد ، وادخل فيه اسم مسار البرنامج الذي يحتوي على الجدول/استعلام X . 2. انقر لفتح الجداول والاستعلامات التابعة لذلك البرنامج ، 3. اختر الجدول/الاستعلام X واستعمل الحقول ، 4. اذا اردت ان يكون الاستعلام للقراءة فقط : . او ج. بالكود تستطيع ان تربط الجدول/الاستعلام X كمصدر بيانات لإستعلام في برنامجك ، ويمكن ان يكون هذا الاستعلام بالكود ايضا ، د. نفس طريقة ج اعلاه ، ولكن لقراءة الجدول/الاستعلام X مباشرة في الكود 🙂 الطريقة التي افضّلها انا ، هي الفقرة ب ، لأنها سهلة وتتعامل معها بطريقة عادية 🙂 ** ملاحظة: في حال تم تغيير مكان البرنامج الذي يحتوي على الجدول/الاستعلام X ، يجب تغيير المسار لجميع الفقرات اعلاه 🙂 جعفر

وعليكم السلام تفضل برنامج رهيب بالاسترجاع من ضمنها انواع ملفات اكسس انتظرني ريث ما ارفع الملف على الميديا فاير

استدراك حتى لا نحصل على رسالة خطأ اذا كان عدد السجلات كبير نستبدل 👇 Dim x As Byte بـ Dim x As Long او Dim x As Integer Byte = 0 to 255 Integer = -32,768 to 32.767 Long = -2,147,483,648 to +2,147,483,647 والله الموفق

و جرب هذا التعديل 1390.nabil23221.zip

الكود يعمل نسخة من قيمة الحقل Emp_Name ويضعه في الذاكرة ، ثم يفتح متصفح الملفات ، يفتح البارتيشن \:C (اذا الملفات على مجلد معين ، تقدر تغير المسار من الكود ، بحيث يفتح المتصفح هذا المجلد مباشرة) : Private Sub cmd_Open_File_Explorer_Click() Me.EMP_NAME.SetFocus DoCmd.RunCommand acCmdCopy 'Application.FollowHyperlink "C:\" 'or 'Dim Foldername As String 'Foldername = "\\server\Instructions\" 'Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus 'or Shell "C:\WINDOWS\explorer.exe c:\", vbNormalFocus 'Open Windows Explorer, C partition End Sub . ومنها تتصفح الى المجلد المطلوب ، ولما تريد ان تغير اسم ملف ، انقر على الملف بالفأرة اليسار مرة واحدة ، ثم انقر على F2 من لوحة المفاتيح يدويا ، وسيكون الملف جاهز لتغيير الاسم ، اضغط على لوحة المفاتيح Ctrl+V للصق الاسم الجديد. جعفر

ممكن نحجز متغير Dim x As Byte نجعل المتغير يعد السجلات بمعيار رقم الكود x = DCount("*", "part", "[cpart]=[aa]") نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If يكون الكود كاملا بالشكل التالي Dim x As Byte x = DCount("*", "part", "[cpart]=[aa]") If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If مرفق الملف بعد التعديل dlook.accdb

تفضل اخي عسى ان يكون المطلوب Labour A1.xlsx

اتفضل هذا التعديل و لا تنسى اذا تضيف المكتبة للبرنامج الخاص فيك pdf3.zip

mmnn4444bbvvcc11 معذرة مسئول الماهيات لم يلفت نظرى لهذه الملاحظة وسوف تعدلها داخل البرنامج فورا وسيكون التعديل متاح على صفحة برامج مدرسة https://www.facebook.com/groups/942722802909693/

وعليكم السلام ورحمة الله وبركاته لا اعلم سبب وجود زرين للترخيل وزرين للاضافة باكواد مختلفة ربما يكون لها اهمية في ملفك الرئيسي اكتب بياناتك ثم ترخيل وهكذا اذا لم يكن هذا طلبك ارفق ملفك الرئيسي ختى تتضح الفكرة listbox (3).xlsm

ارجو المساعدة في تصميم برنامج لحساب الاجور المتغيرة للعاملين بالتربية والتعليم مع امكانية طباعة بطاقة الاجور عن السنوات التي قضاها الموظف تفصيليا ( عرض الشهور لكل سنة في عمود منفصل ) كما في الصورة

السلام عليكم ورحمة الله وبركاته لدي سؤال وهو موجود في الملف المرفق وقد وضعته في ملف وورد لاحتوائه على جداول توضيحية لما أريده . وكذلك يوجد في الملف المرفق توضيح عمل البرنامج كما أريد . أيضاً يوجد في الملف المرفق محاولة مني لعمل البرنامج الذي أريده. ولكل من يقدم لي المساعدة له مني الشكر الجزيل وجزاه الله ألف خير . أخوكم : فهد الدوسري fahad_help.rar

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

فهرس سلسلة دروس الأخ أحمد الحربي 1- تعريف بـ adp http://www.officena.net/ib/index.php?showtopic=1244 2- تنصيب MSDE http://www.officena.net/ib/index.php?showtopic=1246 3- MSDE من الداخل http://www.officena.net/ib/index.php?showtopic=1249 4- إنشاء قاعدة على الملقم MSDE http://www.officena.net/ib/index.php?showtopic=1251 5- الجداول في مشاريع أكسس http://www.officena.net/ib/index.php?showtopic=1269

أحبتي الكرام : السلام عليكم ورحمة الله وبركاته. قمت بعمل شريط قوائم لقاعدة البيانات . والمشكلة هي عندما تكون النماذج منبثقة لا يظهر شريط القوائم . هل هناك حل للمشكلة ؟ ولكم مني جزيل الشكر

السلام عليكم ورحمة الله وبركاته الحمد لله على سلامة منتدانا الحبيب كم شعرنا بفراغ عظيم في تلك الفترة العصيبة الحمد لله والف شكر للقائمين على المنتدى ولكل من ساعد في عودته ــــــــ اخواني الاحبة عندي حقلين الاول الاسم ----- نص الثاني العنوان---- نص كيف اختار الاسم فيظهر العنوان اتوماتك مع العلم ان الحقلين من نوع نص وليس رقم ونص مع الشكر الجزيل

لدي قاعدة بيانات لمجموعة عمل يستعملها أكثر من شخص ويتم إدخال البيانات فيها يدوياً ولكن أصبح الآن يُرسل إلينا ملفات على شكل txt فيتم بذلك دخول المعلومات مباشرة إلى البرنامج دون إدخال يدوي وفق طريقة وضعها مبرمج البرنامج ولكن المشكلة أنه عند إنزال البرنامج ألياً تظهر أسماء الزبائن وأمامها أرقام الهواتف مما يضطرنا إلى عمل قص للهاتف ووضعه في الخانة المخصص له ولكن يكون أحياناً حوالي 1100-200 اسم فيكيف يمكنني الفصل بين الاسم والرقم يرجى المساعدة العاجلة ولكم منا جزيل الشكر

أخي الكريم محمد طاهر السلام عليكم ورحمة الله وبركاته اشكر على معاونتك السابقة والتي كان لها أثر كبير في تنفيذ بعض البرامج التي أعدها واليوم لي عند سوال في غاية الاهمية - اعلم ان اجابته لديكم ان شاء الله كيف يمكن اختيار سجل بشكل عشوائي من حقل في جدول؟؟؟ ولكم تحياتي اخوك المبرمج الصغير

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

هذا برنامج وضعه الاستاذ أشرف خليل عن كيفية استخراج الأرقام المفقودة على هذا الرابط http://www.arabteam2000.com/ib/index.php?s...t=0entry39765 وهذا الرابط أيضاً في نفس الموضوع http://www.arabteam2000.com/ib/index.php?s...t=0entry54155 وعندما أردت استخدامه بعد حاجتي له لاحظت أنه غير دقيق في عمله . فهل أجد منكم من يقوم بالتعديل على الكود ليكون دقيق 100% في الملف المرفق توضيح الخطأ الذي يقع في الكود. تحياتي _______.rar

بسم الله الرحمن الرحيم أعزائى سمعت كثيرا عن ما يسمى بالدنجل الذى يتم توصيلة بوصلة الطابعة و رأيتة و لكننى اتسأل ما هو الدنجل؟ و كيف يتم التعامل معه من أكسيس ؟ وهل يوجد API جاهز له؟ أم يأتى مع برنامج مخصص؟ و ما هى اقوى الانواع منه؟ وأسأل عن أى موضوع او معلومات مفيدة فى هذا المجال؟

بســـم اللــــه الرحمن الرحيــــــــــــــــــــــــــم ========================= إخوانى فى اللـــه الكــرام وفقنى اللـــه تعالى الى معرفــة طريقـــة يتم بها تشغيل ملفات الأكسيس على أجهــزة ليس مثبت عليها برنامج الاكسيس وسأقــوم بمشيئــة اللـــه بشــرح ما قمت به وأتمنى من الأخوة الكرام الذين سوف يطلعون على هذا الموضوع وتجربة تلك الطريقة الى الدعاء لى بظهر الغيب اذا نجحت تلك الطريقة أما إذا فشلت فأرجو أن يقبلوا معذرتى حيث أضعت وقتهم بقراءة هذه المشاركة وبتجربة تلك الطريقة بسمك اللهــــم أبدأ:- لقد قمت بالآتى 1-أزلت الأوفيس إكس بى من على الجهاز 2-وضعت إسطوانــة الأوفيس إكس بى فى سواقة الإسطوانات 3-أنشئت مجلدا جديدا فارغا على أى دريف (الدريف به مساحة أكبر من 220 ميجا بايت) 4-قمت بإظهار الملفات المخفية زيادة فى التأكيد 5-قمت بالبحث داخل الاسطوانة على ملف إسمه ( ACCESSRT.MSI) مساحته 827 كيلو بايت 6-قمت بنسخه إلى المجلد الفارغ الذى أنشئته 7-قمت بالبحث داخل الاسطوانة عن ملف إسمه OFFICE1.CAB ( إذا لم تجده فيجب أن تتأكد من أنك أظهرت الملفات المخفية لأنه كان عندى مخفى) (مساحة الملف 214 ميجا بايت) 8-قمت بنسخه الملف الى المجلد الذى أنشئته 9-أصبح الآن عندى مجلد يحتوى على ملفين الأول هو ACCESSRT.MSI & OFFICE1.CAB 10-قمت بتشغيل الملف ACCESSRT.MSI فقام بتثبيت Microsoft Access 2002 RunTime على جهازى 11- قمت بتشغيل ملفات الاكسيس فوجدت أنها تعمل ولم أقم يتثبيت برنامج الأكسيس ملحوظــه هامــة جدا - وجدت أن ملفات الاكسيس التى لا تبدأ بإظهار نموذج عند بدأ التشغيل لا تعمل ولكن التى تبدأ بتشغيل نموذج معين هى التى تعمل 12- قمت بالبحث عن الملف التنفيذى للأكسسيس MSACCESS.EXE الذىيقوم بتشغيل برنامج الاكسيس المعتاد فوجدت البرنامج وعندما قمت بتشغيله ظهرت لى رسالة خطأ ثم تم إغلاق البرنامج أى أن البرنامج الذى يمكنك من عمل قاعدة بيانات (جداول - إستعلامات - نماذج........ ) لا يعمل إنما الذى يعمل هو مكتبات تقوم فقط بتشغيل ملف الأكسيس =================================================================== وفى الختام أرجو من اللـــه عز وجل أن يوفقكم الى ما يحبه ويرضاه وأن أكون قد وفقنى الله الى تقديم شىء يفيد أرجو من الله عز وجل أن يكون لى حظا من دعائكم بظهر الغيب والسلام عليكم ورحمة الله وبركاته