البحث في الموقع

السلام عليكم ارجو النظر الى المرفق اذا امكن عمل تعديل تهائي على الملف حيث اني في المرحلة الاخيرة الكود الموجود حاليا هو في حال تم وضع رقم الموظف في العامود (بي) يتم استيراد بياناتة من ورقة عمل "داتا" من الاعمدة (سي الى جي) المطلوب 1 في حال نسيان اي موظف من قائمة الموظفين في ورقة العمل"داتا" ولم يتم ذكرة في ورقة عمل "تيست" يظهر الاسم باللون الاحمر في ورقة عمل "داتا" 2 في حال حذف اي اسم من قائمة الموظفين في ورقة العمل "داتا" يتم بشكل اوتوماتك حذف اسمة في قائمة ورقة العمل "تيست" او اظهارة بللون معين على الاقل للتنبية في المرفق موضح بشكل افضل شكرا لكم مقدما يفضل وضع شروط الاكواد برقم الموظف وليس اسمة منعا لتكرار الاسم test.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" ايام مباركه من الله عز وجل و لا تنسونا من صالح الدعاء أقدمه لكم صدقه جاريه على روح المغفور لها امى و استاذنا / عماد الدين الحسامى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه و هديتى متجدده باذن الله تعالى من هنا اضغط على رابط العنوان اسفله للوصول للمدونه

السادة الأعضاء الكرام أرجو المساعدة فى كتابة كود لزر يقوم بحفظ التعديلات على السجلات مع العلم أننى قمت بكتابة كود زر الحفظ بهذا الشكل Dim strSQL1 As String strSQL1 = ("INSERT INTO Employees ( [picfile], [id]) VALUES('" & Me.Controls("ImagePath") & "','" & Me.Controls("id") & "'") CurrentDb.Execute strSQL1, dbFailOnError DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

السلام عليكم ورحمة الله وبركاته بينما كنت ابحث عن كود اختيار عدة اصناف (أشهر) من مربع قائمة لعمل تصفية عند فتح تقرير ما وجدت الكود التالي : Private Sub cmdPreview_Click() On Error GoTo Err_Handler 'Purpose: Open the report filtered to the items selected in the list box. 'Author: Allen J Browne, 2004. http://allenbrowne.com Dim varItem As Variant 'Selected items Dim strWhere As String 'String to use as WhereCondition Dim strDescrip As String 'Description of WhereCondition Dim lngLen As Long 'Length of string Dim strDelim As String 'Delimiter for this field type. Dim strDoc As String 'Name of report to open. 'strDelim = """" 'Delimiter appropriate to field type. See note 1. strDoc = "MonthlyCompRpt" 'Loop through the ItemsSelected in the list box. With Me.MnthsList For Each varItem In .ItemsSelected If Not IsNull(varItem) Then 'Build up the filter from the bound column (hidden). strWhere = strWhere & strDelim & .ItemData(varItem) & strDelim & "," 'Build up the description from the text in the visible column. See note 2. strDescrip = strDescrip & """" & .Column(1, varItem) & """, " End If Next End With 'Remove trailing comma. Add field name, IN operator, and brackets. lngLen = Len(strWhere) - 1 If lngLen > 0 Then strWhere = "[MnthsZ] IN (" & Left$(strWhere, lngLen) & ")" lngLen = Len(strDescrip) - 2 If lngLen > 0 Then strDescrip = "Categories: " & Left$(strDescrip, lngLen) End If End If 'Report will not filter if open, so close it. For Access 97, see note 3. If CurrentProject.AllReports(strDoc).IsLoaded Then DoCmd.Close acReport, strDoc End If 'Omit the last argument for Access 2000 and earlier. See note 4. DoCmd.OpenReport strDoc, acViewPreview, WhereCondition:=strWhere, OpenArgs:=strDescrip Exit_Handler: Exit Sub Err_Handler: If Err.Number <> 2501 Then 'Ignore "Report cancelled" error. MsgBox "Error " & Err.Number & " - " & Err.Description, , "cmdPreview_Click" End If Resume Exit_Handler End Sub تظهر لي رسالة خطأ عند تنفيذ الكود دائما السبب هو ان حقل التصفية [MnthsZ] لدي هو حقل ناشئ عن استعلام والذي يظهر الشهر والعام ('mm yyyy') ، عند محاولتي لتغيير صيغة الحقل الى ('mmyyyy') بدون فراغ عمل معي الكود جيدا . السؤال هو كيف يمكنني تنفيذ الكود اعلاه عن طريق جعل نمط الشهر بالصيغة ('mm yyyy') ؟؟

