مصلح الحريصي

طيب يا ابو صفاء جعل أيامك كلها صفاء في صفاء لا علاقة له بالفرز عموماً لا يهمك هذا المثال بعد التعديل نفس المكتوب بالأعلى ولكن لا أعلم ما المشكلة لديك seethis.rar

هذارائع بالفعل أهلاً بك ابن مسقط دائماً تأتينا بالجديد المفيد بارك الله فيك هذا الطريقة وجدتها في الفيجول بيسك وحاولت أطبقها على أكسيس ولكن لم أتمكن

ضع الكود التالي على حدث زر الفرز If Me.FS.Caption = "فرز تنازلي" Then DoCmd.GoToControl "Rv_No" DoCmd.RunCommand acCmdSortAscending Me.FS.Caption = " فرز تصاعدي" Else Me.FS.Caption = " فرز تنازلي" DoCmd.GoToControl "Rv_No" DoCmd.RunCommand acCmdSortDescending End If مع ملاحظة أنه لابد من نقل التركيز أولاً إلى مربع النص المسمى ( Rv_No ) وإذا أردت أن يكون مؤمن فأجعل تمكين = نعم و مؤمن = نعم وأن واجهتك صعوبة أخبرنا.

يوجد خيار خاص بكل قاعدة البيانات وهو من ( أدوات_ خيارات_ خيارات متقدمة_ وضع الفتح الإفتراضي) هناك خيارات ( مشترك _ خاص ) ومعنى خاص إذا كانت قاعدة البيانات مفتوحة لا يمكن أن يفتحها مستخدم أخر إلا بعد إغلاق المستخدم الأول لها. ومشترك يسمح لعدة مستخدمين من استخدام قاعدة البيانات في آن واحد وإذا أردت تغيير هذا الخيارات بواسطة الكود فهي كالتالي : كود عدم مشارك الأخرين في قاعدة البيانات بعد الفتح SetOption "Default Open Mode for Databases", 0 كود السماح الأخرين بالمشارك في قاعدة البيانات بعد الفتح SetOption "Default Open Mode for Databases", 1 ومن الأفضل أن تضع خيارين على نموذج وتمنح صلاحيات لأحد المستخدمين بحيث يمكنه الدخول على ذلك النموذج وتحديد خيار المشركة أو الحصر

شكراً لك على الدعاء أخي فهد

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

هذا مثال على تغيير شكل زر الفأرة بأشكال مختلفة جربوه ربما تستفيدوا منه كيف تجعل مؤشر الفأرة بأشكال جميلة.rar

أنا من الناس الذين لا يحبون أو يعتنون بتنميق برامجهم ( الديزاين ) بل أركز على أن ينفذ البرنامج المهام الأساسية التي أنشيء من أجلها وعلى أكمل وجه حسب استطاعتي ولا يهمني الديكور ولكن المستخدمين يجبروني أحياناً على تنميق الواجهات وكان من ظمنها واجهة الاستخدام ولذلك خطرت ببالي فكرة إعطاء المستخدم إمكانية تغيير خلفية برنامجه كما هو في الويندوز بالنسبة لسطح المكتب فقمت بإعداد هذا المثال وهو كالتالي: 1. يمكن أن ترفق الصور التي تريد أن يختار منها المستخدم كخلفية للتطبيق في مجلد البرنامج. 2. يمكن تحديد صورة أخرى غير الموجودة في ملف البرنامج أي من أي مكان في الجهاز الذي يعمل عليه المستخدم. 3. يتم حفظ الصورة المختارة في جدول بحيث كل ما فتح البرنامج يتم استدعاء تلك الصورة ما لم يغيرها المستخدم. 4. في حال نقل البرنامج إلى جهاز أخر لا يوجد به صورة بنفس الاسم المحفوظ في الجدول تظهر خلفية البرنامج بنفس اللون الطبيعي للنموذج الواجهة. 5. يمكن للمستخدم مسح الخلفية بحيث تكون خلفية البرنامج بدون صورة. لقد أحببت أن أعرض هذا المثال وقد لا يهم الكثير أو يجدوا فيه الفائدة ولكن ربما يستفيد منه البعض الأخر. MyDataBase.rar

