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

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

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

ترليون مبروك الأخ ابو ياسين مكسب لهذا الجروب فهو فعلا خبير ويستحق الترقية والتكريم 🧡

شوف أخي اول شئ انت حطيت اسم و بعض بيانات المريض في رأس تقرير و من المعروف رأس تقرير يظهر مع صفحة الاول فقط لا مع باقي صفحات و فعلا من الصعب طباعة تقرير لكل مريض على حدى و الان تم نقل تلك البيانات ال رأس صفحة و عمل تقرير واحد لجميع مرضى بصفحات متعددة (لكل مريض صفحة) تماما كملف PDF ولا داعي تحويل الى PDF يمكن طباعته على الورق متى ما شئت اضفت زر اضافي بأسم (معاينة) عند ضغط علىه سيظهر لك تقرير في عرض معاينة يمكن تنقل بين صفحات من خلال اسهم اسفل تقرير و اذا حبيت تحويل الى PDF اضغط اختصار ctrl + p و غير طباعة الى Microsoft print to pdf اضغط على موافق اكتب اسم الملف و اختر مكان حفظ ثم ok أو موافق اما عند ضغط على الزر السابق ، سيطبع جميع صفحات مباشراً دون عرض معينة الى طابعة افتراضي (طابعة الورق أو Microsoft print to pdf او اي طابعة اخرى) Lab.rar

مبروك الشارة @ابو ياسين المشولي وبالتوفيق والمزيد من التألق

الف . الف . مبروك أخي @ابو ياسين المشولي الترقية .... تستاهل .... اعانك الله على بذل المزيد من الجهد

الف . الف . مبروك أخي @ابو ياسين المشولي الترقية .... تستاهل .... اعانك الله على بذل المزيد من الجهد .

مبروك أستاذ فعلا تستحق بجدارة تحياتي

الف مبروك ابو ياسين متميز ويستحق بجدارة

طهور ان شاء الله أسأل الله الكريم أن يجمع لك بين الأجر والعافية

اعرض الملف النسخ الاحتياطي والضغط بخيارات متقدمة بسم الله الرحمن الرحيم كل عام أنتم بخير وسعادة ورضا بمناسبة عشر ذي الحجة وعيد الأضحى المبارك أعاده الله علينا جميعا بالصحة والسعادة استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم بالتعامل مع قواعد البيانات النسخ الاجتياطي أو الضغط والإصلاح بطريقتين أولا لقاعدة البيانات الحالية والثانية لقاعدة بيانات يتم تحديدها مع إمكانية استعمال المجلد الحالي أو أي مجلد يتم تحديده كمكان للنسخ أو الضغط والنسخ وكل ذلك في نموذج واحد وبأبسط كود ممكن ويوجد في الملف الكثير من الأكواد التعليمية الرائعة مثل: استعمال متصفح الملفات المضمن في الأوفيس بدون دوال الويندوز استعمال متصفح المجلدات المضمن في الأوفيس بدون دوال الويندوز استخلاص اسم الملف من مساره الكامل استخلاص امتداد الملف من مساره استخلاص اسم الملف بدون امتداده من مساره استخدام أوامر الدوس داحل الأكسس ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل بإذن الله إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 12 أغس, 2018 الاقسام قسم الأكسيس

بسم الله الرحمن الرحيم برنامج صغير سهل الأستخدام للمنشآت الصغيرة سهل وحجم البرنامج صغير ،أكسس 2003 الرقم السري 1975 ، أي ملاحظات نرجو الأفادة item.mdb

جرب هذاالماكرو Option Explicit Sub test_5() Dim str$: str = "غ" Dim k%: k = 30 Dim cont%, col% Dim i%, x%: i = 3 Range("Ag5").Resize(3, 3).ClearContents For col = 5 To 7 For x = i To k If Application.CountIf(Range(Cells(col, x), Cells(col, x + 7)), str) >= 5 Then cont = cont + 1 Cells(col, "ag").Offset(, cont - 1) = "Ok" & cont x = x + 5 End If Next cont = 0 Next End Sub الملف مرفق للمعاينة Inzar.xlsm

