نجوم المشاركات

بالظبط هذا هو المطلوب ربنا يبارك فيك ويكرمك ويجزيك خير اشكرك من قلبى اخى الحبيب ادام الله عطاؤكم ============== وباقى كود التعديل ثم يدعو لك صاحب الملف بكل خير وفى كل وقت

السلام عليكم الشكر موصول للاخ ابوعيد و الاخ الصقر تفضل اخي هذا الحل ان شاء الله يفي بالغرض وان يستفيد منه الجميع اولا تم برمجة كود يدرج شيت جديد باسم رمز الشركة اوتوماتيكيا في حالة زيادة عدد اسماء الشركات مع تنسيق رؤس الاعمدة كما هو في الشيت الرئيسي Sub AddWs() Dim ws As Worksheet Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") Dim lrw As Long: lrw = sh.Cells(Rows.Count, 1).End(xlUp).Row Dim sNam As String Dim i As Integer, c As Integer Dim Err For i = 2 To lrw sNam = sh.Range("A" & i).Value On Error GoTo Err Set ws = ThisWorkbook.Sheets(sNam) 0 Next Exit Sub Err: ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count) ThisWorkbook.Sheets(Sheets.Count).Name = sNam Set ws = ThisWorkbook.Sheets(sNam) Application.CutCopyMode = False sh.Range("C1:S1").Copy ws.Select ws.Range("A1").Select ws.Paste Application.CutCopyMode = True Feuil1.Activate GoTo 0 End Sub ثانيا تم برمجة كود ينقل التغيرات الحاصلة في كل شركة الى الشيت الخاص بها اوتوماتيكيا ويومايا مع العلم ان البيانات تتحدث تلقائيا في حالت اي تغير في بيانات شركة ما ولا يتوقف التحديث الا في حالت تغير التاريخ في هذه الحالة يتم ادراج البيانات في قاعدة البيانات الخاصة بتلك الشركة لاكن بتاريخ مختلف ملاحظة تم برمجة الكود على اساس ان الشيت الرئيسة مرتبط باحد برامج البورصة (المضاربات) مثل مستشاري Sub Rénover() Dim ws As Worksheet Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") Dim lrw As Long: lrw = sh.Cells(Rows.Count, 1).End(xlUp).Row Dim lrw2 As Long Dim MyDat As Date Dim sNam As String Dim i As Integer, c As Integer Call AddWs For i = 2 To lrw MyDat = CDate(sh.Range("C" & i).Value) sNam = sh.Range("A" & i).Value Set ws = ThisWorkbook.Sheets(sNam) lrw2 = ws.Cells(Rows.Count, 1).End(xlUp).Row Dim Rw As Long: Rw = lrw2 + 1 If lrw2 = 1 Then ws.Range("A" & Rw & ":Q" & Rw).Value = sh.Range("C" & i & ":S" & i).Value GoTo 1 ElseIf MyDat = CDate(ws.Range("A" & lrw2)) Then ws.Range("A" & lrw2 & ":Q" & lrw2).Value = sh.Range("C" & i & ":S" & i).Value Else ws.Range("A" & Rw & ":Q" & Rw).Value = sh.Range("C" & i & ":S" & i).Value End If 1 Next End Sub ثالثا تم برمجة كود يقوم بملئ كمبوبكس الخاص بالرمز و اسم الشركة ايضا يعمل اتوماتيكيا Sub ListCmb() Set wsh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Feuil1.CobName.Clear Feuil1.CobID.Clear Feuil1.CobName.List = wsh.Range("B2:B" & lLrw).Value Feuil1.CobID.List = wsh.Range("A2:A" & lLrw).Value End Sub رابعا تم برمجة كود خاص بملئ التواريخ المسجلة في قاعدة البيانات ايضا يعمل اتوماتيكا حسب اسم او رمز الشركة المختارة Sub ListCmbDate(wsNam As String) If wsNam = "" Then Exit Sub Set wsh = ThisWorkbook.Sheets(wsNam) lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Feuil1.CmbDat1.Clear Feuil1.CmbDat2.Clear If lLrw = 2 Then Feuil1.CmbDat1.AddItem wsh.Range("A2").Value Feuil1.CmbDat2.AddItem wsh.Range("A2").Value Exit Sub Else Valeurs = wsh.Range("A2:A" & lLrw).Value Feuil1.CmbDat1.List = Valeurs Feuil1.CmbDat2.List = Valeurs End If End Sub خامسا واخير تم برمجة كود يجلب البيانات حسب اختيار المستعمل للفترة التي يريد من شيت محدث Sub RowWs(wsNam As String, MyDate1 As Date, MyDate2 As Date) If wsNam = "" Then Exit Sub CalearWs Set ws = ThisWorkbook.Sheets("ãÍÏË") Set wsh = ThisWorkbook.Sheets(wsNam) lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Dim Rw As Long, Rw1 As Long, Rw2 As Long For i = 2 To lLrw If MyDate1 = CDate(wsh.Range("A" & i)) Then Rw1 = wsh.Range("A" & i).Row If MyDate2 = CDate(wsh.Range("A" & i)) Then Rw2 = wsh.Range("A" & i).Row: Exit For Next If Rw1 = 0 Then MsgBox "íÌÈ Çä íßæä íæã ÇáÈÏÇíÉ ÇÞá ãä Çæ íÓÇæí íæã ÇáäåÇíÉ": Exit Sub Rw = Rw2 - Rw1 + 1 ws.Range("A4").Resize(Rw, 15).Value = wsh.Range("A" & Rw1).Resize(Rw, 15).Value End Sub صورة توضيحية ملاحضة هامة الرجاء عدم التغيير في تسميات الشيتات لكي لا يتأثر عمل الاكواد (الكود يعطي خطاء) تحياتي للجميع بيانات شركة.rar

