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

السلام عليكم أحبائى وأساتذتى أقدم لكم ملف للبحث عن بيانات شخص فى صفحة معينة من عدة صفحات بإستخدام المعادلات فبمجرد اختيار اسم الصفحة المراد البحث فيها من القائمة المنسدلة الموجودة فى الخلية C2 من صفحة البحث واختيار اسم الشخص المراد البحث به من الخلية B2 من نفس الصفحة يتم جلب بيانات هذا الشخص من الصفحة التى قمت بتحديدها جزاكم الله كل خير وبارك الله فيكم البحث عن بيانات من عدة صفحات بالمعادلات.xlsm

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

السلام عليكم اهل المنتدى الكرام أقدم اليكم برنامج : لجميع الانشطة ( تجارى – صناعى – خدمى – مقاولات ) مطابق تمام لمعايير المحاسبة الدولية كافة المعاملات ( حسابات ختامية – مراقبة مخازن – عملاء – موردين – شئون عاملين – استيراد – تصدير – مستخلصات – مراكز تكلفة – خطوط انتاج – مقايسات - باركود) يشمل البرنامج :- - حسابات الاستاذ كاملة وموازين المراجعة والارباح والخسائر والمركز المالى - تكاليف العمليات وتحليل تكاليف المشروعات وبنود الاعمال بشكل تفصيلى واجمالى - مستخلصات المشروعات - الايرادات - ومستخلصات مقاولين الباطن - منظومة الاجور والمرتبات بشكل متكامل ويمكن تعديلها حسب قانون الدولة - حسابات ضريبة المبيعات والارباح التجارية والصناعية وضريبة كسب العمل وطباعة الاقرارات الضريبية - مراقبة المخازن ومتابعة كروت الصنف وتسعير المنصرف بثلاثة طرق ( الوارد اولا يصرف اولا – المتوسط المرجح – اخر سعر ) - امكانية قرائة وطباعة الباركود وبدون الحاجة لطابعة خاصة - حسابات النقدية بالصندوق والبنوك وتعدد العملات - تكاليف الاستيراد وحساب تكلفة المشتريات المستوردة - حسابات تكاليف خطوط الانتاج وحساب تكلفة الوحدة من المنتجات - تعدد المستخدمين للبرنامج وصلاحيات خاصة لكل مستخدم وسهولة اضافة وحذف مستخدم وسهولة تعديل الصلاحيات - امكانية اضافة مجموعة شركات داخل البرنامج وكلمة مرور لكل شركة - يصلح البرنامج للعمل فى مصر وفى دول الخليج العربي - البرنامج يشمل روابط شرح تفصيلى لكل اجزائه واسم المستخدم وكلمة السر admin 123 وهذا هو البرنامج: بارك الله فيكم The_fastest.rar

السلام عليكم اخوانى ما اريدة هو تعديل لكود تصدير اسماء الزوار الى ملف VCF لسهولة استدعاءة للهاتف المحمول.الكود يعمل بنجاح ولكن لاول اسم فقط ولا يقوم بتصدير باقى الاسماء الكود : Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim rst As DAO.Recordset Dim fs, f, ts, s 'انشاء الملف فى المسار المحدد بالسطر التالى ActiveControl.Hyperlink.CreateNewDocument "E:\LotusNotes_VCard.vcf", True, True ' فتح الملف المصدر Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("E:\LotusNotes_VCard.vcf") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ' استدعاء البيانات من الجدول Set rst = CurrentDb.OpenRecordset("Invetion") rst.MoveFirst Do Until rst.EOF ts.writeLine "begin:vcard" ts.writeLine "fn:" & rst![Inv_Name] ts.writeLine "tel;cell;voice:" & rst![Inv_Mobile] ts.writeLine "ts.write version:2.1" ts.writeLine "End: vcard" rst.MoveNext Loop ' اغلاق الجدول rst.Close ' اغلاف الملف ts.Close VCard.zip

السلام عليكم هل تريد انشاء لائحة باسماء الزبائن مرتبة حسب قيمة مجموع الديون على كل شخص(ترتتيب تنازلي) ؟ (اسماء الزيائن يمكن ان تكون مكررة اكثر من مرة و كذلك قيمة الديون) اكسل يفعلها بواسطة المعادلات Name_list by Sum.xlsx