عندي قاعدة البيانات المرفقة وفيها ثلاث استعلامات اجرائيةQ1 استعلام إلحاقQ2 استعلام حذفQ3 استعلام الحاقوعندي النموذج QQ السؤال كيف يمكنني اضافة زر ((أمر)) واحد ينفذ هذه الاستعلامات بضغطة واحدة وذلك في النموذج QQوشكراً سلفاً AB.rar

السلام عليكم اخواني الكرام هذه اول مشاركة لي في منتداكم الرائع واسف انها طلب مساعدة وليست مشاركة فعالة اطلعت على منتداكم الرائع وتعلمت منه الكثير وقمت بعمل بعض ملفات الاكسل التي احتاجها في عملي باستخدام اكواد vba التي تتحفوننا بها ولكن لاني لست الذي يعمل علي هذه الملفات قمت بعمل كلمة سر للكود حتى لا يعبث به من يقوم بادخال البيانات والا ن احتاج الى تعديل في الاكواد ولكني نسيت كلمة السر برجاء مساعدتي في فك الحماية عن الملف وياريت اذا بتعطوني كلمة السر الموجودة لان لدي 3 ملفات مقفلة بنفس كلمة السر وجزاكم الله خيرا الموردين.rar

السلام عليكم ورحمته الله وبركاته بالبداية احب ان اشكر هذا المنتدى الجميل وبصراحة اسفتد كثير من هذا المنتدى بس ساقول بارك الله فيكم ومساعدتكم للناس ويجعله في ميزان حسناتكم اخواني الاعزاء محتاج كود ترقية الموظف يعني مثلا عندي موظف درجة /9 وترقى في سنة 2015 وبعد 3 سنوات سيتم ترقيته اريد كود يعمل تاريخ ترقيته تلقائياً في الحقل ملاحظة :- الموظف درجة / 10 و 9 و 8 و 7 كل 3 سنوات تتم ترقيتهم والموظف درجة / 6 و 5 و 4 و 3 كل 4 سنوات تتم ترقيتهم والموظف درجة / 2 و 1 كل 6 سنوات تتم ترقيتهم هل يوجد كود هكذا والنموذج في المرفقات وشكرا لكم ولكل من يستطيع مساعدتي Database1.rar

من فضلكم اريد المساعدة في كود الترحيل برقم مثلا ترحيل 1 ، ترجيل 2 ، ...... حتى لا يعيد الترحيل مرة أخرى و لكم مني فائق الاحترام و التقدير. z1 = Sheets("Dataentry").Range("e5").Value For i = 3 To 34 If z1 = Sheets("Timeline").Cells(1, i) Then Sheets("Timeline").Cells(3, i) = Sheets("Dataentry").Range("e7").Value Sheets("Timeline").Cells(4, i) = Sheets("Dataentry").Range("e8").Value Sheets("Timeline").Cells(8, i) = Sheets("Dataentry").Range("e10").Value Sheets("Timeline").Cells(9, i) = Sheets("Dataentry").Range("e11").Value End If Next i Sheets("Dataentry").Range("e7:f11").ClearContents job costing.rar job costing.rar

انا صممت برنامج بالإكسيل وعندي بعض النواقص بالاكواد. إذا ممكن المساعدة. علما ان نصف البرنامج صممته من خلال المنتدى 1- ممكن كود يفتح UserForm من نفس UserForm. يعني إذا انا صممت قائمه حساب. وارغب بفتح قائمه حساب جديدة وعدم اغلاق السابقة 2- ممكن كود طباعة فقط ListBox اي محتويات ListBox فقط من خلال UserForm او طباعة TextBox معين انا اقوم باختياره 3- ممكن كود اضافه TextBox جديد في نفس UserForm بشكل أوتوماتكي في حال ملائة TextBox الاول بالبيانات يقوم اضافة TextBox ثاني بشكل أوتوماتكي 4- ممكن كود ترقيم تلقائي UserForm في حال قمت بالبيع مثلا يعطيني رقم جديد للقائمه او يظهر لي باركود بدل الترقيم التلقائي شاكرين تعاونكم معنا محمد ثامر

الرجاء المساعدة المطلوب كود يجلب بيانات أعمدة معينة من شيت واحد أو من عدة شيتات يكون أفضل بحيث يتم جلب بيانات محددة حسب إسم الافصل و المرفق يوضح المطلوب فى الصفحة المسماه يوسف دفتر أعمال السنة تعديل.rar ولو أمكن بالمعادلات مافيش مشكلة المهم إنجاز العمل سواء بكود أو معادلات

