التقني

اللهم صل وسلم وبارك وأنعم على سيدنا محمدوعلى آله الأطهار الأتقياء وعلى أصحابه الكرام البررة يقول الرسول صلى الله عليه وسلم (( من صلى علي صلاة صلى الله بها عليه عشرا)) ويقول أيضا (( البخيل من إذا ذكرت عنده ولم يصلي علي))

السلام عليكم ورحمة الله كل الشكر للأخ امير عاطف على هذا الكود (وبالطبع الشكر موصول لصاحبه الأصلي) بعد اذنك أخي العزيز .. بالنسبة للكود فهو يعمل بكفاءة لكن بعد أن تعدى عدد الأحرف أكثر من ثمانية وبعد الانتقال الى الحقل الآخر تظهر الرسالة وينتقل المؤشر دون العودة الى الحقل . الذي عملته ( بفضل الله ) هو : وضعت الكود في حدث عند التغير ألغيت السطر الثالث : SendKeys "{BS}" وأضفت بدلا منه التالي : Me.basword.Value = " " Private Sub basword_Change() If Len(Me.basword.Text) > 8 Then Beep MsgBox "لا يسمح بأكثر من ثمانية أحرف فقط", , "ممنوع" Me.basword.Value = "" End If End Sub أرجو أن تعم الفائدة للجميع

طيب كيف يمكنني تغيير حجم الورق لقد حاولت فيما سبق أن أغير في حجم الورقة فأخترت طول 50 سم لكن الطابعة تتوقف طباعتها عند مقاس 30 سم وتتعطل الطباعة الذي أعنيه أن اعداد الصفحة فيه قياسات كبيرة لكن الطابعة لا تقبل الا أقل من ذلك فكرة أخرى هل يمكن تطبيق برنامج تشغيل الطابعات HP والتي تستخدم ورق A3 على طابعات ذات ورق A4 كل الشكر لك أخي على تواصلك

وعليكم السلام ورحمة الله حياك الله أخي العزيز بالنسبة لتحويل الحروف الانجليزي الى كبيرة فيمكن استخدام هذا الكود : ضع هذا الكود في الجنرال General لمحرر الفيجوال البيسك : Public Sub ConvertToUpper() 'Test if control contains text If IsNull(Screen.ActiveControl) = False Then 'convert text to Upper Case Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase) End If End Sub ثم ضع هذا الكود لحدث بعد التحديث لمربع النص وليكن اسمه Name والذي سيتم فيه التحويل : Private Sub Name_AfterUpdate() 'Convert the text entered to Upper Case ConvertToUpper End Sub هذا الكود من عمل الأخت زهره حفظها الله ورعاها . بالتوفيق

السلام عليكم ورحمة الله أخي العزيزymramadan أرفقت لك هذا المثال (من منتدى أجنبي) ID PageCount StartTime EndTime Time Total Pages Hours Per Hour 001 60 ...... ...... 1 hr 0 min 0 sec 1 60 001 30 ...... ...... 0 hr 30 min 0 sec 0.5 60 002 61 ...... ...... 1 hr 1 min 0 sec 1.0167 60 002 33.5 ...... ...... 0 hr 33 min 30 sec 0.5583 60 003 61 ...... ...... 1 hr 1 min 0 sec 1.0167 60 003 1473.5 ...... ...... 24 hr 33 min 30 sec 24.5583 60 004 3000 ...... ...... 48 hr 53 min 26 sec 48.8906 61.36 ID Page Count Total Time Total Hours Average Pages Per Hour 001 90 1 hr 30 min 0 sec 1.5 60 002 94.5 1 hr 34 min 30 sec 1.575 60 003 1534.5 25 hr 34 min 30 sec 25.575 60 004 3000 48 hr 53 min 26 sec 48.8906 61.36 وهو عبارة عن معدل زمني للقراءة مرتبط بوقت بداية ووقت نهاية ويتم حساب الزمن بإيجاد الفرق بينهما أرجو أن يفيدك وبالتوفيق Average_Pages_per_hour_Access_2000.zip

وعليكم السلام ورحمة الله وبركاته يمكنك ايجاد مجموع أي حقل من خلال الدالة التالية : ضعها في حقل جديد وليكن اسمه مجموع : =sum([الرصيد ]) على إفتراض أن الرصيد هو اسم الحقل الذي به المبالغ على فكرة .. لفظ الجلاله يكتب هكذا ( الله ) وليس الذي كتبته بالتوفيق

السلام عليكم ورحمة الله إخواني الأفاضل هذه طريقة التنقل بين السجلات بإستخدام زري : Shift + أحد الأزرار التالية ( Home / PageUp / PageDown / End ) وبإستخدام كود بسيط مع قاعدة Select Case أرجو أن يفيدكم Keyboard.rar

وعليكم السلام ورحمة الله الآكسس له القدرة على التعامل مع بيانات أكثر من هذا الرقم الذي ذكرته لدينا في العمل سجلات تعدت العشرين الف سجل وبحقول أكثر مما لديك ولا توجد مشاكل .

وهذا برنامج أيضا للأخت زهره ارسال ايميلات عبر الاكسس : http://www.arabteam2000-forum.com/index.ph...topic=56198&hl=

أخي العزيز إليك مشاركة الأخت زهره من منتدى الفريق العربي للبرمجة : http://www.arabteam2000-forum.com/index.ph...topic=63362&hl=