اخى الغالى محمد الريفى تم عمل زر الطباعه جرب المرفق Transfer Data.zip

اخى الحبيب محمد الريفى تم تنفيذ عملية الاستدعاء جرب المرفق لو هو تمام نكمل عملية التعديل والطباعه تقبل تحياتى Transfer Data.zip

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

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

أعتذر عن التأخير حيث أنني منشغل قليلا جرب الكود Sub TransferData() Dim WS As Worksheet, SH As Worksheet, Cell As Range, Cel As Range, X Set WS = Sheets("الادخال"): Set SH = Sheets("الشهور") For Each Cell In WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row) If IsNumeric(Cell.Value) Then On Error Resume Next X = Application.WorksheetFunction.VLookup(Cell.Value, SH.Range("A5:A" & SH.Cells(Rows.Count, 1).End(xlUp).Row), 1, 0) If Cell.Value <> X Then Cell.Resize(1, 11).Copy SH.Range("A" & SH.Cells(Rows.Count, 1).End(xlUp).Row + 1) End If Next Cell End Sub

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

عزيزي الرائع ابوعبدالله اعتذر بشدة على تاخيري في الرد على كلامك الاكثر من رائع بخصوص محاسبة المطاعم وذلك لظروف مرضي ولكن ان شاء الله يمكننا سويا وضع نواة حسنة لمشروع محاسبة الفنادق والذي كما سبق واوضحت انه يشمل المطاعم بداخله واامل ان نبدا سويا من الالف الى الياء حتى يخرج مشروع فريد لمحاسبة الفنادق والتي اعتقد انها شاملة لاهم ومعظم مجالات المحاسبة. ولكن دائما سيبقى الوقت هو العدو الاوحد لي وساضع امامك اطار عام لمجال المحاسبة داخل المنشآت السياحية ولكن بكل بساطة او بمعنى ادق بالمفهوم العامي وقبل البدء ارجو ان يتسع صدرك لكلام محاسبة وبس اى بدون برمجة حتى تصلك الفكرة الاساسية والتي من خلالها يمكنك معرفة كافة مدخلات الاطار المحاسبي ( البيانات التي سيتم معالجتها او تبويبها )داخل الفندق وكذلك العمليات التي تتم فيه ثم المخرجات والتي ستكون في شكل تقارير اساسية واخرى مكملة - هناك اقسام داخل قسم المحاسبة والتي تقوم بتجميع البيانات كل حسب تخصصه. وهي كالتالي : قسم مراقبة التكاليف :Cost Control ويتراسه Cost controller وهو القسم المسئول عن مراقبة المخزون ومخرجه الاساسي هو ( تكلفة البضاعة المباعة )Cost Of Salesوبالطبع كي نصل الى رقم تكلفة البضاعة المباعة فنحن بحاجة لمعرفة رصيد اول الفترة المحاسبية وصافي المشتروات واخيرا رصيد بضاعة آخر الفترة (كل هذه البنود بسعر التكلفة وليس البيع) والمخزون في غالبية الفنادق يصنف على 4 محاور رئيسية 1- مخزون اغذية Food Store 2- مخزون مشروبات Beverage Store 3-مخزون عام General store 4-مخزون الصيانة Maintenance Store وساقوم برفع ملف به هذه التصنيفات بمحتوياتها من اصناف لان كل من هذه المخازن بداخلها تصنيف فرعي آخر وهنا يجب الاشارة الى معيار هام في التفرقة بين ماهو Food وما هو Beverage وهو اذا لم تتم اضافة اى تكاليف للصنف بعد شراؤه فهو Beverage وللتوضيح الشاى نضيف اليه سكر اذا فهو Food وليس مشروب Beverageاما الكولا فهي مشروب عزيزي ابو عبدالله اعلم اني اطيل عليك ولكن انت قلت ان الفكرة اعجبتك واذا اردت مني اكمال الموضوع فانا معك حتى تصل الفكرة للاذهان واذا قلت توقف وارسل ملفات فانا ايضا معك واتمنى ان لا تمل مني وفي المرة القادمة ساقوم بشرح باقي الاقسام والتعريف بمهامها الاساسية ومدخلاتها ومخرجاتها وهي على النحو التالي قسم مراقبة الايرادات Income و يتراسه Income Auditor ويليه Night Auditor ويليه Restaurant Auditor ويليه General Cashier ثم F&B Cashier وكل له تخصصه وله مدخلات بيانات ومخرجات مكملة لبعضها البعض قسم المدفوعات Payable قسم المقبوضات Receivable وكل هذه الاقسام تصب بياناتها في جعبة رئيس الحسابات والذي بدوره يصب بياناته بعد المعالجات والتسويات المطلوبة للمدير المالي تحياتي للجميع وتحياتي الخاصة جدا لك عزيزي المبدع على الدوام ابوعبدالله هاني بدر