ما شاء الله تبارك الله .... تستاهل يا بطل ... الف مبروك

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

خبيرنا / @ابو ياسين المشولي تستحقها وبجداره مبارك عليك اللقب

شوف جرب هذا المرفق يطبع كل اللي في التاريخ الموجود بالنموذج حاول تعمل كم تقرير بتاريخ اليوم ولاحظ بيطبع ماهو بالتاريخ اللي موجود بالنموذج Lab.accdb

شكرا أستاذى @ابو ياسين المشولي اشتغل على الكوتى التالى Function AddMonth(XDate As Date) As Single

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

أخي @ماجدجلال تفضل ..... 1200.mdb

مبارك ترقيتك أستاذنا الفاضل @ابو ياسين المشولي وتساهل ومنها إلى الأعلى

تستاهل تستاهل و أكثر يا أخونا @ابو ياسين المشولي ألف ألف مبروك دائما الى الامام

جرب هذا Function AddMonth(XDate As Single) As Single

انظر الملف pdf تم انشاء الملف بضغطة زر واحد كل مريض في صفحة مستقلة ، لو وصلنا الجهاز مع طابعة أوراق سيطبع نفس صفحات على الورق و بضغط زر واحد طبعاً ppp.pdf

تفضل الكود اخي الكريم dim x1 x1= "مسار الصورة" Kill (x1)

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

الله يبارك فيك اخي kaser906 واشكر المنتدى على هذة الثقه الله يبارك فيك اخي ابو البشر الله يبارك فيك ازهر عبد العزيز الله يبارك في ايامك اخي kha9009lid انت بصماتك معروفه في هذا المنتدى الله يوفق الجميع لما فيه الخير

الله يبارك فيك اخي Ali Mohamed Ali وانه لشرف كبير ان انظم الى عائله خبراء الاكسس والف شكر لهذا المنتدى الغالي على قلوبنا والله يعين الجميع على فعل الخير تسلم اخي عبد اللطيف سلوم انت كذلك ان شاء الله نشوف ترقيتك لما تبذله من مساهمات قيمه في هذا المنتدى الله يبارك فيك اخي حسين وانت كذلك تستحق هذا اللقب وان شاء الله نشوفك بلقب خبير عن قريب الله يبارك فيك اخي الله يبارك فيك اخي kaser906

الف مبروك استاذى @ابو ياسين المشولي

والله ما نزلتو يا غالي

أخى عبداللهM أعتقد أنه يتم نسخ الآداه أولا الى C:\Windows\SysWOW64 إذا كان ويندوز 64 بت أو الى c:\Windows\System32 إذا كان ويندوز 32 بت يتم فتح CMD كمدير (Run As Administrator) إنسخ الأمر التالى والصقه فى محرر الأوامر CMD regsvr32 C:\Windows\SysWOW64\DBPix20.ocx أو regsvr32 C:\Windows\System32\DBPix20.ocx إضغط إنتر أرجو أن يفيد

مبروك الترقيه ..... موفق ....تستحق بكل جدارة ....

اخى جرب هذا الملف والفكره تحياتى اختيار خلايا محددة.accdb

مشكور اخوي @bidheel2009 والملف عندي شغال وعال العال

يمكنك استخراج تقرير شهري بكل السنة .. توضح أمام كل شهر المسحوب والمدفوع

جرب المرفق nm.mdb

تفضل حساب عدد السنوات1.xlsx

جرب هذا الملف Why_not.xlsx

جرب هذا الملف Updated data_val.xlsm

الملف اللي انا اؤسلته وهو عندي يعمل بمتياز

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

يمكنك استعما ل هذه المعادلة ( اشارة = في الاول و القوس في النهاية ) كل الحق على اللغة العربية =IF(COUNTIF($B$1:$B1,$B1)>1,"",$B1)

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

