مصلح الحريصي

طيب يا ابو صفاء جعل أيامك كلها صفاء في صفاء لا علاقة له بالفرز عموماً لا يهمك هذا المثال بعد التعديل نفس المكتوب بالأعلى ولكن لا أعلم ما المشكلة لديك 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

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

الأخ كمال بالنسبة لسؤالك هل بامكاني استخدام ADO في الاكسس ؟ الجواب نعم وهي من الأدواة القوية جداً وهي أداة إتصال بقواعد البيانات ويمكنك الإتصال من خلالها بقواعد بيانات أوركال و إس كيو إل سيرفر ( Oracle & SQL Server ) وقواعد أخرى كما يمكنك الإتصال بقاعدة بيانات أكسيس غير التي تعمل عليها والتعامل مع بياناتها من حيث الحذف والإضافة والتعديل واستعراض البيانات الطريقة : لمحركات Jet أي قواعد أكسيس هي : 1. أولاً يجب ضبط المكتبة المسماة : Microsoft ActiveX Data Objects2.7 Library وقد تختلف في رقم الإصدار تأكد منها لديك. بالنسبة للمثال فهذه الطريقة : 1. الجدول اسمه ( Tbl1 ) 2. الحقول في الجدول هي (FirstName ) و (LastName ) 3. مربعات النصوص هي ( Txt FirstName ) و (LastName ) 4. في حدث عند النقر للزر نكتب الكود التالي : Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "Tbl1", CurrentProject.Connection, _ adOpenDynamic, adCmdTable rst.AddNew rst!FirstName = txtFirstName rst!LastName = txtLastName rst.Update rst.Close طبعاً النموذج بدون مصدر نظيف الكود التالي لمسح البيانات من مربعي النص بعد حفظ المعلومات في الجدول لتهيئتهما لإضافة بيانات جديدة Me.txtFirstName = "" Me.txtLastName = "" أيضاً الكود التالي الإضافة بواسطة لغة Sql ولكن يجب ضبط مكتبة DAO Dim db As Database, rsCust As Recordset, strsql As String Set db = CurrentDb strsql = "select * from tbl1" Set rsCust = db.OpenRecordset(strsql, DB_OPEN_DYNASET) strsql = "INSERT INTO tbl1(FirstName,LastName)Values ('" & Me!txtFirstName & "','" & (Me!txtLastName) & "');" db.Execute strsql وبإمكانك إضافة نموذج فرعي في النموذج الذي تدخل البيانات عن طريقه العرض الإفتراضية له " ورقة بيانات" وتستخدم أمر Requery أو Refresh لكي يعرض السجل الذي تم حفظه0 بالنسبة لسؤالك : هل يوجد اداة اظهر فيها البيانات للمستخدم(كجدول مثلاً) في الاكسس الجواب : هناك النماذج التي يتم تغيير طريقة العرض فيها من نموذج إلى ورقة بيانات أو نموذج مستمر وكذلك يوجد MSFlexGrid ولكنها تحتاج إلى أوامر برمجية لملؤها بالبيانات ولكن الأسهل لك هو : النماذج التي يتم تغيير طريقة العرض فيها من نموذج إلى ورقة بيانات أو نموذج مستمر. أرجو أن أكون قد أفدتك

لحد الآن لم أفهم أي شيء عن الموضوع عموماً بالتوفيق وهذا دليل أنك تتعلم فعلاً وهذا هو التعلم الذاتي وهو الأفيد فكلما حاولت أن تعرف الخطأ وتصححه سترسخ المعلومة في ذهنك . تمنياتي لك بالتوفيق والنجاح دائماً (y)

الرجاء التوضيح أكثر لأنني لم أفهم ما هو المطلوب

أعرف أحد الشباب ربط جرس باب المنزل بالحاسوب بحيث إذا ضغط أحد جرس الباب يسمع صوت الجرس في الحاسوب ويتم الضغط على أحد مفاتيح لوحة المفاتيح فيفتح الباب. في البداية قام بعمل بعض التوصيلات من الجرس إلى الحاسب بواسطة أسلاك فأحترق الجهاز وبعد سؤال متخصص إلكترونيات أفاد بأنه لابد من وجود قطعة تقوم بتحويل الجهد الكهربي أثناء مرورها إلى جهاز الحاسوب إلى قوة أقل حتى لا يحترق الجهاز وعند عودت الجهد الكهربي إلى الباب يتم رفع الجهد الكهربي إلى القوة السابقة حتى يتم فتح زر الباب وقد نجحت تلك الفكرة طبعاً بتدخل من خبير إلكترونيات . الشاهد في الموضوع أن ذلك ممكناً عموماً سأسئل ذلك الشخص عن الطريقة ونقوم بتعديل ما يلزم تعديله. طبعاً هذا ليس وعداً بحل الموضوع ولكنني سأحاول بإذن الله. <_<