دعوة لبدء قاعدة بيانات شئون موظفيين شاملة لما لاحظت كثرة التساءل بالمنتدي من استفسارات وطلبات كثيرة حول موضوع شئون الموظفيين وادارة الوثائق بمختلف انواعها وبالبحث بالمنتدي وجد الكثير من اعمال اخواني ومعلميني الأقاضل وعلي رأسهم اخينا المبدع ومعلمنا الجليل الأستاذ / عبدالله باقشير واخي الفاضل الأستاذ/ أحمد فضيلة (صاحب الافكار الجميلة) وأخي ومعلمي الأستاذ / عبدالله المجرب واكواد لاخي الاستاذ / عباد نصار واخي بن علية واستمسحهم واستسمح من استخدمت عمله وارجوا السماحة فالهدف المصلحة العامة ----------------------- نبذة عن قاعدة البيانات اولا: معالجة البيانات الخام من ادخال بيان موظف جديد او البحث عن موظف مع خيارات الحذف والتعديل. وخيارات بحث (بحث بالرقم الوظيفي ) او بحث برقم الهوية / الاقامة- لضمان عدم تكرار الرقم او تشابه ثانيا اعداد تقرير تفصيلي عن حالة موظف معيين بامكانية الطباعة من الفورم وايضا طباعة بي دي اف لارسالها بالبريد وعمل باركود للموظف يحتوي علي رقم الهوية حتي لا يتكررواستخدامه في ملف الموظف ثالثا الصلاحية وتتم فيها معالجة البيانات المدخلة وتحتوي علي - جلب البيانات من صفحة الادخال ومعالجتها واظهار الوثائق المنتهية بالفترة واليوم مع بيان للحالة امكانية الطباعة وعمل تقرير شامل حسب الصلاحية - التصفية مع تقرير بالوثائق المنتهية والسارية علي حدة - التصفية والفرز حسب الجنسية مع تقرير عن كل جنسية - التصفية والفرز حسب المهنة مع تقرير علي كل مهنة - التصفية والفرز حسب الفترة انتهاء الصلاحية (30-60-90 يوم) التعامل مع التاريخيين الهجري والميلادي جاري ان شاء الله تحديث القاعدة لتشمل - امكانية استيراد البيانات من برنامج مقيم بالسعودية - بيان بالاجازات التي حصل علي الموظف واحقيته ف اجازاته السنوية ( جاري العمل عليها) - تقرير عن الراتب الاساسي والبدلات التي يستحقها الموظف شاشات سهلة التعامل وارجوا من الاخوة الكرام لا يبخلوا علينا بافكارهم للتطوير القاعدة بما يتناسب معظم احتياجات الموارد البشرية كلمة مرور القاعدة الدخـول = 2300 حماية الصفحات (2300) DataBase Sheet = 1948 VB Password= Dahy تغيير كلمة المرور للدخول ولحمايــة الصفحات في Sheet8.[zz19760] sheet8.[zz19761] بدون الدخول لمحرر الاكواد مرفق مع الملف ملف الخطوط (حتي يظهر الباركود) ويوضع بالمسار C:\Windows\Fonts توضع صور الموظفيين في نفس مسار ملف قاعدة البيانات ( اذا اردت ارفاق صورة الموظف مع التقرير) وما التوفيق الا من عند الله وهذ بعض الشاشات وان شاء الله ان تكون فيها الفائدة ولو بالقليل لاخواني بالمنتدي officena.rar

