ashraf

بفرض أن حقل التاريخ الأول a والحقل التاني b ضع هذا الكود فى زر If IsNull([a]) Or IsNull([b]) Then MsgBox "يجب أن تدخل التاريخين الافتتاحي والختامي.", vbCritical, " ادخال خاطئ" DoCmd.GoToControl "a" Else If [a] > [b] Then MsgBox "يجب أن يكون التاريخ الختامي أكبر من التاريخ الافتتاحي.", vbCritical, " ادخال خاطئ" DoCmd.GoToControl "a" Else Me.Visible = False End If End If أشرف خليل

مثال عملته على 2000 وحولته على 97 . شاهدي التقرير . ( مضغوط winrar) أشرف خليل 2000.rar

مثال تم عمله بالأكسيس اصدار 97 . يعنى قديم . فمابالكم بالاصدارت الأحدث وكيف تعمل . أشرف خليل musicmaker97.rar

مثال على استخراج رقم الهارد ديسك وجربه على أكثر من جهاز ستجد أن الرقم يختلف . حاول فيه وشد حيلك . أشرف خليل RUN_PROG.zip

فى التقارير يوجد بند فى التنسيق اسمه تنسيق شرطي . حاولى فيه . أشرف خليل

راجع المراجع للمثال . أشرف

قد يفيدك هذا المثال . اشرف خليل shut_win.zip

مثال مش فاكر مين صممه ولكن الله يجزاه خير عموما . أشرف خليل ______________________.rar

شاهد هذا المثال أشرف خليل cal_3.zip

لعل هذا يفيدك .  كود لاستخراج بيانات عشوائية من حقل أو استعلام أو عبارة SQL كود: -------------------------------------------------------------------------------- Function FindRandom (RecordSetName As String, Fieldname As String) Dim MyDB As Database Dim MyRS As Recordset Dim SpecificRecord As Long, i As Long, NumOfRecords As Long Set MyDB = CurrentDB() Set MyRS = MyDB.OpenRecordset(RecordSetName, dbOpenDynaset) On Error GoTo NoRecords MyRS.MoveLast NumOfRecords = MyRS.RecordCount SpecificRecord = Int(NumOfRecords * Rnd) If SpecificRecord = NumOfRecords Then SpecificRecord = SpecificRecord - 1 End If MyRS.MoveFirst For i = 1 To SpecificRecord MyRS.MoveNext Next i FindRandom = MyRS(Fieldname) Exit Function NoRecords: If Err = 3021 Then MsgBox "There Are No Records In The Dynaset", 16, "Error" Else MsgBox "Error - " & Err & Chr$(13) & Chr$(10) & Error, _ 16, "Error" End If FindRandom = "No Records" Exit Function End Function -------------------------------------------------------------------------------- ولإستدعاء الدالة : [code] -------------------------------------------------------------------------------- ?FindRandom("RecordSetName", "FieldName") -------------------------------------------------------------------------------- حيث RecordSetName اسم جدول أو اسم استعلام أو عبارة SQL و FieldName اسم الحقل المطلوب استخراج البيانات العشوئية منه . نقلا من أحد المواقع ولكم تحياتي **************************************************************** لجعل البيانات العشوائية غير متكررة يعني يظهر كل سجل مرة واحد فقط بدون أن يكرره حتى ولو كانت البيانات متككرة في الجدول في نفس الحقل : 1- أعلن عن متغيرين على مستوى الوحدة النمطية الخاصة بالنموذج : -------------------------------------------------------------------------------- Dim الاختيار_الأخير Dim MyRS As Recordset -------------------------------------------------------------------------------- 2- ضع الدالة التالية في الوحدة النمطية الخاصة بالنموذج : كود: -------------------------------------------------------------------------------- Function FindRandom2(RecordSetName As String, Fieldname As String) Dim MyDB As Database Dim strSQL As String Dim SpecificRecord As Long, i As Long, NumOfRecords As Long If IsEmpty(الاختيار_الأخير) Then ' السطر التالي ضع فيه عبارة SQL للحقل المطلوب استخراج بياناته ' لاحظ أن خاصية فريد قد جعلت الى نعم اثناء تصميم الاستعلام strSQL = "SELECT DISTINCT [اسم الجدول].[اسم الحقل] FROM [اسم الجدول];" Set MyDB = CurrentDb() Set MyRS = MyDB.OpenRecordset(strSQL, dbOpenDynaset) Else ' الحقل الموجود في السطر التالي هو الحقل الذي نستخرج منه البيانات بدون تكرار ' أزل الفاصلة العلوية إذا كانت بيانات الحقل رقمية MyRS.Filter = "[اسم الحقل] <>'" & الاختيار_الأخير & "'" Set MyRS = MyRS.OpenRecordset(dbOpenDynaset) End If On Error GoTo NoRecords MyRS.MoveLast NumOfRecords = MyRS.RecordCount SpecificRecord = Int(NumOfRecords * Rnd) If SpecificRecord = NumOfRecords Then SpecificRecord = SpecificRecord - 1 End If MyRS.MoveFirst For i = 1 To SpecificRecord MyRS.MoveNext Next i FindRandom2 = MyRS(Fieldname) الاختيار_الأخير = FindRandom2 Exit Function NoRecords: If Err = 3021 Then MsgBox "There Are No Records In The Dynaset", 16, "Error" Else MsgBox "Error - " & Err & Chr$(13) & Chr$(10) & Error, _ 16, "Error" End If FindRandom2 = "لا يوجد سجلات" ' السطر التالي لجعل الكود يبدأ من جديد بعد ظهور الرسائل بعدم وجود سجلات الاختيار_الأخير = Empty Exit Function End Function -------------------------------------------------------------------------------- 3- مرر لها اسم الجدول واسم الحقل مع ملاحظة أن اسم الحقل يجب أن يطابق اسم الحقل في عبارة SQL ف أول الدالة واسم الحقل في سطر تطبيق الفلتر . وللجميع التحية **************************** مع التحية والشكر لأبو حمود / أشرف خليل

