ابوحمود

الأخ الغريب هناك حل بسيط وهو أن يبحث عن قيمه معينة في حقل فإذا وجدها يتأكد من القيمة الأخرى في الحقل أو الحقول الآخرى فإذا لم تكن تطابق يواصل البحث ، مارأيك ؟ ولك تحياتي

الأخ محسن اليك المثال : http://mypage.ayna.com/h_h123/Methal.zip ولك تحياتي

إنشاء كائنات QueryDefs ستحتاج كثيراً إلى إنشاء استعلامات جديدة في إجراء VBA ، ويتم إنشاء الاستعلام الجديد على أنه كائن QueryDef ، ويكون بناء جملة طريقة CreatQueryDef لكائن Database : Set qdf = database.CreatQueryDef(Name, SQLText) حيث أن : qdf : هو متغير كائن …

الأخ مسافر حياك الله والحمد لله علىالسلامة . طولت الغيبات . ولك تحياتي

طريقة بسيطة بدون أكواد ومشاكل سوى سطر واحد : [اسم القائمة].Dropdown الآن تنقل بالسهم العلوي والسفلي وإذا أردت اختيار بند اضغط Enter . وللجميع التحية

الأخ ابو شروق هل تظهر لك رسالة خطأ فيها زر Debug اضغط عليه واكتب السطر الذي يظهر عليه اللون الأصفر . علما أن السطر الذي وضعته في الحدث ناقص قوس والصحيح : Dim nReturnValue As Integer nReturnValue = FlashWindow(Me.hWnd, True) ملاحظة هامة نسيت أن أذكرها يجب أن لا…

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

انظر الرابط فقد تجد فيه ما يفيدك : http://arabteam.nicmatic.com/vb/showthread...97&pagenumber=1 ولك تحياتي

الأخ محمد أشكرك على مشاعرك الطيبة وحقيقة أتمنى تعلم VB ولكن لم يتح لي الوقت الكافي وإن كان لدي إلمام بسيط بها . لك تحياتي

الأخ فوزي أبسط طريقة لفتح تقرير دون معاينته وضع عملية تكرارية للطباعة مثال : Dim I As Byte عدد_النسخ = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ") If IsNumeric(عدد_النسخ) Then For I = I To عدد_النسخ DoCmd.OpenReport "اسم التقرير" Next I Else MsgB…

استخدام المفاتيح للتنقل بين السجلات السجل الأول : Shift+Home السجل الأخير :Shift+End السجل السابق : Shift+Page Down السجل التالي : Shift+Page Up سجل جديد : Shift+Insert للنموذج : يعني يعمل ولا علاقة له بوجود التركيز في حقل معين ، في خصائص النموذج صفحة التبويب …

لحفظ الأسماء المبحوث عنها حتى لاتكرر كتابتها عند الاحتياج إليها مرة أخرى وهذه الطريقة تشبه طريقة حفظ البحث في مربع حوار بحث الخاص بالأكسس Ctrl+f : حول مربع النص لقائمة منسدلة ونوع مصدر الصف لها قائمة القيم وإلتزام بالقائمة إلى لا ثم ضع في آخر حدث اكتب وابحث ال…

ضع الدالة التالية في أعلى الوحدة النمطية الخاصة بالنموذج : Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long وفي حدث عن عداد الوقت ضع : Dim nReturnValue As Integer nReturnValue = FlashWindow(Me.hWnd, True) ال…

الأخ الغريب ملاحظة جيدة ، ولكن هذه الملاحظة تقع في حالة الطريقة التي ذكرتها دون التي ذكرها الأخ أشرف . تعديل الكود : If IsNull([اسم حقل التاريخ]) And KeyAscii = 9 Then [اسم حقل التاريخ] = Date علما أن إدراج التاريخ لا يحدث عند التركيز وإنما يحدث عند نقر مفتاح …

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

الأخوه هذه بعض القرارات التنظيمية للمجلس التأسيسي للصندوق : 1- تحديد أقل مبلغ للاشتراك الشهري بـ 300 ريال . 2- تحديد 1000 ريال رسم اشتراك عضوية . 3- أقل مبلغ لتسديد قرض 400 ريال . 4- يحق للعضو اقتراض ثلاثة أضعاف ما دفعه من اشتراكات شهرية 5- طريقة التسديد للمقت…

الأخوة الأعضاء لقد وجدت طريقة لتلوين السجلات في نموذج ذو نماذج مستمرة وقد وضعت نموذج آخر مع طريقة لتغيير الألوان المثال يعمل على أكسس 2000 : http://mypage.ayna.com/h_h123/color.zip وللجميع التحية

الأخ ابن مسقط بعد إذن الأخ ابو هادي : إن كنت تقصد الدالة : Function IsLoaded(ByVal strFormName As String) As Integer ' Returns True if the specified form is open in Form view or Datasheet view. Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSy…

الأخ ابو محمد إن كفتك طريقة الأخ أشرف وهي تغنيك من الضغط وغيره لأنك كلما أدرجت سجل جديد تجد التاريخ جاهز في الحقل أما بالطريقة التي تطلبها فضع في حدث عند الضغط على مفتاح لحقل التاريخ التالي : If KeyAscii = 9 Then [اسم حقل التاريخ] = Date لإدراج التاريخ اضغط TA…

الأخوان غريبه يوم أزلته من الصفحة طلبتوه !! ولكن تستاهلون من يعيده مرة أخرى خذا هو الرابط وتجدونه شغال إن شاء الله : http://mypage.ayna.com/h_h123/Hid.zip وللجميع التحية