السلام عليكم ورحمته الله وبركاته مما لاشك فيه أن السيدة الفاضلة الست أم عبدالله من أحد ركائز هذا الصرح الطيب المبارك فمنذ 2014/10/27 لم تسجل دخول للموقع الله أسأل أن يكون المانع خيرا متعكم الله تعالى بالصحة والعافية نرجوالافاده من الساده الزملاء الافاضل مع إبقاء سؤالنا لفترة وجيزة بمنتدى الاكسيل ومن ثم نقله الى المنتدى الاجتماعى وجزاكم الله تعالى خيرا

اخي جعفر معلومات ومرجع قيم كقيمة وجودك بيننا . هذه العملية هي باستخدام third party وهو البرنامج المذكور وهذا ماكنت وعدت به الأخ عبدالله ولكن باستخدام برنامج جهازه ومشغلاته . ولكن يبدو انك المحت بان هذه الطريقة ليست منطقية فليس من المنطقي ان اعرف جهاز كل عميل وتعديل برنامجي ليناسب جهاز العميل بل الاعقد هو عند تغيير العميل للأجهزة . انا اوافقك تماما ولكنني كنت اريده حلا سريعا لاخينا عبدالله . وانا هنا أقول بانه من الصعب ان احمل برنامج كطرف ثالث مع برنامجي عند كل عميل وتقيد استمرار برنامجي باستمرار ونجاح البرنامج المرافق ! واتوقع بان مؤلف البرنامج استخدم ال api في مخاطبة الأجهزة مما قد نتوصل لها باذن الله ويكون الاكسس هو من يخاطب الأجهزة وعن طريق api . والى هنا سنرى تجربة الأخ عبدالله والرجوع بالفيدباك ! كما لدي استفسار اخي جعفر حول توافقه مع أنظمة التشغيل وخاصة 64 bit .؟! اخي soft.sample ماسالت عنه وإمكانية وضع المسار بالاكسس هي عملية سهلة وشغلة vba ! الأهم الان هو سحب وحفظ ك pdf ! تحياتي

اما انا ، فاجعل البرنامج يقوم بالعمل قدر الامكان ، تفاديا لأخطاء المستخدمين ، ولا ادرج الرابط داخل السجلات في اكسس (طبعا هذا اذا في رابط) ، وانما اربط السجل بالكود ولكن اعتقد بأن سؤالك موجه للأخ عبدالله جعفر