الله يسلمك أخي الباشق1 بخير ولله الحمد إذا فهمت شيء من " أخي الأمر سهل جداً أضفه كذلك " فأنا فهمت شيء من " اخواني كيف اضيف مثل " معذرة كان ردي على قد السؤال لقد جلست أفكر في كلمة كلمة" مثل " أكثر من ساعة ولم أفهم شيء

أخي الأمر سهل جداً أضفه كذلك

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

أضف كود التالي: On Error Resume Next DoCmd.GoToRecord , , acNext If Me.NewRecord Then Me.TimerInterval = 0 End If وجرب النتيجة لأنني لم أجربه فإذا لم يكن ما تريد أخبرنا لنقوم بالتعديل اللازم

السلام عليكم ورحمة الله وبركاته لدي نموذج عليه مربع نص اسمه ( Txt1 ) وزر أمر كتبت في حدث عند النقر لزر الأمر الكود التالي : Me.Txt1 = Int((10 * Rnd) + 1) المشكلة أن الأرقام تتكرر . الســــــــــــــــــــــؤال : ما هو الكود الذي يمنع تكرار الرقم حتى تنتهي الأرقام الواقعة بين ( 1 ) و ( 10 ) ثم تظهر رسالة بأنه سيتم تكرار الأرقام من جديد ؟ يا شباب تعبت وأنا أبحث في التعليمات وأحاول دون أي فائدة تذكر . بالنسبة لمثال الأخ / ابو حمود والأخ / مهند في على السجلات ومثالي بدون سجلات ولم أتمكن من استخلاص فكرت عدم التكرار المثالين.

الأخ المتكرث إذا فهمت ما تريد بالضبط فالطريقة كما يلي: 1. في حدث " عند عداد الوقت " للنموذج الرئيسي نضع الكود التالي : On Error Resume Next If Me.NewRecord Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If 2. وفي حدث " الفاصل الزمني لعداد الوقت " نضع القيمة صفر ( 0 ) 3. نضيف زرين على النموذج الأول باسم cmdStart وفي حدث " عند النقر " نكتب الكود التالي : Me.TimerInterval = 3000 اسندنا القيمة 3000 إلى المؤقت بمعنى 3 ثواني 4. أضفنا زر ثاني اسمه cmdStop وفي حدث " عند النقر " نكتب الكود التالي : Me.TimerInterval = 0 اسندنا القيمة صفر إلى المؤقت بمعنى 3 ثواني الشرح : في الكود الأول قمنا بعملية إختبار للسجلات هل هو سجل جديد إذا كان جواب الشرط نعم True عند إذن نعود إلى أول سجل وإذا كان جواب الشرط لا False نقوم بالتنقل بين السجلات سجل تلو الأخر حتى نصل إلى سجل جديد. وظيفة الزرين الأول عند الضغط عليه تبدأ عملية التنقل بين السجلات بشكل آلي إلى ما لا نهاية . الثاني عند النقر عليه يتم وقف عملية التنقل بين السجلات وتتم عملية التنقل كالمعتاد . والمثال المرفق يوضح ذلك . أخبرنا إذا كان هذا ما تريد وإن كان خلاف ذلك أخبرنا أيضاً ولكن بتفصيل أكثر ولا تدع سؤالك حتى نصل إلى الطريقة التي تريدها بالضبط فهناك طرق كثيرة كل ما عليك إخبارنا بالنتيجة. db1.rar

بعد إذن الأخ سهل أذهب لقائمة أدوات ثم خيارات ثم لوحة المفاتيح ثم سلوك إدخال الحقول وأختر الخيار الثاني " الإنتقال إلى بداية الحقل " أو الثالث " الإنتقال إلى نهاية الحقل " حسب رغبتك فالخيار الأول يظلل الحقل بالكامل.