وعليكم السلام ورحمة الله بالنسبة لطريقة إرسال الايميل عبر الآكسس فلا أخفيك سراً أنني لم أخوض في هذا المجال اطلع على هذا الموضوع لعل فيه من المعلومات ما يفيدك : http://www.officena.net/ib/index.php?showt...&hl=ارسال+ايميل البركة في الشباب فهم أخبر مني بهذا المجال

السلام عليكم ورحمة الله إليك أخي العزيز هذا المثال (في المرفقات) فيه استعلام يحسب ساعة الحضور وساعة الانصراف لتكوين عدد ساعات العمل الفعلية في حقل منفرد . حاول التعديل عليه عله يفيدك . أعتقد أن هذا المثال يخص الأخ عبدالمانع ( لأنني وجدت اسمه ضمن الموظفين المتأخرين :d ) بالتوفيق Duration.rar

حلو الكلام (y) لكن الطابعة يأتيها أمر الطباعة من برنامج الطباعة مما يعني أن من ضمن الأوامر حجم الورق الذي تم إختياره سواء كان A4 أو غير ذلك فكيف نوفق بين برنامج الطباعة والتحايل على الطابعة أن الورق طويل ؟؟!

كل الشكر لك عزيزي سأجرب حشر هذا الكود داخل البرنامج :)

وعليكم السلام ورحمة الله من شروط وخواص الكومبو بوكس أن لا يزيد عدد حروفه عن 255 أعتقد أن هذا هو سبب الخطأ لديك أنظر الصورة في المرفقات

وعليك السلام ورحمة الله وبركاته فكرة جيدة لكن بعد التشغيل لا يظهر عندي سوى نموذج به : زر الاغلاق في الأعلى وفي الأسفل عبارة (فتح عده نماذج بداخل النموذج) وبينهما مسافة أعتقد أنها للنماذج الأربع هل المشكلة عندي ؟ عموما تسلم أخي عبدالمانع .

وعليكم السلام ورحمة الله بالنسبة لما طلبت .. ضع في خانة المعايير للحقل الذي توجد به الارقام : "9" Or "6" Or "1" Or "7" وبذا سيتم عرض الحقول المرتبطة بالقيم أعلاه . هذه الطريقة تنفع لفرز الفئة العمرية لأشخاص أو يمكن تعديلها لتشمل سنوات معينة ... الخ وبالتوفيق

وعليكم السلام ورحمة الله حقيقة لست ملما بالآكسس عبر السيرفرات ولكن أعتقد أن هذه المواضيع قد تفيدك : http://www.officena.net/ib/index.php?showt...=7098&hl=server http://www.officena.net/ib/index.php?showtopic=561&hl=server وهذا رابط البح بأكمله : http://www.officena.net/ib/index.php?act=S...highlite=server وبالتوفيق

السلام عليكم ورحمة الله كل الشكر للأخ المهاجر والأخ الطاير الطابعة يتم إدارتها بواسطة برنامج وهذا البرنامج هو الذي ينحكم بالطابعات البلوتر (التي تطبع أوراق المخططات الطويلة ) ، ألا يوجد برنامج يتحكم بطابعتي الليزرية لكي تستمر بالطباعة لكي تغطي الأوراق الطويلة ؟؟

السلام عليكم ورحمة الله بالنسبة للكود الذي أرفقته يعمل على كومبو بوكس واحدMenu ومربع نص واحد Box يمكنك إضافة مربع نص آخر إن شئت ضمن نفس الكود مثال على ذلك : لنفرض أن مربع النص الثاني أسمه BBB بالإضافة الى BOX فيكون لدينا الكودالتالي : Private Sub Menu_BeforeUpdate(Cancel As Integer) Select Case [Menu] Case Is = "Quarterly" Box.Value = 90 BBB.value= 180 Case Is = "Semi annually " Box.Value = 180 BBB.value= 90 End Select End Sub هكذا استطعنا إضافة مربعي نص ولكن إذا أردت ان ترفق كومبوبوكس آخر يمكنك نسخ الكود مع تغيير المسميات

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

السلام عليكم ورحمة الله قاعدة Select Case تفي بالغرض انظر الى الكود أدناه : Private Sub Menu_BeforeUpdate(Cancel As Integer) Select Case [Menu] Case Is = "Quarterly" Box.Value = 90 Case Is = "Semi annually " Box.Value = 180 End Select End Sub Box هي مربع النص الذي تظهر فيه القيم 90 و 180 Menu هي قائمة التحرير والسرد وفيه القيمتين Quarterly و Semi annually والمرفقات فيها مثال على ذلك وبالتوفيق ymramadan.rar

العفو عزيزي بالنسبة لتكرار البيانات إليك هذا الرابط: http://www.officena.net/ib/index.php?showtopic=9210&hl=تكرار وهذا رابط خاص بتكرار البيانات بشكل عام http://www.officena.net/ib/index.php?act=S...%CA%DF%D1%C7%D1 بالتوفيق

أرجو المعذرة أخي العزيز كنت أظن أن الكود سيحل مشكلتك

السلام عليكم ورحمة الله وبركاته اخواني من خلال الوورد هل بإمكاني الطباعة على ورقة أطول من ورقة الـA4 (مثل بانر) علما بأن الطابعة لدي نوعها ليزر 1200HP وتعمل على ورق حجمه A4 فقط هل هناك حركة أو طريقة ما أجعل الطابعة (ومن خلال اعدادات الطابع) أن تطبع بهذا الطول ؟ مع جزيل الشكر