ircpal

rudwan اخي السلام عليكم ورحمة الله المرفق لم يمل معي جيدا تظهر لي رساله C;\Data\hmdata.mdb is not a valid path.Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides هذه هي الرساله التي تظهر مع اني وضعت الملف hmdata.mdb في السواقه سي ولم تنجح العمليه ماذا تنصح اخي رضوان وجزاك الله خيرا

rudwan اشكرك كل الشكر على المرفق وسوف احمل المرفق واعطيك الخبر انشالله وجزاك الله خيرا

جزاك اللله الف خير وجزا القائمين والمشرفين على المساعدات التي قدموها لي من قبل واشكركم جميعا وجزاك الله كل خير اخي احمد

اشكرك اخي احمد على المرور وانا بانتظار ردك ومستغرب عدم رد المشرفين والقائمين على هالمنتدى !!!

هل طلبي صعب؟ اين المشرفين لم اجد اي تعليق على موضوعي؟؟

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

http://www.officena.net/ib/index.php?showtopic=11622 المرفق

السلام عليكم ورحمة الله وبركاته احي المشرفين والاعضاء والقائمين على هذا المنتدى الرائع وجزاهم الله خير على مساعدتهم وتثقيفهم لنا اريد مساعده على تعديل واضافة بعض البرمجه التي تساعدني في اموري اليوميه المرفق عباره عن تحصيل اجار من المستاجر اريد من البرنامج ما يلي :- في نموذج (التنبيه) - كل اخر شهر يظهر البيانات الموجوده استعداد لدفع الاجار - عندما اضع كلمت ( نعم) في حقل تم الدفع تفتح لي باقي الحقول مثل ( لشهر، تاريخ الدفع،رقم الاشعار ) - اذا كان بالامكان عند دفع المستاجر بتاريخ متاخر يظهر التاريخ باللون الاحمر لنفرض بان اخر موعد لسداد اجار شهر فبراير هو 5 مارس بعد هذا التاريخ يظهر باللون الاحمر هل بالامكان عمل ذلك ؟؟ وجزاكم الله كل الخير مرفق مثال

السلام عليكم ورحمة الله لدي اوفيس 2003 premium Edition اريد احول الواجهه من الانجليزي الى العربي هل من طريقه يا ريت تفيدونا وجزاكم الله خير

للاخ طيف مثال رائع وجزاك الله خير

للرفع بليز

up pls

bo Mishary thank you very much its really a helpful thanks bye

السلام عليكم ورحمة الله وبركاته مره ثانية ولكن بالعربي هالمره :) سؤالي هو : لدي جدول في الورد وفيه رواتب موظفين ولكن لا استطيع ان اجمع العدد الاجمالي في خانه مثل التي في الاكسل sum هل نهاك طريقة ما استطيع بها حقل يجمع الرواتب مثلا وشكرا

salam elekoom i don't have an arabic font in this computer i need to add sum total to my paper sheet like it in execl can i do that in win word sheet??? pls help me thank you

للاخ رجب افضل تحية وتقدير جزاك الله على المساعده يا اخ رجب ولكن المثال الذي ارفقته لا يعطيني ما اريده بالضبط ما اريده هو ان يظهر لكل فتره او تنبيه بان موعد الانتداب قد شارف على الانتهاء مثلا والشي الاهم هي الخانات التي ححدتها لك لعمل سكانر للكتب التي تخص كل موظف وايضا هناك اخطاء تظهر لي عند فتح البرنامج Me.Filter = "enddate <= #" & Now & "#" يا ليت اخ رجب تساعدني في حل البرنامج وجزاك الله الف خير

للاخ خضر والاخ الغالي rudwan لقد ارفقة البرنامج في قسم التحميل المؤقت كما اشرت اليه واتمنى منكم الاطلاع عليه واكون شاكرا لكم جزيلا http://www.officena.net/ib/index.php?showtopic=8679

السلام عليكم جميعا للاخ رضوان وللاخ طيف وكما وعدتكم بانني سوف ارفق المثال فهذا هو الرابط الذي اريد عمله وبه مثال وجزاكم الله كل الخير http://www.arabteam2000.com/forums/index.php?showtopic=68696