بماء انه يوجد تفاعل للموضوع سأقوم بشرح موجز عن ما صرحت به فمن الردود يتضح ان بعض الاخوة قد فهمي كلام خطأ ما قصدته انك تستطيع تنفيذ تصميمك على نماذج الاكسس بنسبة تصل الى 90 % على صفحات ويب كذلك كونك على علم باستخدام SQL في الاضافة و الحذف و التعديل فأنت مؤهل لاستخدام Microsoft Visual Basic الخطوة الأولى ( كيف يمكنني الاتصال بقاعدة البيانات من خلال صفحت الويب ؟؟؟ ) سوف اتحدث عن نفسي 1- قمت بانشاء حساب على موقع somee 2- انشأت قاعدة بيانات على نفس الموقع من نوع SQL و هو مجاني 3- قمت بتصدير قاعدة بيانات الاكسس على قاعدة البيانات في الموقع ** ملاحظة ( ليس من الضروري ان تقوم بانشاء قاعدة بيانات على نفس الموقع فأنت تستطيع ربط الصفحة بقاعدة بيانات الاكسس ) 4- بعد الانتهاء من اجراءات قاعدة البيانات ستجدون ادناه اكواد الاتصال بقاعدة البيانات استدعاء مكتبة الاتصال Imports System.Data Imports System.Data.SqlClient الاتصال بقاعدة البيانات Public con As New SqlConnection("Data Source=[اسم قاعدة البيانات على الموقع].mssql.somee.com;Persist Security Info=True;User ID="اسم المستخدم";Password= كلمة المرور") Public ds As New DataSet Public da As New SqlDataAdapter Public dt As New DataTable نبدء هنا بجلب و ارسال البيانات محاكاة انشاء صفحة تسجيل دخول x2= اسم الجدول x3= اسم العمود في الجدول و النفترض - اسم المستخدم x4= اسم الحقل في الصفحة - اسم المستخدم x5= اسم الحقل في الصفحة - كلمة المرور x4= اسم العمود في الجدول و النفترض - كلمة المرور da = New SqlDataAdapter("SELECT * FROM X2 WHERE X3='" & 4X.Text & "' AND X5='" & X6.Text & "' ", con) da.Fill(dt) اذا كان عدد السجلات التي تم جلبها في جملة الاستعلام اعلاه هو 1 If da.Fill(dt) = 1 Then قم بجلب البيانات ... البيانات التي سيتم تمريرها بين صفحات الويب مثال لجلب اسم المستخدم الذي تم تسجيل الدخول به dt(0)("User") لتمرير اسم المستخدم بين الصفحات Session("USERNAME") = dt(0)("User") Else Labe.Text = "اسم المستخدم او كلمة المرور خطأ" End If اعزائي بما انكم قادرين على التعامل مع SQL و اكواد الاكسس فلن تجد صعوبة في انشاء موقع الكتروي و بصورة سهلة جدا من اراد البدء في انشاء اول موقع الكتروني فاليبادر بانشاء موضوع جديد و البدء في الاستفسار كيف تبدء 1- قم بتثبيت Microsoft Visual Basic ( ان حاليا استخدم الاصدار 2012 ) 2- قم بانشاء حساب على الموقع اعلاه somee

في اعتقادي انه حتى الان لا يوجد تطبيق يفتح نماذج الاكسس الافضل ان تقوم بإنشاء صفحات ويب بنفس تصميم نماذج الاكسس لديك بعدها تستطيع رفع تلك على الصفحات على اي استضافة مجانية مع قاعدة البيانات كانت لدي نفس المشكلة و قمت بعمل نفس الحل مرفق رابط الموقع فقط للاطلاع طبعا هذا الرابط متوافق فقط مع الهواتف اما اجهزة الحاسب الآلي لا و هذا بناء على طلب العميل فقط باضافة الكود التالي للتصميم و بناء جميع العناصر بكامل حجم مساحة العمل <meta name = "viewport" content = "width=device-width; initial-scale=1.0; maximum-scale=1.0; user-scalable=0"/> الموقع الذي تم تصميمه مع العلم بأن هذا الموقع مرتبط قاعدة بيانات اكسس

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

وعليكم السلام تم زيادة الخلايا وبالفعل لدى القائمة المنسدلة الإستكمال التلقائى وهو بمجرد كتابة الحرف الأول وفتح سهم القائمة سترى الأسماء التى تبدأ بهذا الحرف ولا يمكن عمل أكثر من هذا فى موضوع القائمة المنسدلة بارك الله فيك تم التعديل هنا قائمه منسدله مطاطية تقبل البحث فيها بدون تكرار وبدون فراغات.xlsx