السلام عليكم ..... لمن لديه الخبرة فقد تم أضافة صندوق بخيارات ليتم أختيار قيمة معينة رقم السيارة مثلاً ويقوم بدوره بفتح التقرير أستناداً إلى القيمة المختارة من صندوق الأختيارات. ملاحظة:في الملف المرفق تم تطبيق كود لربط رقم الموظف مع تقرير معين وقد عمل بشكل جيد ولكن عنده محاولة تطبيقه على تقرير أخر يظهر رسالة لأدخال القيمة يدوي. المطلوب:هو عند أختيار نوع السيارة حسب الرقم والضغط على زر التقرير يظهر لي السيارة المختارة فقط. Human Resources DataBase-beta.rar Human Resources DataBase-beta.rar

السلام عليكم ورحمه الله تحياتي علي المنتداي الرائع ونشكر كل المساعدين في ردودهم علي المواضيع التي قرأتها دا اول اشتراك لي في المنتدي ويارب ماتكنش اخر مشاركه واتعلم منك الكثير مرفق صوره لشيت داخل ورقه عمل كامله ورقه العمل هذه بها اكثر من شيت وبالتحديد فيها شهرو السنه كامله ويوجد شيت اسمه CARDهو ده بس المطلوب عمل حمايه له غير بعد ادخال كلمه سر مرفق الصوره فهل يجوز عمل كود لهذا الشيت فقط وشكرا لسيادتكم جميعا

السلام عليكم و رحمة الله كيف يمكنني عدم تمكين زر الاغلاق نص35 فى نموذج اذا كان مربعين النص [my_numbr1]و[my_numbr2] بهم ارقام وتمكين الزر اذ كان مربعين النص فارغين

السادة المحترمون سلام الله عليكم مش عارف ايه الغلط فى الكود ده Private Sub cbotype_AfterUpdate() Dim ctype As String ctype = "select* from tbl_customers where ( [ type ] = ' " & Me.cbotype & "')" Me.customers_subform.Form.RecordSource = cbotype Me.customers_subform.Form.Requery End Sub New Microsoft Access Database (2).rar

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام علي سيدنا محمد النبي الامين وعلي من سار بهديه الي يوم الدين اما.....بعد اقدم لكم اليوم أعزائي أعضاء منتدى أوفيسنا كود بسيط تستطيع من خلاله تحويل الأرقام من أرقام إلى كتابه لكن ( إنجليزي ) . ويسمى in words طريقة إضافة الكود سهله جداً , بعد فتح ملف الإكسل اظغط على Alt+F11 في الكيبورد وبعدها Insert > module وأضف الكود , تابع الشرح في الصور . الكود + ملف إكسل جاهز في المرفقات in words code & xmls.rar

كود انتقال.rar

اخي الكريم ... اشكر اهتمامك .. لنفترض انا حيكون عندي فورم مكون من textbox 1 + textbox2 textbox1 يوجد فيه نص ... انا بدي كود يكتب كلمة محددة في textbox2 / اذا وجدت كلمه معينه في النص الموجود في textbox 1

السلام عليكم أخوانى على الرابط التالى موضوع http://www.officena.net/ib/topic/58539-استدعاء-بيانات-بهذه-الطريقة،-يوجد-ملف-مرفق/#comment-373767 الكود المعنى بالتعديل " GetIdFaster " ليشمل عدة أعمدة من العمود C الى العمود Z بالمرفق ياللى بالمشاركة رقم 6 وهو من تنفيذ الاستاذ / ياسر خليل تقبلوا وافر تقديرى

السلام عليكم ورحمة الله وبركاته اتمني حد يرد عليا في طلبي دا يوجد ماكرو اسمه kh_wVisible عايز اضيفه مع الكود بنفس الطريقه في الكود وكل ماضيفه للاسف لا يعمل علما ان لاغي علامة x من العمل يعني الاكسل لا يغلق لو ضغطنا علي علامة ( x ) وعامل زر لاغلاق الاكسل يريت اهل الخبرة يفدوني في اصلاح هذا الكود الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If kh_wVisible False End Sub