rudwan الى الاخ لقد انحلت وجزاك الله كل الخير على المساعده اخي رضوان يا ليت ان توضح هذه الكود هل فيه من الشببه لانه اسم الكود كمين؟ واذا ان فعلا كمين فيا ليت الاخوه ياخذو اجراء حول اللي عطتني الملف ( طيف) Private Sub &Atilde;&atilde;&Ntilde;95_Click() On Error Resume Next Dim strCaminho As String strCaminho = localizarArq("c:\") If IsNull(strCaminho) Or strCaminho = "" Then Exit Sub Me.figura3 = strCaminho Call CarregaFoto On Error GoTo 0 End Sub اعني هذا المسار strCaminho = localizarArq("c:\") وجزاك الله خير

rudwan للاخ تسلم يا اخ رضوان على الرد والاضاح ممكن لو تكرمت تقولي الخطوات بالانجيليزي لانه الاكسس اللي عندي بالنجيليزي وجزاك الله خير تحياتي لك

rudwan للاخ جزاك الله خير على الرد انا لا اقصد التاريخ الذي في الجهاز وانما اقصد التاريخ الذي يكون في البرنامج الذي عمله طيف فهو بالهجري اللي ابيه هو في الميلادي

ملاحظة؟ ماذا تقصد " ادخل عدد الايام المتبقية" ؟؟؟ لو حبذا ان يكون التنبيه كفلاش يظهر بعدد الموظفين مجرد كلك على البوتوم ينقلني الى فورم وبه اسماء الموظفين الذين سوف ينتهي الندب قبل الموعد بخمسة عشر يوم مثلا

السلام عليكم ورحمة الله يعطيك العافيه طيف على المجهود الكبير وجعله الله في ميزان حسناتك الفكره كثير روعه ولكن تنقصها شغلات بسيطه وهي كالتالي جعل التاريخ ميلادي بدل هجري البحث بواسطة عن الاسم البحث بواسطة رقم الموظف فعادتها رقم الموظف يبحث عنه بالرقم الموحد ويتكون من 12 رقم او البطاقة المدنية وتتكون من 14 رقم وطبعا يعطيني جميع ما يتعلق بالموظف من معلومات ووثائق خاصة به وبارك الله فيك وجعله الله في ميزان حسناتك والسلام عليكم ورحمة الله

السلام عليكم ورحمة الله وبركاته لدي مشروع عمل برنامج وانا محتار لا اجد الحل فهل من ذوي الخبره المساعده او اعطائي برنامج لما اريده ويلبي حاجياتي لو سمحتم ؟ فكرة البرنامج كما يلي انا اعمل في دائرة حكومية -داشرة شؤون موظفين بالتحديد - ولدينا موظفين جدد على نظام الندب اي لفتره سنه قابلة للتجديد----- من تاريخ كذا وينتهي بتاريخ كذا وطبعا يرفق معه كتاب الندب وبعض الكتب الخاصه بكل موظف اريد ان اعمل برنامج على ان يعطيني تنبيه بانتهاء الندب للموظف قبل تاريخ الانتهاء بخمسة عشر يوما او كما احدده حسب الرغبه. اريد ان يقوم البرنامج باخذ صور الكتب الخاصه بكل موظف عن طريق السكانر اي كل موظف يظهر لي مرفقاته وباستطاعتي طباعتها لو طلب الحاجه فيا ليت من الاخوه اصحاب المنتدي الرائع الا يبخلو علينا بالتطوع والمساعده جعله الله في ميزان حسناتكم والسلام عليكم ورحمة الله

السلام عليكم ورحمة الله وبركاته الى خبراء الاكواد عبر تصفحي بمنتديات اجنبيه رايت مثلا جيدا لمنع تكرار الاسم او رقم في حقل ولكن واجهتني مشكله في الكود وحاولت اصلاحها وبتت بالفشل قلت مالي غير هالمنتدى الطيب واعضائه الاشاوس :) لحل هالمشكله لتعم الفائده باذن الله تعالى للجميع واليكم هالكود كالتالي؟ Dim SID As String Dim stLinkCriteria As String Dim rsc As DAO.Recordset Set rsc = Me.RecordsetClone SID = Me.strStudentNumber.Value stLinkCriteria = "[strStudentNumber]=" & "'" & SID & "'" 'Check StudentDetails table for duplicate StudentNumber If DCount("strStudentNumber", "tblStudentDetails", stLinkCriteria) > 0 Then 'Undo duplicate entry Me.Undo 'Message box warning of duplication MsgBox "Warning Student Number " _ & SID & " has already been entered." _ & vbCr & vbCr & "You will now been taken to the record.", vbInformation _ , "Duplicate Information" 'Go to record of original Student Number rsc.FindFirst stLinkCriteria Me.Bookmark = rsc.Bookmark End If Set rsc = Nothing End Sub تظهر لي خطأ في جملة rsc.findfirststlinkcriteria وايضا ما يتعلق بها Dim rsc As DAO.Recordset لا اعرف ماذا تعني ومما تتعلق يا ليت الاخوه يلخصون هالكود لكود فعال وشغال حتى تعم الفائده وتمنياتي لكم بالتوفيق