فقير ومشتري الدنيه بضحكتي

يمكنك ذلك عن طريق ان تعمل مايكرو - وتختار export with formatting في حقل تنسيق الاخراج اختر microsoft excel بعدما تنتهي سمي المايكرةو باي اسم ثم قم بانشاء زر يقوم بتشغيل ذلك المايكرو

تكتب في الحدث عند النقر على زر الحفظ اسم النموذج . اسم الداة المراد اظهارها مثلا(تكست بوكس) . خاصية الاظهار (visible) = true

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

اذا قصدك ان تجبر المستخدم على كتابة ارقام فقط استخدم الكود الاتي if isnumeric( اسم النموذج الحالي .textbox) =true then نفذ مجموعة من العمليات else msgbox " هذا الحقل مخصص لادخال الارقام حاول مرة اخرى " end if

اكتب بعد else me.undo docmd.cancelevent end f

ضع قبل الكود السابق او العملية السابقة الكود التالي on error resume next

يعني من خلال خصائص الفورم (النموذج) تجعل الخاصية نمط الحدود =مربع حوار وبعد ذلك مربع عنصر التحكم = لا

يمكنك من خلال خصائص التقرير واختيار خاصية قائمة مختصرة من تبويب غير ذلك لخصائص التقرير تجعل قيمتها لا

اتصور ان شهر 2 فيه 28 يوم فلو كتبتي 28/2 سوف لا تظهر مشكلة جربي اختي وانشاء الله ما كو مشكلة

يمكنك من عمل ذلك من خلال اضافة مايكرو بحث جاهز كما في برنامج الاكسيس ويمكنك ذلك برمجيا وكالاتي : تجعل مصدر السجلات للنموذج الفرعي يعتمد على مربع النص الذي تريد كتابة الاسم للبحث عنه وتكتب قبلها عبارة like "*"& forms![اسم النموذج ]! [اسم النموذج الذي يحتوي على مربع النص الذي فيه حقل البحث عن الاسم ]&"*"

يمكنك ذلك وبدون اكواد من خصائص حقل مربع النص نختار خاصية بيانات - قناع الادخال - اختر قناع الادخال على شكل كلمة مرور .

يمكنك من عمل زر للطباعة انشا زر واكتب الكود التالي DoCmd.SetWarnings False DoCmd.RunCommand acCmdPrint الكود اعلاه سوف يقوم بفتح مربع حوار الطباعة اختر اسم الطابعة الافتراضية ومن خصائص غير حجم الورقة او اتجاه الورقة ثم موافق

هناك العديد من دوال البحث القوية مثل dlookup(" الحقل المراد البحث فيه " ," اسم الجدول " , " شرط معين " )

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

انشا زر حذف واكتب فيه الكود التالي dim s as string s="delete* from اسم الجدول " docmd.runsql s DOCMD.REFRESH او DOCMD. REQURY MSGBOX " تم حذف البيناات من الجدول "

جرب هذا الكود docmd.setwaring =false يقوم بايقاف اي رسالة خطا او تنفيذ اي استعلام ويجعله مخفيا عن المستخدم وهو كود قوي جدا

Dim s As String s = "select * from اسم الجدول where([حقل الاسم]='" & Me.p & "')" حيث p هو الاسم المراد البحث عنه Me.نموذج فرعي.Form.RecordSource = s Me.نموذج فرعي.Form.Requery الكود السابق يكتب في زر بحث وتوضع النتيجة في نموذج فرعي وانشاء الله ينجح مع الكود

جرب الكود التالي me.clear

بدون الحاجة الى وحدة نمطية او غير ذلك توجد دالة اسمها datediff() هذه الدالة تطرح بين تاريخين وترجع قيمة معينة مثلا (شهر او يوم او سنة شاهد دروسها على اليوتيوب وهي دالة سهلة جدا

اغلب اعضاء المنتدى تواجههم مشكلة عند الضغط على زر معين لا يعمل او لا ينفذ الامر لحل مثل هكذا مشكلة هناك طريقتين بيسطتين : 1- ضع الكود الذي فيه مشكل بين عبارتي on error goto رمز معين : الكود الخاص بالمستخدم الذي فيه المشكلة msgbox err.description الطريقة الثانية وهي الافضل . اذهب الى النموذج الذي فيه الكود الذي لا يعمل وادخل على اية اداة تحكم ( زر -مثلا) الذي فيه المشكلة اذهب الى شريط المعلومات واختر الامر debug ,ومن ثم الامر compiler database سيقوم معالج الاكسيس بالكشف عن الاخطاء في برنامج . ارجوا من اخوتي الاستفادة من هذه المعلومة البسيطة قال النبي محمد (ص) : زكاة العلم نشره . صدق رسول الله (ص)

ضع قبل كتابتك للكود الكود الاتي on error resume goto w: كتابة الكود الخاص بك هنا w: msgbox err.description لعرض وصف للخطا

من خصائص النموذج اختر زر الاغلاق واجعها لا

يمكنك النقل من ملف اكسيل الى ملف اكسيس بشرط ان تتطابق لديك الحقول في الجدول في الاكسيس مع الحقول في الاكسيل وبنفس نوع البيانات ويتم ذلك عن طريق عدة طرق ولكنني سوفاخبرك بطريقة بسيطة وقوية وانشاء الله تنجح معك مثلما نجحت معي وهي طريقة برمجية 1- اختر انشاء - مايكرو واختر import export spreadsheet 2- املا الحقول وكالتالي transfer type استيراد او import spreadsheet type excel workbook table name اختر اسم الجدول الموجود في برنامج الاكسيس المراد استيراد البيانات اليه file name فتح ملف اهم شي مسار الملف الاكسيل يمكنك ان تجعله ثابت او متغير عن طريق صندوق حوار has field name تختار نعم وهذا يعني ان البيناتا التي سوف تستوردها لها عنوان احفظ المايكرو باسم ما مثلا 111 انشيء زر واكتب الكود التالي On Error GoTo t: Dim diag As FileDialog Set diag = Application.FileDialog(msoFileDialogFilePicker) diag.AllowMultiSelect = False diag.title = "اختر ملف اكسيل " diag.Filters.Clear diag.Filters.Add "excel file", "*.xls*" If diag.Show Then Me.t22 = diag.SelectedItems.Item(1) للتوضيح هنا عملت مربع نص اسميته t22 لعرض مسار ملف الاكسيل 'DoCmd.SetWarnings False DoCmd.RunMacro "111" تنفيذ المايكرو End If t: MsgBox Err.Description ملاحظة مهممة عند نقلك للبيناتا من ملف اكسيل الى ملف اكسيس يجب ان تكون مرتبة حسب الجدول في الاكسيس وان تكون البيناتا ونوعها حسب ما موجود في جدول الاكسيس

Dim s1, As String On Error GoTo y: If MsgBox("هل تريد حذف كافة البيناات من الجودل ", vbYesNo, " تحذير ") = vbYes Then s1 = "DELETE * FROM [in]" DoCmd.SetWarnings False DoCmd.RunSQL s1 DoCmd.Requery MsgBox " تم الحذف بنجاح !!!!" Else End If y: MsgBox Err.Description