صالح حمادي

استعمل الدالة TransferSpreadsheet

العفو

السلام عليكم تفضل ملفك بعد التعديل مثال.rar

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

شكرا أخي Shivan Rekany هذا هو البرنامج يا استاذ محمد أتمنى أن ينال إعجابكم ملف البيانات.rar

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

السلام عليكم و رحمة الله تعالى و بركاته. هذه محاولة مني لإنشاء قاعدة بيانات بريد إلكتروني بإستعمال الأكسس. المرفق به ملفين أكسس : الأول خاص بقاعدة البيانات أما الملف الثاني فهو خاص بواجهة البريد. و هو يحتوي على بريد وارد و صادر و إنشاء رسالة. طريقة التشغيل: نضع ملف قاعدة البيانات في الكمبيوتر الخادوم (server) ونضع ملف الواجهة (برنامج الإتصال) في الأجهزة الأخرى, و عند فتحه نبحث عن مسار ملف قاعدة البيانات و نقوم بربطه بها. ثم نبدأ تشغيل البرنامج بنجاح إن شاء الله ملف البيانات.rar

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

السلام عليكم و رحمة الله تعالى و بركاته بعد أن قدمت لكم برنامج لحساب القاسم المشترك الأكبر بطريقتين في نفس البرنامج اليوم نقوم بتقديم برنامج آخر يقوم بحساب جميع قواسم عدد طبيعي و يعطي القاسم المشترك لعددين. بالتوفيق للجميع أنا في إنتظار ملاحظاتكم القيمة أصدقائي. Me.l.RowSource = "" Me.l1.RowSource = "" Me.l2.RowSource = "" If Me.x1 > Me.y1 Then x = Me.x1 Else x = Me.y1 End If For i = 1 To x n = x1 Mod i m = y1 Mod i If n = 0 Then Me.l.AddItem (i) End If If m = 0 Then Me.l1.AddItem (i) End If If n = 0 And m = 0 Then Me.l2.AddItem (i) Me.pg = i End If Next برنامج القواسم.rar

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

العفو يا أستاذنا الكريم

آمين يا رب العالمين و كل من يشارك في هذا المنتدى الرائع

أنت من يجب أن يقدم له الشكر يا أستاذ على هذا المجهود العظيم

بارك على فيك على هذا المجهود و جزيت عليه خير الجزاء و بالتوفيق إن شاء الله

شكرا جزيلا أستاذ عبد الفتاح

السلام عليكم و رحمة الله تعالى و بركاته. بعد إذنك أستاذي محمد أيمن أريد أن أضيف تعديلا بسيطا على الكود من أجل حفظ الملف في نفس مسار البرنامج كما طلب السائل Dim DP As String DP = Application.CurrentProject.Path & "\" & Format(Now(), "dddd") & " " & Format(Now(), "ss-nn-hh") & ".xls" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "table1", DP MsgBox "تم التصدير إلى أكسل بنجاح" & vbCrLf & "الملف في نفس مسار البرنامج"

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

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

بارك الله فيك أخي عبد الفتاح

الله يعافيك

شكرا أخي بارك الله فيك

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

نعم أخي و أستاذي رمهان شكرا على الملاحظة فهذا الكود لا يفي بالمطلوب فأنا جربته و لم يحقق الهدف. فالكود الصحيح هو كالتالي: Do While Me.l.ListCount <> 0 Me.l.RemoveItem 0 Loop آسف لأني طلعت الكود الخطأ شكرا جزيلا أخي و صديقي رمهان list box.rar

شكرا لكم إخوتي الأستاذ رمهان و الأستاذ محمد أيمن و الأستاذ أبو عبد الله الحلواني زادكم الله من علمه و فضله. و أيضا هذا الكود بإمكانه أن يقوم بالمهمة المطلوبة. Private Sub أمر2_Click() Do While currentrecord <> Me.list0.ListCount list0.RemoveItem 0 Loop End Sub

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الأكارم حياكم الله. هل يوجد كود يقوم بحذف عناصر مربع نص List Box دفعة واحدة مثال: لدي مربع نص به ثلاث أو أربعة عناصر و أريد أن أحذف هذه العناصر بالضغط مرة واحدة على زر الحذف وشكرا جزاكم الله خير الجزاء list box.rar