السلام عليكم ورحمة الله وبركاته اسمحوا لي ان اعرض فكرتي لكل جهاز طريقته الخاصة لمخاطبة الكمبيوتر بالكود ، وهذا يجعل العمل على كل الاجهزة عملية صعبة للغاية لذا ، اذا كان هناك برنامج محترف وسيط (مثل ما ذكراخي soft.Sample مثلا) ، فهو سيقوم بالعمل القذر (يعني ربط الجهاز بالكمبيوتر وDrivers و... ) ، والمطلوب من هذا البرنامج الوسيط ان يكون في امكانية التحكم به من برنامج الاكسس (وإلا فاننا نستطيع العمل مباشرة عن طريق برنامج الجهاز). برنامج IrfanView بالاضافة الى Plug-ins التابعة له: http://www.irfanview.com/ من البرامج التي لا استطيع ان استغنى عنها ، فاول ما يكون عندي كمبيوتر جديد ، فعلى طول انزل وانصب هذا البرنامج المجاني الأكثر من رائع احد الخصائص التي في البرنامج ، انك ممكن تتحكم فيه عن طريق CommandLine ، وفيه العديد من الاوامر ، وهذا الشئ مهم اذا كنا نريد استعماله مع الاكسس. البرنامج كذلك يستطيع التعرف على جميع اجهزة السكانر المرتبطة بالكمبيوتر: فلما تريد ان تقوم بعملية مسح مستندات من الاسكانر ، فما عليك إلا ان تقوم باختيار الماسح من القائمة (مرة واحدة فقط) ، وبعدها تستخدم هذا الامر من الكود في VBA عن طريق الامر Shell او ShellWait: "c:\program files\irfanview\i_view32.exe" /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1) /scanhidden "c:\program files\irfanview\i_view32.exe" /multipdf=(c:\temp\test.pdf,c:\temp\scanfile01.tif) /killmesoftly والذي يقوم بمسح المستندات وحفظها بصيغة tif ، ويقوم السطر التالي بتحويل المستند الى pdf. وبما ان الكود في VBA ، فيمكنك التحكم في اسم المجلد اسم الملف وترقيمه و.... جعفر

اخى الفاضل شاهد المرفق لعله المطلوب ayman.rar

اخى الحبيب حمدا لله على السلامه والف مبرووووووووووك الترقية

الف مبروووووووووووك ان شاء الله فى تقدم مستمر

السلام عليكم ورحمة الله اسمي / خالد ( قرشي هاشمي ) ابو الحسن والحسين وهاشم وعمر وعائشة ومحمد وعمر ومصطفى الزوجات 3 واحدة توفيت الله يرحمها

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

تفضل يا غالى انت بس تأمر جرب المرفق فى خيارين استدعاء بالموظف واستدعاء بالفترة جرب وعلمنى تقبل تحياتى Transfer Data.zip

تفضل يا غالى جرب المرفق الاستدعاء حسب الفترة المطلوبه Transfer Data.zip

تفضل اخى الكريم المرفق ان شاء الله به طلبك Transfer Data.zip

اخى الحبيب جرب المرفق هل هو طلبك طالما بقى فيها زوجه تانية فأنا اولى بها ههههههههههههههههههه مش كل حاجه ابوالبراء حرام كدا تقبل تحياتى Transfer Data.zip

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

الجهاز يسحب حالياً بصيغة pdf ولكن عن طريق الضغط على الزر في الجهاز أو من قائمة الأداة Scan Snap في شريط المهام كما في الصورة في أول مشاركة ===================== تفضل http://www.fujitsu.com/emea/products/scanners/wgd/fi-7160.html بالنسبة لروابط الاستاذ رضوان فهي لا تعمل على PDF اما رابط الاستاذ ابو ادم فالموقع يطلب إشتراك مدفوع ولم أجربه ================= وشكراً

اخي عبدالله هل انت تريد السحب بصيفة pdf ؟ وعن طريق الجهاز الذي لديك ؟ فحبذا وضع رابط الشركة للجهاز . لانني ساحمل السوفتوير والدرايفرز من الموقع وهي بداية الحل الذي براسي الان !! استفسار : هل انت متاكد اخي عبدالله ان جميع الروابط السابقة ومن جميع الخبراء لمم تتطرق للسحب على شكل pdf ؟ لانه الحقيقة حبيت اقراها الا اذا لم تتطرق لل pdf فانا اريد حفظ وقتي قدر الإمكان وساعتمد اجابتك ؟ تحياتي

