alsarraf

مرحبا اخواني هل بامكاني عمل Minimize لبرنامج اكسس توضيح عند تشغيل البرنامج مع وجود Maximize لا يمكني مشاهده الساعه مثلا او فتح المسنجر او عمل اي شي الا عند تسكير البرنامج هل يمكني عمل زر يعمل علي تنزيل البرنامج الي الاسفل من غير تسكير البرنامج ارجوا ان يكون ال…

مرحبا يا اخوان اريد قبل خروج المستخدم من البرنامج يتم نسخ جميع الجداول الي قاعده بيانات جديده واعطاء اسم للقاعده الجديدهبتاريخ اليوم يعني اسم القاعده 10-10-2000 مثلا هل هذا ممكن وشكرا لكم

جرب هذا الكود اخي وخبرني بالنتائج للعلم امر0 يعني تعمل زر بهذا الاسم عند نقر هذا الزر سوف يخفي شريط المعلومات Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) Dim dbs As Database, prp As Property Const conP…

اخي بستطاعتك عمل استعلام علي الجدول الرئيسي بحيث تعمل معيار لتاريخ الدفع قبل هذا الاستعلام يجب عليك عمل فورم للبحث بحث يكون هناك حقل للشهر الذي تريد بحث عنه ولرنفرض ان اسم هذا الحقل هو [month] والان في الاستعلام في حقل تاريخ الدفع تستحدث حقل جديد وتجزء تاريخ ا…

انا اتفق معك انه لابد ان يكون هناك لنك ولكن اذا كنا نستطيع فتح جدول خارجي وارخال بيانات بالجدول اذن لابد نستطيع ان نسترد البيانات مو شرط من DLOOKUP لابد وجود امر ثاني انت شنو رايك بالموضوع والله الموفق

اشكرك علي هل التعاون والي الامام إن شاء الله والله الموفق

مشكور حبيبي والله يعطيك العافيه والله الموفق

الكود شغال 100 / 100 والبركه فيك والان يا بطل السؤال الثاني ونبي همتك السؤال هو انا عند استيراد البيانات من جدول اعمل هل الكود [mydata]=dlookup("[f]","mytable","") ارجو فهم الكود لانه لا اعرف تابة الكود بالمنتدي والان كيف استرد البيانات من الجدول الخارجي مع وج…

الملف جيد حبيبي وفيه الصوت ولكن اريد ان اجعل النموذج يصدر اصوات او موسيقى او قران او اي صوت بالكود وليسه بالوزرد واشكرك حبيبي

الله اعلم

اشكرك علي التعاون ولكن الملف لم يعمل معي يرد ملف غير موجود الرجاء ان تتاكد لي وشاكرلك والله الموفق

اشكرك علي هل الروح التعاون الي تتمتع فيها لو تعطيني الموقع الي انزل منه اوفيس xp وتكمل جميلك واشكرك حبيبي والله الموفق

مرحبا سؤالي كيف نخفي شريط المعلومات من غير عمل Maximize يعني نخفي شريط المعلومات ( ملف وتحرير وعرض ووو ) بالكود والله الموفق

لقد اعطيتنا طريقة التشغيل ولكن لم تعطنا البرنامج وشكرا

اشكرك علي التعاون ولكن انا لم اشرح طلبي اريد ان اخفي نموذج مثل اخفاء الجدول يعني اذا احد فتح البرنامج لا يرى النموذج Dim db As Database Dim tbl As TableDef Set db = DBEngine.OpenDatabase(CurrentDb.Name) Set tbl = db!qqq tbl.Attributes = tbl.Attributes + dbHidd…

الاخ قاصد الكود يعمل وبشكل جيد ولكن الباسوورد لا يعمل الاخ اشرف كبير المبرمجين الكود يعمل جيدا واسهل وهذه الطريقه جيده وتتحكم في البرنامج اكثر من الربط ولكن الطريقتين يؤدون الي روما ولكن كيف استرد البيانات البكود ولكم جزيل الشكر

مشكور اخي وكيف استرد البيانات مع وجود السرق السري ولك جزيل الشكر

علي حسب علمي انه لايمكن عمل تعديل علي ملف mde ولو حصل هل الشي فسفه يكون نقله نوعيه في البرمجه والله الموفق

إن شاء الله راح ينفع بس المشكله انه لا استطيع انزال البرامج والامثله لا يعمل معي لانه اصداري 97 يا ريت تكتبلي الكود اذا ممكن ولك جزيل الشكر

كود الحفظ Dim qr As Database Dim ze As Recordset Set qr = CurrentDb() Set ze = qr.OpenRecordset("WORK16") 'اسم الجدول ze.AddNew ze![M1] = Forms![WORK6]![F1] ' اسم الحقل ze.Update ze.CLOSE [code/] ولامر الجديد [اسم الحقل]=NULL والله الموفق