أهلا بك سلمان.. أولا يجب أن يكون ظهور نموذج تعيين الطابعات الافتراضية من خلال إقلاع البرنامج فقط، لأن ظهوره مبني على أحد أمرين: _ أنك لم تقم بتعيين الطابعة الافتراضية. _ أو أن الطابعة المعينة غير متوفرة في النظام حاليا. :: هناك إشكالية مع قائمة التحرير والسر، ومربع التحرير والسرد إذا كانت وجهتها من اليمين إلى اليسار مع الخصيصة: العمود المنضم Bound Column إذا كان مصدر الصف يتكون من أكثر من عمود. ولتصحيح الخطأ المحتمل الذي وقع في الشفرة فيجب نعيين العمود الذي يحمل القيمة الافتراضية برمجيا على النحو التالي Private Sub cmAssign_Click() Call SET_PROPERTY_VALUE(CInt(Me.lbPrintersType.Column(0)), Me.cbPrintersName) Call LB_UPDATE End Sub قمت بإجراء بعض التحسينات في المرفق التالي SETUP DEFAULT PRINTER.accdb

بعتذر منك بشده استاذي الكريم ان كنت طارح تاريخ السجل 1-11-2017 وليس 1-12-2017 فجزاك الله خير مستغرب عندك يظهر فعندي ظهر عندما حولت التاريخ لشهر 12 -2017 علي كل حال ممتاز جدا كله كويس عملت لي المطلوب كامل الله ينور دربك ويزيدك علما ويبارك فيك فالف تحيه وشكر لا تجزيك استاذي لك مني دعوه بظهر الغيب شكر كثير وفيت وكفيت

تفضل ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم مبيعات حسب المحددK906.2.accdb

وعليكم السلام ورحمة الله وبركاتة انظر المرفق هل هذا ما تقصده ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم مبيعات حسب المحددK906.accdb

وعليكم السلام ورحمة الله وبركاتة أي نموذح الذي تريد تصفيته أم تقصد الاستعلام هل تقصد كل المبيعات التي تكون من التاريخ المحدد وما قبله مثلا من 1/1/2018 وما قبله او من تاريخ اليوم من 5/5/2018 إلى 5/4/2018 ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

بالتوفيق اخي ...

بارك الله فيك استاذي الكريم تمت العمليه كما قلت الف شكر اليك يالغالي ربي يعطيك العافيه تحياتي اليك

أخي العزيز استخدم الكود التالي Private Sub Emp_ID_BeforeUpdate(Cancel As Integer) 'By Nart Lebzo for www.officena.net 05/05/2018 Dim db As DAO.Database Dim rs As DAO.Recordset Dim Answer As String Dim MyMsg As String MyMsg = "Employee number is not registered " & _ vbNewLine & "Would you like to add the new employee?" If DCount("*", "TBL_Employee", "Emp_ID=" & Me.Emp_ID & "") = 0 Then 'Display MessageBox Answer = MsgBox(MyMsg, vbQuestion + vbYesNo, "Unknown Number") If Answer = vbYes Then Set db = CurrentDb Set rs = db.OpenRecordset("TBL_Employee", dbOpenDynaset, dbSeeChanges) With rs .AddNew rs("Emp_ID") = Me.Emp_ID .Update .Close End With Set db = Nothing Set rs = Nothing DoCmd.OpenForm "FormEmployee", , , "Emp_ID =" & Me.Form.Emp_ID Else 'Code for No button Press DoCmd.Close acForm, Me.Name, acSaveNo Exit Sub End If Else End If End Sub تمت التجربة ويعمل بنجاح

تفضل ........ملفك بعد التعديل . ولكن انظر الى الصورة وقم بتعديل الكود الموجود تحت الزر بما يناسبك المخزون.rar

SADAD.xlsx صديقي جرب هاد الحل

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

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

جبته من الأخر أخي الكريم فحقل id بالجدول tbl1 حقل ترقيم تلقائي فعند إضافة اسم احمد مرة أخرى سيعتبر أن احمد هذا غير أحمد الذي يحمل المعرف رقم (1) ارجو أن تكون الفكرة اتضحت ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