السلام عليكم ورحمة الله اخونا وحبيب الكل الاستاذ ياسر حفظه الله في رد استاذنا الخلوق محمد الريفي بارك الله فيه المشاركة 3 : حته بسيطه خالص وهى تكرار الترحيل محتاجه لمسه منك اعتقد سيكون الشرط هو عدم تكرار رقم الموظف والتاريخ معا وفي كودك الاخير المشاركة 4 هنا الشرط مبني علي عدم التكرار برقم الموظف فقط بمعنى لو تغير التاريخ لن يرحل إلا إذا غيرت رقم الموظف فقط فإذا امكن الشرط برقم الموظف والتاريخ معا فجزاك الله خيرا يا ابا البراء ونخدمك في زواجك الثانية

الف مبروك ودائما فى تقدم

الف مليون مبروك للجميع

اخي محمد خلينا نرسم السيناريو كامل حتى نوصل لما تريد بحفظ الوقت قدر الإمكان وعدم هدم ما تم بناؤه . لان موضوعك على فكرة لم يحدد به اطار العمل كاملا . فتابع : استفسار : انا فهمت انه الخيار انشاء المجلد والملفات يتم مرة واحدة فقط واثناء ادخال المعاملة لأول مرة . ولا اعلم ماذا لو حذفت المعاملة ؟ اليس يحذف المجلد والملفات ؟؟ام ان الحذف لايمكن لمعاملات أدخلت ! كذلك هل هناك الحاق نوع ملفات فيما بعد كان مثلا انشات ملفي وورد واكسل عند انشاء المعاملة ولاحقا حبيت اضع صح على ال pdf لانشاء هذا الملف ملحقا بالملفات السابقة وفي نفس الفولدر ! كما انه هناك امر خطير وهو هل الحقول الثلاثة رقم الوارد والتاريخ ونوع المعاملة قابلة للتعديل لانها أصلا هي اسم المجلد ؟؟ ملاحظة : حل ما طلبت سهل جدا ولكن حبيت ان نضع اطار عمل كامل ينجح به نظامك اخي محمد وخاصة انني لمست انه تجاري ولعملاء وليس للتعلم !! تحياتي

اشكركم متمنيا التوفيق للجميع !!

الف مبروك ابواحمد

جزيل الشكر لك اخى الكريم ياسر عمل رائع فعلا

شكرا لكم جزاكم الله خير

أستاذنا الغالي شكرا على ثناءك على اقتراحي وهذا ووما تعلمنه هنا ويمكننا التحايل للوصول إلى ما نريد حتى نصل إلى ما نريد

أخي الفاضل مرفق لك الحل بطريقتين فرز الكمية 001.rar

مطلوب كلمة السر الخاصة بالدخول

حياك الله أخي ابوخليل انا احاول ان تكون امثلتي بصيغة mdb قدر المستطاع ، حتى تكون في متناول الجميع ، كما تفضلت جعفر

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

