مهند عبادي

كذلك ذهبت ردودي !!

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

السلام عليكم لدي مثال قد جملته من أين لا أذكرعن الأزرار في أكسس ولكنه رائع بمعنى الكلمة أرجو أن يستفيد منه الأخوة : createcolorcmd.rar

السلام عليكم لقد قمت بعمل صنف اسمه CTextColors ليقوم بهذا العمل .. وهكذا تم الاكتفاء بسطرين فقط في النموذج هما : Dim C As New CTextColors C.SetForm Me وهذا هو المثال : Muhannad.rar

يمكنك فعل ذلك .. بواسطة حلقة Do .. Loop هذا مثال : Dim D as Object Set D = CurrentDb.OpenRecordset("Students") With D Do while not(.EOF) .Edit .StudentDegree = .StudentDegree+1 .Update .MoveNext Loop End With Set D = Nothing

أشكرك أخي محمد طاهر .. الآن أستطيع أن أعمل اختصارات توضع في مجلد البرنامج بعد تنزيله بالـ Setup تعطي خيارات فتح نماذج معينة بحد ذاتها أو طباعة التقارير التي أريدها والأهم من هذا .. أنني في البرامج التي أعملها في VB سأستغني عن الـ Cristal Report

لقد جربت أ، أعمل ماكرو يفتح نموذج معين وأسميت هذا الماكرو m وكتبت السطر التالي : E:\Test.mdb /x m فتم فتح قاعدة البيانات ولم يتم تنفيذ الماكرو ؟!! ما المشكلة ؟؟

مشكور أخي محمد طاهر .. هذا الـSub على ما أرى لطباعة تقرير موجود في قاعدة بيانات أخرى .. وهو مهم جداً والذي أبحث عنه شيء آخر وهو طباعة التقرير بدون أن أفتح أي قاعدة بيانات من الأساس .. يعني من سطح المكتب أكتب في سطر التعليمات صيغة ما لطباعة التقرير الذي أريده تحياتي لك

السلام عليكم من المعروف أنه في Word يمكن طباعة الملف بدون فتحه ... سؤالي : هل يمكن طباعة تقرير معين في ملف أكسس دون فتحه ؟؟

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

عليك تعديل الشرط في التنسيق الشرطي ..

الحل الأسهل هو استخدام خاصية "لغة لوحة المفاتيح" ونضعها عربي أو English حسب الرغبة

هذا مثال ، وقد اعتمدت فيه على التنسيق الشرطي ___________.rar

أخي سامي لعلك تقصد استخدام (DSum)

السلام عليك هنالك الكثير من الأسئلة حول استخدام الاستعلامات وخصوصاً استعلامات التحديث .. وهي بالحقيقة تحتاج إلى بعض الخبرة في التركيب للحالات المختلفة حسب نوع الحقل المراد تحديثه ولهذا فلقد عملت محاولة لمساعدة من يرغب بعمل استعلام تحديث وبسرعة وبدون أي مشقة وهذا الاستعلام اسمه Val2Tbl وأسلوب استخدامه كما يلي : أولاً نضعه في وحدة نمطية ونقوم بحفظها ثانياً من خلال الفورم الذي نريده نستخدمه بهذا الصيغة : Val2Tbl(Table Name, Field Name, Value) هو تابع يعود بقيمة True إذا تم تنفيذ الاستعلام بدون مشاكل أو False إذا لم يتم تنفيذ الاستعلام وميزته أن المستخدم يضع اسم الجدول واسم الحقل والقيمة التي يريدها مهما كان نوعها ( تاريخ - نص - رقم - منطقية) والتابع يتولى مهمة تركيب الاستعلام وتنفيذه وهذا مثال عن أسلوب استخدامه Val2Tbl.rar

لعلك أخي noursh تقصدني أنا على أي حال أخوتي الأكارم أود إعلامكم أن تصميم أدوات ActiveX ليس بالصعوبة التي تظنونها أبداً .. وهي بكل بساطة كتصميم أي برنامج VB أو ربما بأسلوب أبسط وإن هنالك من يصمم برامج VB بسيطة والمطلوب منها شيء بسيط ومحدد ومفيد وهنالك أيضاً من يصمم برامج VB غاية في التعقيد للتحكم بالهاردوير مثلاً ... الخ إذا برمجة أدوات ActiveX سهلة من حيث الأسلوب يمكن لأي شخص يعرف VB أن يعملها .. أما ما سوف تفعله تلك الأدوات فهذا شيء آخر يعتمد على مدى مهارة المبرمج