الخطوة الأولى فتح النموذج على نفس السجل ( المعرف) اذا كانت الخطوة صحيحة ضع الخطوة الثانية ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم dbexper11.k906.1.rar

لقد وجت الحل تعديل الكود الى : Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim rst As DAO.Recordset Dim fs, f, ts, s ActiveControl.Hyperlink.CreateNewDocument "E:\LotusNotes_VCard.vcf", True, True Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("E:\LotusNotes_VCard.vcf") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) Set rst = CurrentDb.OpenRecordset("Cus_Invetion") rst.MoveFirst Do Until rst.EOF ts.writeLine "BEGIN:VCARD" ts.writeLine "VERSION:2.1" ts.writeLine "FN:" & rst![Inv_Name] ts.writeLine "TEL;CELL;VOICE:" & rst![Inv_Mobile] ts.writeLine "END:VCARD" rst.MoveNext Loop rst.Close ts.Close

ابشر والمعذره على التاخير في الرد استاذ حسين الله يعطيك العافيه ولكن لم يفي بالمطلوب اشكرك واشكر تفاعلك

وعليكم السلام ورحمة الله وبركاتة اضف مرفق للتطبيق ::بالتوفيق:: ذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

تفضل ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم نموذج تامين السجلات خاص .1.K906باوفيسنا.rar

ملاحظاتك في محلها ومشكلة شاشة التحويل ان كود الرصيد كان يقرأ من المحول اليه وليس من المحول منه تم الضبط وايضا تم عمل كشف للارصدة نكون هنا استوفينا أساسات المشروع اتمنى لك التوفيق ،،، db14.mdb