السلام عليكم ورحمة الله وبركاته اشكركم يا شباب على حسن ترحيبكم اشكرك اخي ابو الآء 1. التقرير عبارة عن تقرير عادي ، يمكنك عمل ما شئت به من طباعة وحفظ بالصيغ التي يسمح بها الاكسس 2. فكرة ممتازة ، لانه في بعض الاشياء اللي لها علاقة بالكود ، وقد يستفيد منها الآخرون ، فمثلا: الكود يعمل قاعدة بيانات خارجية ، ويلصق بها البيانات التي طلبتها ، ثم يمسح هذه القاعدة ، والسبب اني عملت هذا ، لأني لا احبذ ان تكون الجداول المؤقته في البرنامج ، حيث ادخال البيانات فيها ثم حذفها ، يؤثر على حجم البرنامج ، ويجب عليك عمل Com[act and Repair بين الحين والآخر ، بينما عمل جدول مؤقت في قاعدة بيانات مؤقته خارج البرنامج ، لا يكلف إلا كود في عملها ، وكود آخر في حذفها ، وَكَفَى اللَّهُ الْمُؤْمِنِينَ الْقِتَالَ جعفر

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

السلام عليكم ورحمة الله وبركاته ... افتح النموذج في عرض التصميم حدد حقل التاريخ واضغط على خصائص من خصائص اختر بيانات من بيانات اختر القيمة الإفتراضية وضع هذا الكود = DMax("date_sequence";"student")+1 ملاحظة : عند تسجيل اول سجل يجب ان تقم بتسجيله يدويا وبعدها سيتم التسجيل تلقائي . وإليك المرفق .. اتمنى ان يكون ماطلبت . بالتوفيق ان شاء الله . New تطبيق Microsoft Office Access.rar

استاذى العزيز / ياسر خليل و الاخ الكبير MEZO1975 لا يسعنى الا الدعاء لكم بالخير و التوفيق فى الدنيا و الاخرة جمعنا الله دائما على كل خير و زادكم الله من علمة مع الشكر

اسف جدا جدا جدا انى حاولت المساعده ولكن لم اوفق فى ذلك ولم افهم طلبك جيدا وعلى كل انا بحثت فى هذا الموضوع مرار وتكرار وهذا ما توصلت اليه وللعلم لن تجد مثل هذا المثال فى المنتديات لا العربية ولا الاجنبية الا هنا فقط الا إذا قام احدهم بنقله ونسبته لنفسه لاننى بفضل الله وبفضل اساتذتنا الكرام فى هذا المنتدى سواء بطريق مباشر او بغير مباشر قمت بالتعديل عليه للخروج على تلك الهيئة التى لم ترضى ما تتوق اليه نفسك اممممممم اتمنى ان تجد ضالتك واتمنى لو وفقت ووجدتها لا تحرمنا من ارفاق مثال يوضح مالم نستطع فهمه او لم نوفق فى الوصول اليه وعلى كل اليك تعديل بإضافة نموذج اخر للبحث كما ورد فى المثال الاجنبى اعتقد قد يلبى طلبك وان لم اوفق هذا اقصى ما استطع فعله انظر النموذج الجديد بأسم frmSearchHighlight انظر النموذج الجديد بأسم tblCustmers-Search Search-up.rar

. وضع صورة داخل خلية حسب رقم الصورة khezzani-photos.rar

هذه الرسالة كانت تظهر لدي وتعني انهيار برنامج الاكسس وكانت تظهر لدي اثناء العمل في النماذج واسبابها على ما اظن: 1:امتلاء ذاكرة الجهاز 2:اذهب لخيارات الاكسس العامة وفي علامة تبويب مركز التوثيق وفي اعدادات مركز التوثيق امسح اي ناشرون او مواقع موثوق بها ماعدا مايكروسوفت 3:اوفيسك مكرك ومنتهي وتحتاج مفتاح تنشيط 4:مكافح فيروساتك منتهي انا لا ادري ماهو السبب الواضح لدي لأنها انتهت بعد عناء ومحاولات لأكثر من شي ولست ادري من المسئول الرئيس.. سلام..

إذا كنت قد فهمت الملف المرفق (هذا فهمي !!) فإليك الملف المرفق به حل باستخدام الدالة Sumproduct ... تراخيــص.rar

استاذ / هانى استاذ / طلعت بجد برنامج روعة وجميل جداااا اسمحو لى ان ااخذ من حضرتكم البرنامج واقوم بتحويله الى مايناسبنى فى مجال عملى .... سوف اجعله برنامج مسئول الوقود بعد اذن حضراتكم مع العلمى انى من محب الاكسل ولكنى هاوى وليس محترف امثالكم تقبلو تحياتى

تفضل أخى تم التعديل على المعادلة ليسهل نسخها حيث يكتفى بتغيير علامة " أكبر من " وأصغر من " لجلب القيمة الأعلى والقيمة الأقل تقبل تحياتى القيمة الأقرب لرقم.rar

لسلام عليكم حسب فهمي لطلبك جرب هذا الملف (قم تغيير قيم الخلية المتغيرة ولاحط) aa.rar