استخدم لغة sql أو DAO أو ADO وإذا لم تستطع أشرح لنا اسماء الجداول والحقول ونوع البيانات وسماء مربعات النصوص وسوف نكتب لك الشفرة وتقوم بتطبيقها ولكن بشرط إذا كتبنا الشفرة ما تقوم بنسخها ولصقها ولكن تقوم بكتابة الشفرة في البرنامج لكي تستفيد

للأسف الرابط لا يعمل

إنشيء مربع تحرير وسرد وسمه مثلاً cbo1 وأضف إليه تسمية الألوان التي تريدها وأضف مربع النص وليكن مثلاً txt1 ثم في حدث " عند التغيير " لمربع التحرير أكتب الكود التالي : Select Case cbo1.ListIndex Case 0 Me.txt1.BackColor = QBColor(0) Me.txt1.ForeColor = QBColor(15) Case 1 Me.txt1.BackColor = QBColor(1) Me.txt1.ForeColor = QBColor(15) Case 2 Me.txt1.BackColor = QBColor(2) Me.txt1.ForeColor = QBColor(1) Case 3 Me.txt1.BackColor = QBColor(3) Me.txt1.ForeColor = QBColor(15) Case 4 Me.txt1.BackColor = QBColor(4) Me.txt1.ForeColor = QBColor(15) Case 5 Me.txt1.BackColor = QBColor(5) Me.txt1.ForeColor = QBColor(1) Case 6 Me.txt1.BackColor = QBColor(6) Me.txt1.ForeColor = QBColor(15) Case 7 Me.txt1.BackColor = QBColor(7) Me.txt1.ForeColor = QBColor(15) Case 8 Me.txt1.BackColor = QBColor(8) Me.txt1.ForeColor = QBColor(15) Case 9 Me.txt1.BackColor = QBColor(9) Me.txt1.ForeColor = QBColor(1) Case 10 Me.txt1.BackColor = QBColor(10) Me.txt1.ForeColor = QBColor(1) Case 11 Me.txt1.BackColor = QBColor(11) Me.txt1.ForeColor = QBColor(1) Case 12 Me.txt1.BackColor = QBColor(12) Me.txt1.ForeColor = QBColor(1) Case 13 Me.txt1.BackColor = QBColor(13) Me.txt1.ForeColor = QBColor(1) Case 14 Me.txt1.BackColor = QBColor(14) Me.txt1.ForeColor = QBColor(1) Case 15 Me.txt1.BackColor = QBColor(15) Me.txt1.ForeColor = QBColor(1) End Select وسوف أعطيك أرقام الألوان حتى تكتبها في الشفرة 0 _ اسود 1_ ازرق 2_ أخضر 3_فوشيا 4_ أحمر 5_ برتقالي 6_ أصفر 7_ أبيض 8_ رمادي 9_ أزرق فاتح 10_ أخضر فاتح 11_ فوشيا فاتح 12_ أحمر فاتح 13_ برتقالي فاتح 14_ أصفر فاتح 15_ أبيض لامع لاحظ بأن السطر التالي : Me.txt1.BackColor = QBColor(15) خاص برقم لون الخلفية لمربع النص والسطر التالي : Me.txt1.ForeColor = QBColor(1) خاص برقم لون الخط في مربع النص وإذا أردة أن يثبت اللون لمربع النص حتى يغيره المستخدم أجعل مصدر مربع التحرير والسرد جدول خاص بالألوان وضع الكود أيضاً في حدث عند " التحميل " للنموذج "

أعمل كود يقوم بإختبار العمليات للعميل بموجب رقم العميل ويقوم ويحسب عدد العمليات التي أجراها هذا العميل بواسطة الدالة ( Dcount ) مقرونة برقم العميل وبتم الإختبار عند إجراء أي عملية من قبل العميل فكل ما تجاوز عشر عمليات يتم حذف أول عملية بواسطة الدالة ( DFirst ) مشروطة برقم العميل لكي تطمئن بأن البرنامج لا يحذف أي عمليات أخرى. ما بالنسبة مشكلة السحب اليومي أن كنت تريد الإحتفاظ بسحوبات اليوم ولو تجاوزت عشر عمليات اضف لما سبق شرط أخر وهو التاريخ حتى لا يتم حذف أي عملية تمت من قبل العميل اليوم.

الأخ جمال حياك الله

الأخ جمال معذرة عن تأخري ولكن لا تستطيع أن تعطي شيء لا تملكه. للأسف لم أصل إلى الطريقة التي أريدها ولكن بالنسبة لمثالك الذي أرفقته فلست في حاجة إلى ثلاثة استعلامات وقد أختصرت الطريقة استعلام واحد وقد جعلت مصدر النموذج شفرة بدلاً من الإستعلام. أعرض النموذج في وضع التصميم وأنظر لحدث " عند التحميل " فقد نشخة لغة SQL وجعلتها مصدراً للنموذج ولا يمكن الإطلاع عليها عند تحويل قاعدة البيانات إلى Mde . عموماً لا زلت في البحث عن الطريقة التي أرى أنها أفضل test.rar