السلام عليكم ورحمة الله وبركاته أخواني الكرام الحمد لله الذي بنعمته تتم الصالحات نحمده ونشكره على نعمه الذي لاتعد ولاتحصى أحبائي واساتذتي وعلمائينا الافاضل في هذا الصرح الذ طالما ابدعنا واذهلنا في كل شي جديد في مجال الاوفيس بشكل عام والاكسيل بشكل خاص يوجد في الملف المرفق كود للاستاذ والعلامة عماد الحسامي يقوم بترحيل البيانات واظهارها بناء على اسم الحساب يعني (كشف حساب للعميل) قمت بتعديله لكي يناسب متطلبنا وتم التعديل ولله الحمد ولكن عندما كبر عدد الادخالات في الملف واصبحت بحجم ضخم تقريبا 25000 الف سطر أصبح تنفيذ الكود يأخذ وقت كبير مثل موضوعنا السابق ميزان المراجعة بالكودات http://www.officena.net/ib/topic/63382-ميزان-مراجعة-بالكودات/ ولكن عند تقريب تاريخ بداية الكشف الى تاريخ النهاية يصبح تنفيذ الكود سريع نسبياً في العمل بحثت وتعبت صراحة من البحث حول الموضوع كلها مواضيع حول ظهور نتائج البحث في اليوزر فورم ولكن كود الاستاذ عماد الحسامي فيه شي جميل أنه يظهر الحساب في الورقة ويظهر معه الرصيد السابق تبعا لتاريخ البداية وهذه الميزة رائعة ولها اهمية كبيرة في مجال المحاسبة فهل تشاهدون الملف المرفق وتذهبون الى ورقة كشف حساب والنقر على أيقونة كشف حساب شاهدو الوقت المستغرق الذي يأخذه الكود في التنفيذ البيانات مصغرة في الملف هل توجد طريقة لكي نسرع ترحيل البيانات وظهورها في الورقة أو فكرة أخرى يتفضلون علينا بها علمائنا واحبابنا الكرام تعديل كشف حساب.zip

السلام عليكم اسعد الله يومكم بكل خير تشرفت بانضمامي اليكم وهذا ان دل فانه يدل على رقي المتدى والبحث عن مايفيد موضوعي / في برنامج تم تصميمه على الاكسيس 2010 وهو عبارة عن حصر لأجهزة وصيانتها الطلب الأول / وضع كود في خانة التاريخ ( املك ثلاث حقول للتاريخ وهي -: تاريخ بدء برنامج الحماية-تاريخ صلاحيته - المدة المتبقية ) والطلب على وضع آلية فيهن يكون اعطي معطى واحد يحسب البقية تلقائياً . الطلب الثاني / وضع رسالة تنبية مع فتح البرنامج لوجود قرب انتهاء صلاحية برنامج الحماية او طلب تحديث لجهاز معين. وفي النهاية اتمنى ان لا اكون ضيفاً ثقيلاً عليكم وهذه اول موضوع لي وان شاء الله افيد واستفيد خادمكم البروفيسور

ممكن يوزرفورم يقوم بادخال البيانات كما في الصورة اليوزر الفورم للجدول الاول (على اليمين) اليوزر الفورم الثاني للجدول الثاني (على اليسار) مع توضيح إذا امكن (للأكواد) ملاحظة عندما يقوم بتعبئة البيانات في اليوزر فورم اريد ان ينزل تلقائياً للصف بعده، والجدول يتوسع تلقائياً ليشمل البيانات الجديدة (حين يتم تعبئة بيانات على صف جديد) أيضاً مثلاً عند كتابة تاريخ خاطئ يقوم بتنبيه كذلك في في العمود الرابع من كل جدول، يقوم بتنبيه إن كانت القيمة ليست أرقام هذا رابط لملف الاكسل http://www.gulfup.com/?SXGyuW وجزاكم الله خير

السلام عليكم ورحمة الله وبركاته وبعد هذا كود صممته _ مع قلة خبرتي في مجال الاكواد _ لينفذ أمر يشغل بال الكثير منا وهو تثبيت نطاق من الصفحة علوي وسفلي ليتكرر في جميع الصفحات . وعلى الرغم انني اعلم ان هناك طرق عادية يمنحها الاكسيل لتنفيذ ذلك نعم هذا صحيح !! ولكن ميزة هذا الكود انه يمنح ما لا يمنحه الاكسيل بالطريقة التقليدية في الاكسيل ( راس وتذييل ) الميزة هي: اننا نستطيع تثبيت جدول اعلى واسقفل كل صفحة. مشكلة هذا الكود :هو يعمل بشكل صحيح قي اول صفحة فقط ثم يقوم في باقي الصفحات بتثبيت النطاق الثاني الموجود بالكود فقط. الكود : Sub braa_head_foot() With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" .PrintTitleRows = "$52:$55" ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End With End Sub braa_head-foot.rar

السلام عليكم اريد كود اخفاء صفحة و كود اظهار صفحة

الاخوة الكرام السلام عليكم ورحمة الله وبركاته دمتم في صحة وخير ------ هل من كود لمنع اعادة تسمية ملف اكسل ولكم مني جزيل الشكر