ضع الحدث عند الخروج لمربع النص المطلوب تعبئة بياناته If IsNull(Me![اسم مربع النص على النموذج]) Then MsgBox "هناك حقل فارغ يجب إستكمال البيانات", vbInformation + vbMsgBoxRight, "بيانات ناقصة" Me.[اسم مربع النص على النموذج].SetFocus DoCmd.CancelEvent End If أشرف خليل

جرب هذا الملف : يقوم بالتفعيل وعدم التفعيل : أشرف خليل ape2000.zip

هذه ايضا الدلة بشكل ولكن بصيغة Dll ومضغوطة . أشرف خليل XceedZip.zip

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

ضع الكود التالى عند حدث عند التركيز للقائمة المنسدلة SendKeys "{ f4 } ", False أشرف خليل

المشكلة تكمن فى ملفات الوندوز وقد تضطر إلى عمل فورمات للجهاز . والله يعينك أشرف خليل

مرفق مثال لنموذج فاتورة يتكون من نموذج F1 وآخر فرعي F2 عند ادخال بيانات الفاتورة وبعد الانتقال الى النموذج F2 وعند حقل رقم الصنف قم بالضغط على زرF9 سيظهر نموذج يوضح رقم الصنف واسمه وسعر بيعه ورصيده . لادخال الصنف فى الفاتورة اضغط F9 مرة أخرى . المشكلة هنا : النموذج الفرعي ( F2 ) لا يقبل أصناف أخرى .وطبعا أي فاتورة ممكن تحتوى على أكثر من صنف . كانت هناك طريقة قديمة وشغالة وهي قم باستبدال النموذج F2_11 بدلا من النموذج F2 واربطه مع النموذج F1 ستجد أن الفاتورة تقبل أكثر من صنف . لعل المطلوب يكون واضح . بالمناسبة فكرة F9 مقتبسه من أفكار خبيرنا أبو هادي . أشرف خليل F9.rar

لجع التاريخ يكون على شكل 11/12/2003 فى صفحة تنسيق اختار بند التنسيق لحقل التاريخ لديك وضع فيه التنسيق التالى yyyy/mm/dd أشرف خليل

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

مثال لأبو هاني _________.zip

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

شكرا أبو هادي ولكن وجدت الرسالة التالية : undefined function"weekday name"in erpression وشكرا أشرف خليل

مثال جميل بارك الله فيك أشرف خليل

أشرف خليل ، شكرا لخبيرنا واستاذنا . أبو هادي

غير فى العلاقات بين الجداول . أشرف خليل