الأخ مصلح .. إن ملفك لا يفتح معي .. الرجاء إعادة إرفاقه

بإمكانك أضافة إلى شرط التحقق من النوع قبول أنواع أخرى مثل ListBox أو ComboBox .. لا مشكلة ! و كنت قد بدأت محاولة تجريب أسلوب جديد يعتمد على Class .. ولكنني أوقفت المحاولة بسبب انتباهي لآخر أسلوب الذي أفضله والذي هو بدون أي كود

أخي أبو هادي الأسلوب الذي تعتمده أنت يعتمد على حفظ اسم عنصر التحكم السابق ليتم تظليله فقط بالرمادي وهذا ممكن بغير أسلوب وذلك بالاعتماد على خاصية screen.PreviousControl ولكن استخدام هذه الطريقة يؤدي إلى بقاء مربع النص دون تظليل بالرمادي في حال الضغط المستمر على زر Tab مثلاً ثم إفلاته فوق مربع نص بعيد ! علماً أن الأسلوب الذي اتبعته أنا في مثالي وقد غيرته عن الـ Sub في المشاركة الأولى لي لا يعتمد التلوين المستمر لكل مكونات النموذج بل يلون بعد شرط If لفحص اللون إذا كان مغايراً على أي حال مشاركتي السابقة تحتوي الحل الأسهل برأيي

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

بالنسبة لمشكلة الماوس وجدت الحل إذا وضعت هذا السطر في حدث Timer وعينت Form.TimerInterval إلى 300 تحل المشكلة كما يلي : Private Sub Form_Timer() SetTextColors End Sub وأزل أي سطر برمجة آخر من الفورم بما يتعلق بهذا الSub

هذا مثال وقد عدلت الكود قليلاً فيه Muhannad.rar

هذا هو التابع الذي تريده : Public Sub SetTextColors(F As Form, Optional AFC As OLE_COLOR = vbBlack, Optional ABC As OLE_COLOR = vbWhite , Optional DFC As OLE_COLOR = vbWhite, Optional DBC As OLE_COLOR = 12632256) Dim T As Object For Each T In F If T.ControlType = acTextBox Then If T.Name = F.ActiveControl.Name Then T.BackColor = ABC T.ForeColor = AFC Else T.BackColor = DBC T.ForeColor = DFC End If End If Next End Sub أرجو أن يكون وافياً بالغرض

سأحاول في هذا الموضوع إن شاء الله نصل إلى النتيجة

السلام عليكم هذا الـ SUB قمت ببرمجته البارحة أسلوب استخدامه : اعمل وحدة نمطية جديدة والصق فيها الشفرة ولاستخدامه استخدم الشفرة التالية (على سبيل المثال) FormResize me , 1.2 أضعه هنا لكي يستفيد منه الأخوة ولكي تعطوني ملاحظاتكم عليه Public Sub FormResize(ByRef F As Form, N As Single, Optional RForm As Boolean = True) On Error Resume Next Dim C As Control, S1 As String, S2 As String, k As String Dim R As Integer, I1 As Integer, I2 As Integer, g As Integer With F If RForm Then .InsideHeight = .InsideHeight * N .InsideWidth = .InsideWidth * N End If .Section(0).Height = .Section(0).Height * N .Section(1).Height = .Section(1).Height * N .Section(2).Height = .Section(2).Height * N End With For Each C In F C.Left = C.Left * N C.Top = C.Top * N C.Width = C.Width * N C.Height = C.Height * N C.FontSize = C.FontSize * N Select Case C.ControlType Case 112 FormResize C.Form, N, False Case 110, 111 g = C.ColumnCount - 1 S1 = C.ColumnWidths I1 = 1 S2 = "" For R = 0 To g I2 = InStr(I1, S1, ";") If I2 = 0 Then I2 = Len(S1) + 1 k = Str(Int(Val(Mid(S1, I1, I2 - I1)) * N)) & ";" S2 = S2 + k I1 = I2 + 1 Next C.ColumnWidths = S2 End Select Next End Sub