أحسنت أستاذ سليم بارك الله فيك وزادك الله من فضله وكل عام وانتم بخير

الاخوة الافاضل العزيزين على قلبى اقدم لكم شرح مبسط لداله VLOOKUP للمبتدئين هذا الشرح عملته لاحدى اعضاء المنتدى وحبيت اعمله مشاركه مستقله حتى يعم النفع مثلا عندنا جدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c والجدول هذا بشيت اسمه الطلبه مثلا وحنا الان فى شيت اسمه الفصل مثلا فى الخلية A1 مكتوب اسم الطالب محمد احمد وانا عايز بالخلية B1 ابحث عن اسم الطالب ده بالجدول واجيب جنسيتة كدا تمام داله VLOOKUP هى دالة بحث تتكون من اربع اقسام كالتالى اول شئ نقف بالخلية b1 اللى هنعمل فيها المعادله ونكتب ) VLOOKUP= اولا الخلية اللى هندور عليها بالجدول وهو فى هذا المثال نحتاج الى البحث عن اسم الطالب صح اذن نقول ; VLOOKUP(A1= بس نقف هنا فى فاصله بعد A1 صح دى بتتكتب من شيفت+ حرف ك بالعربى على الكيبورد كدا تمام ثانيا حنا عايزين نبحث عن اسم الطالب ده فين فى اى جدول فى شيت الطلبه فى الجدول من A1:c5 طيب كدا حلو قوى لحد كدا نرجع بقى نكمل المعادله بتاعتنا ونقول ;A1:c5!الطلبه;VLOOKUP(A1= ونقف هنا طبعا ايه اللى انضاف اسم الشيت وهو الطلبه متبوع ! علامة التعجب هذه هتقولى ازاى نكتبها هقول شيفت + رقم 1 اللى فوق جنب حرف ذ بالكيبورد طيب كتبنا اسم الشيت وبعدها ! ثم الجدول بتاعنا وهو A1:C5 ثالثا القيمة اللى احنا عايزنها من الجدول هو احنا بنعمل المعادله دى ليه اصلا من علشان نجيب الجنسية للطالب اللى موجود بالخلية A1 من الجدول اللى بشيت اسمه الطلبه حلو طيب الجدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c طيب احنا اتفقنا انى انا عايز اجيب الجنسية ( عمود الجنسية هنا كم رقمه من الجدول رقمه 2 برافو نرجع بقى نكمل المعادله ;2;A1:c5!الطلبه;VLOOKUP(A1= ايه الزياده هنا هو رقم 2 اللى هو رقم عمود الجنسية بالجدول صح رابعا كتابة 0 أو 1 ( الزيرو يعنى ابحث عن اسم الطالب مطابقه تامه يعنى لو الخلية A1 فىها محمد احمد يروح يدور بالجدول على الاسم ده بالملى ولو لقى اسم طالب محمد احمد على ملوش دعوه بيه لانه مش نفس الاسم صح فية اختلاف عنه وهو على &&& اما 1 فهو البحث عن اسم الطالب بالجدول فممكن يكون موجود محمد احمد على فيجيبة لانه بيبحث عن اى جزء مشابه فلافضل اختيار 0 ) نرجع بقى نكمل المعادله (0;2;A1:c5!الطلبه;VLOOKUP(A1= ايه اللى انضاف جديد هو 0 وقفلنا القوس لان المعادله كدا خلصت بقت باللون الاخضرمنورة كدا تمام يبقى مننساش انى فى اربع اقسام للداله ما بين كل قسم نحط ( ; ) وهى قلب اللغه انجلش وبعدين شيفت وحرف ك اتمنى اكون وفقت فى هذا الشرح المبسط ويعم النفع على الجميع

السلام عليكم ورحمة الله وبركاته يبدو انه لايوجد حل لهذه المشكلة ؟ هل هذا صحيح ؟ ام هناك امل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