محمد طاهر

I think You Should Post this Question in the Web Design Section Actualy Fornt Page is Part of the Microsoft Office , but i beleive web design questions should be sent to the web design section السؤال كيف أقوم بعمل دفتر توقيعات للزوار بالصفحة الخاصة بي أو كيف ي…

السلام عليكم و رحمة الله و بركاته Me.Text2 = "01/" & Month(Me.Text0) & "/" & Year(Me.Text0)

The Question is not very clear which software do you want to use write what you need to do in English & I shall translate the Question and answer at the end

-------------------- السلام عليكم اجعل دقة الشاشة 600*800 أو عدل الجزء الاخير من الكود كما يلي For j = 1 To 37 m = m + (LetterMat(1, j)) + " : " + _ Str(LetterMat(2, j)) + " " ' + Chr(13) If j Mod 3 = 0 Then m = m + Chr(13) Next MsgBox m ----------------------…

السلام عليكم شرح المعادلة السابقة Me.SumField Me تحل محل الفورم الفعالة و تصلح لأي فورم فعالة SumField هو اسم صندوق النص الذي تريد الحصول علي الجمع فيه = DSum دالة الجمع ("[FieldName]" اسم الحقل المراد جمعه من الجدول , "TableName", اسم الجدول الذب فيه الحقل ال…

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

السلام عليكم الرقم n = 1 يعني أن المتب لشهر واحد فى حالة أكثر من شهر قم بتغييره '============== Dim n As Byte n = 2 '============= Dim stDocName As String Dim stLinkCriteria As String stDocName = "Fsalary" DoCmd.OpenForm stDocName, , , stLinkCriteria Dim m As …

هل أنت متأكد من ان املف Sndrec32.exe موجود فى c:win98Sndrec32.exe أو ان كنت غيرت المسار تأكد من أن الملف يعمل بالنقر المذدوج عليه من ال explorer

غريبة ربما تحتاج لاعادة تحميل الاوفيس مثلا ضع الفورم لنجربها ، فان لم تحدث نفس المشكلة معنا تبقي محلولة و ان حدثت نبحث عن السبب ، فربما يكون لل referecences دخل

السلام عليكم Dim stDocName As String Dim stLinkCriteria As String stDocName = "Fsalary" DoCmd.OpenForm stDocName, , , stLinkCriteria Dim m As Integer If IsNull(Forms![FData]![ID]) Or _ DCount("[delayno]", "Tsalary", "[ID] =" & Forms![FData]![ID]) = 0 Then m = …

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

هذا الموضوع محتاج محاولات أرسله علي بريدي mtarafa@link.net

الرابط يعمل و لكن الصفحات المجانيية لا تعمل فى بعض التوقيتات نتيجة الزحمة جربته الآن و يعمل و الموضوع الثاني الذي أشار اليه الاخ fahdam به حل آخر

السلام عليكم بالنسبة للجزء الاول Dim stDocName As String Dim stLinkCriteria As String stDocName = "Fsalary" DoCmd.OpenForm stDocName, , , stLinkCriteria Dim m As Integer If IsNull(Forms![FData]![ID]) Or _ DCount("[delayno]", "Tsalary", "[ID] =" & Forms![FData]…

اذاو جهت الملف الي ال A: مباشرة فستمكن الاصدارات القريبة من winzip بالاكمال علي أكثر من ديسك تقائيا لاستعمل ال winzip بالكود http://www.arabteam2000.com/vb/showthread....light=%E4%D3%CE

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

أخي الكريم علي ما فهمت أنت ترد الحصول علي مجموع مجموعة سجلات لها عمل مشترك أي رقم معرف لشخص مثلا و فى هذه الحالة يتم الجمع مباشرة من الجداول باستخدام Dsum Me.SumField = DSum("[FieldName]", "TableName", "[ID] = '" & (Me.ID) & "'") وفيه يتم جمع القيم الموجودة من…

السلام عليكم http://mypage.ayna.com/mtarafa/rwateb.zip stDocName = "Fsalary" DoCmd.OpenForm stDocName, , , stLinkCriteria Dim m As Integer If IsNull(Forms![FData]![ID]) Then m = 0 Else m = DLookup("[delayno]", "Tsalary", "[ID] =" & Forms![FData]![ID]) If m >= …

السلام عليكم الأخ أحمد المطلوب كان اظهار السجلات بناء علي التاريخين و ليس حساب الفرق بينهما

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