أخوتي الافاضل من حيث انتهينا نبدأ ، وباسم الله وحوله نصول ونجول ، ونسأل علام الغيوب ان يعلمنا ما ينفعنا وينفعنا بما علمنا . أهمس باذنكم أخوتي بان قلة التفاعل تورث هبوط الهمة ، وتنزع فتيل الاندفاع ، وقد واجهت هذا الامر أكثر من مرة حتى أنني احتسبت في نفسي حساباته قبل ان اطرح هذا الموضوع ، وصممت على الاستمرار ، لأن فعلي وقولي قد احتسبته عند الله ابراءا للذمة في علم تعلمته بفضل الله ، ولا يفهم هذا عتابا لا بل جزء من علم ويقين أدركته من فضل علام الغيوب. أخوتي الافاضل بدأت بانشاء قاعدة بيانات افتراضية للتطبيق ، هذه القاعدة و من - باب التأكيد عل الفكرة التي اطرحها - آمل ان ترتبط باي قاعدة بيانات مهما كانت غايتها ، و سنعمل ان تكون كأدة أو تطبيق مستقل خاضع للتعديل وملحق بتطبيقات الاكسيس لغايات الأرشفة. عبر تجاربي البسيطة والتطبيقات التي قمت بانشائها أعمل حاليا على تجزئة الافكار و اعطائها حقها من التفكير و التحليل والتطبيق بشكل مستقل بعيدا عن حشرها واقحامها في التطبيق الرئيسي ، حيث أن اقحام الافكار ببعضها ودمجها يورث التطبيق تضخما وتشعبا يعيق تطوير الافكار نتيجة للتشابك والترابط ويزيده تعقيدا. ببساطة !! نريد قاعدة بيانات لأي غاية لنقوم بالتعامل معها في مراحل انجاز مشروعنا ، وهنا أدعو أخي الفاضل ابا عبدالله لارفاق قاعدة بياناته ( كجداول فقط ) ، وهذه القاعدة ستخضع لعملية تحليل لتحديد ما يلي : أولا: الحقل الذي ستعتمد سجلاته لغايات الربط مع أسماء الملفات ، والربط هنا ربط بالتسمية وليس ربطا بالعلاقة و الاقتران ، حيث ستكون قيمة هذا الحقل جزءا من اسم ملفات الارشفة الخاصة بهذا السجل . ثانيا: أعداد وتسميات مجلدات الأرشفة اللازمة للتطبيق المرفق ، مثلا ،، مجلد رئيسي للوارد يتفرع داخله مجلد للوارد العام وآخر للوارد السري ... وهكذا ، وصاحب التطبيق هنا أدرى بشعابه فيوضح لنا الاخ ابو عبدالله هذه التفاصيل بدقة ، حيث ان هذه المعلومات جزء من بنية و صياغة أحد النماذج والقائم على مراقبة وجود وانشاء المجلدات برمجيا ، بدون تدخل منعا للتكرار و الاخطاء المورثة لمنع الربط اللاحق. وهنا أود ان أنبه لمسألة ذات أهمية ، وهي أن للأرشفة المرتبطة بالتطبيقات غايات رئيسية معلومة ، وتنفيذ هذه الغايات يتحقق بأحد منهجين – فيما أعلم - : أولها : إعتبار الوثائق المؤرشفة مصدر معلوماتي رئيسي وغاية من الأرشفة ، وهذا يؤثر مباشرة على حجم ونوع المعلومات المتضمنة في قاعدة البيانات وتكون في غالبها للاستدلال و الاحصاء و الرقابة ، ويؤثر على منهج وآلية تسمية الملفات المؤرشفة وآليات تسميتها وفق كودات ( قوالب ) معينة. وثانيها : أعتبار الوثائق المؤرشفة دعم توثيقي أو توثيق محوسب ( Soft Copy ) لمنظومة المعلومات ووثائقها الورقية ، وهنا يكون حجم المعلومات في قاعدة البيانات الرئيسية كبيرا وشاملا لكافة المعلومات اللازمة للاستدلاء و التفصيل و الاحصاء و الرقابة ، وتكون عند تحديد آليات تسمية الملفات المؤرشفة مخيرا بين بساطة ويدوية التسمية أو آليتها. والجمع بين المنهجين وارد ولكن قد يكون فيه تزيد وهدر للجهد و الوقت و الامكانات ، وتشعر مع تطبيقه بالثقل . وتأسيسا على ما تقدم ندرك أهمية التروي عند تحليل قاعدة بياناتنا التي نعزم على اضافة خدمة الأرشفة اليها. بانتظار قاعدة البيانات ( بعدد كاف من السجلات للوارد والصادر بفروعه) من أخي أبي عبدالله ، بالاضافة لما تجود به قرائحكم من مساهمات و ارشادات وأفكار. والله من وراء القصد وللحديث بقية ....

أخي ابا خليل بارك الله بك ونفع بعلمك ، ما وهبنا الله بعض مما وهبك ، وشكر الله لك ادبك وزادك بسطة في العلم والعقل. أخوتي الافاضل من حيث انتهينا نبدأ ، وباسم الله وحوله نصول ونجول ، ونسأل علام الغيوب ان يعلمنا ما ينفعنا وينفعنا بما علمنا . من خلال القاء نظرة سريعة على المشاركات التي تتعلق بالارشفة الملحقة بالتطبيقات نجد ان جلها ينصب على ما يلي : ارفاق أكثر من وثيقة او مرفق للسجل الواحد وهناك تصريح متوافق بان هذه المرفقات تكون من انواع شتى من الملفات ذات الامتدادات المختلفة كما نجد توافقا على ضرورة حفظ هذه الملفات في مجلدات مختلفة خارج قاعدة البيانات وحسب طريقة معينة متصورة غير موضحة ويطلب الجميع ربط هذه المجلدات وما تحوي من ملفات بالتطبيق وبسهولة للعودة اليها عند الحاجة ويستمر الطلب بأن يكون اجراء الارشفة ( وحصرا ) عبر الماسح الضوئي Scanner من خلال النظام متوافقا مع ادخال المعلومات . والغاية من الارشفة هنا سهولة الحصول على المعلومات ورغم تعدد اساليب الطرح و الحاجات التفصيلية الخاصة الا ان ما ورد مجمل القول وأعمدة بحثة – فيما أدركت – وقد أكون أغفلت ما لم ادرك . فمن هنا أظن بداية البحث و الحوار ، فان كان على ما اوردت زيادة فاعينوني .