ابوحمود

من البداية صمم جدول تسجل فيه المعلومات غير الثابتة ثم ابني عليه تقرير يحوي مربعات تسمية Lable تحوي النصوص الثابتة بالإضافة إلى الحقول من الجدول السابق والتي تكون في أماكنها المناسبة . وأما الطباعة على أوراق المؤسسة فيلزم منه عمل بعض التجارب على التقرير حتى يظه…

أنشئ نموذج جديد وفي حدث عند عداد الوقت ضع : ' الساعة تساوي 3600000 If عدد_مرات_ظهور_الرسالة = 0 Or _ إظهار_الرسالة = "الأولى" Then إظهار_الرسالة = "الأولى" عدد_مرات_ظهور_الرسالة = عدد_مرات_ظهور_الرسالة + 1 MsgBox "الرسالة الأولى" If عدد_مرات_ظهور_الرسالة = 12 …

ابو غدير اذا كان عندك Winzip اضغط بزر الفأرة الأيمن على الملف واختر : Zip And E-Mail ثم اسم الملف وسيشتغل الأوتولوك اكتب البريد ثم اضغط ارسال . ولك تحياتي

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

لإنشاء ملف نصي وكتابة الوقت فيه : Open "c:FileName.txt" For Append As #1 Print #1, "On: " & CStr(Now) Close #1 عدل فيه ليلبي حاجتك . ولك تحياتي

وعليكم السلام يقولون التجربة خير برهان أنشئ جدول جديد وأنشئ حقل من نوع مذكرة ثم أدرج النص المطلوب واعتقد أنه يمكنه حفظ مائة سطر . وأما الوورد أو في ملف تكست فافتح الوورد واحفظ النص المطلوب فيه كمستند وورد عادي ثم في قاعدة البيانات أنشئ حقل من نوع كائن OLE ثم م…

الأخ ROOF2000 لقد حاولت تشغيل الدالة ولكنها معمولة كخاصية Property وأظن أنها تحتاج الى وحدة نمطية للفئة Class Module وعندما جعلتها دالة عادية : Public Function rooftools53(mycontrol As Control) As String أشتغلت ولكن لم استفد منها سوى إزالة المسافات بين الكلمات…

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

الأخ مصراوي لكن سؤال الأخ كان في الاستعلام يعني كيف يستفيد من الدوال التي ذكرتها في الاستعلام ؟ الأمر الثاني أن الكود : [اسم الحقل المقسوم]/IIf([اسم الحقل المقسوم عليه]=0;1;[اسم الحقل المقسوم عليه]) يعمل في VBA وهو مكون من سطر واحد مع ملاحظة تغيير الفاصلة المن…

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

الأخ 5060 هذا كود يقوم بما طلبت حيث يتغير عرضه بناء على طول النص : في حدث عند الحالي للنموذج ضع الكود التالي : Dim intRet As Integer Dim intHeight As Integer intHeight = Me.txtExtraInfo.Height intRet = CInt(fAutoSizeTextBoxS(Me.txtExtraInfo)) If intRet > 0 The…

في الرابط التالي مثال شبيه بالمطلوب لتقريب الطريقة : http://mypage.ayna.com/h_h123/KashfHisab.zip أي استفسار أو رغبة معينة فأنا مستعد للإجابة . وللجميع التحية

الأخ فتى الوادي أرسلت اليك الملف بعد التعديل . آمل ابداء ملاحظاتك . ولك تحياتي

أهلا وسهلا بك وإن جاءت متأخرة بعض الشيء . ولك تحياتي

انظر هذا الرابط ستجد فيه الكثير من أوامر التعامل مع الملفات : http://www.arabteam2000.com/vb/showthread....%E3%E1%DD%C7%CA ولك تحياتي

1- امسح ما كتبته في عنصر التحكم . ضع في حدث عند عداد الوقت في الوحدة النمطية السطر التالي : [اسم مربع عنصر التحكم] = Time() ولك تحياتي

الأخ benga كود الاختيار بين ذكر أو أنثى أو الاختيار من القائمة أو كتابة 1أو 2 : If IsNumeric(NewData) Then Response = acDataErrContinue If NewData = 1 Then Emp_Sex = "ذكر" Else Emp_Sex = "أنثى" End If Emp_Tel.SetFocus End If السطر الأول يحتوي على IF الشرطية وي…

الأخ مصراوي لكن سؤال الأخ كان في الاستعلام يعني كيف يستفيد من الدوال التي ذكرتها في الاستعلام ؟ الأمر الثاني أن الكود : [اسم الحقل المقسوم]/IIf([اسم الحقل المقسوم عليه]=0;1;[اسم الحقل المقسوم عليه]) يعمل في VBA وهو مكون من سطر واحد مع ملاحظة تغيير الفاصلة المن…

هذا كود قريب من إجابة الأخ ابو لمى سلمه الله في الفقرة الثانية : If IsNull(DLookup("[ItemNo]", "Items", "[ItemNo]=" & Me![ItemNo])) Then MsgBox "الرقم الذي أدخلته غير موجود ." Cancel = -1 Else Me.ItemSale = DLookup("[ItemSale]", "Items", "[ItemNo]=" & Me.ItemN…

ولكن ماذا لو كانت صفحات القسم بالمئات كيف سيكون شكل الصفحة ؟ عموما سيتم عرض الأمر علي المسؤلين فإن قبلوا هذا الاقتراح ستراه مطبقاً هنا . وشكرا مرة أخرى لاقتراحك (f) (f) ولك تحياتي