الدرس الاول صادر وارد 

اشكرك اخوية ربي يحفظك

وتقبل تحياتي كل عام وانت بالف خير

السلام عليكم هل يوجد للاستاذ محمد حساب على الفيسبوك

اشكرك

اشكرك اخي العزيز

شكرا

وبيك اخوية ان شاء الله قريبا

وايدك اخوية

اشكرك

احسن الله لك

وفيك اخوية

ويبارك بعمرك

اشكرك

اخي العزيز البرنامج مشروح خطوة بخطوة وبكل بساطة وكتير من الاصدقاء صمموا البرنامج

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

جرب هذا drive.google.com/file/d/1iActW9JPgUmCSZOjXIovdPDsnS818Jnt/view?usp=sharing

ان شاء الله بس اجد الوقت

وعليكم السلام ورحمة الله وبركاته moona3146 @gmail.com

ارسل لي قاعدة البيانات للتصحيح

معاينه الكتاب ليس كود هي استعلام

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

@@access3588 يعطيك العافية أستاذي الفاضل. شكراً لك.

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

السلام عليكم اخي العزيز اريد اشتري منك برنامج ارشفه

سؤالك كان في بالي اتمنى الاستاذ يجاوبنا

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

@@access3588 شلون يعني ااستاذ ممكن توضيح اكثر بخصوص الاستعلام

جاوبتك اخي

تسلم ورد

من برنامج convent DB to exe

شكرا

2016 مافي مشكلة لكن بعض الكودات تتطلب 32 بس تكدر تتجاوزه بالبحث عن كودات مشابه

اخي تم تحديث الروابط وهية شغالة ان شاء الله

drive.google.com/file/d/1iActW9JPgUmCSZOjXIovdPDsnS818Jnt/view?usp=sharing

انحلت المشكلة ؟

عندي نفس المشكلة استاذ

​@@access3588 نفس المشكلة ممكن حل استاذ

اعتذر منك البرنامج تم شرحه بالتفصيل يمكنك العمل في تصميمه

@@access3588 تسلم استاذ، ممنون منك

اشكرك على الدعاء moona3146@gmail.com

احسنت جزاك الله خير الجزاء

@@access3588 استاذ الله يحفظك طبقت ع الشرح بالحرف الواحد لكن معادلة نوع الكتاب الفزبل لماذا لاتعمل ثابت عند فتح النموذج وتنفيذه اختيار الصادر ثابت لايتحرك ع تموذج الفرعي الوارد مع العلم اني اعمل ع اوفس ٢٠١٠

@@raghadjassim4115 اخي العزيز لازم تعمل ربط بين الفورم الرئيسي والفورم الفرعي مثل ما انا عامل بالفديو

يتحول بس ركزي على كتابة الاسماء بالكود واذا ما ضبط ارسلي الملف للتعديل

@@access3588 تم ارسال الملف لحضرتك على الايميل

@@user-lb8su9xr3e ارسلت لكي الملف بعد التحديث

عادي جدا .. نوع الكتاب لثالث شو ؟؟

ما فمتك يعني شنو اكثر من كتاب ؟؟ اكو صادر واكو وارد

حمله مرة ثانية تم تحديث الرابط

امسح قاعدة البيانات وارجع ادخل كتاب واحد وجرب عملية البحث

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

ما فهمت كلامك اخي ؟؟

نفس المشكلة واجهتني

اخي ارسلي الملف للتصحيح

@Ehsas Khaled If [نوع الكتاب] = "صادر" Then [صادر].Visible = True [وارد].Visible = False Else If [نوع الكتاب] = "وارد" Then [صادر].Visible = False [وارد].Visible = True End If End If

drive.google.com/file/d/1iActW9JPgUmCSZOjXIovdPDsnS818Jnt/view?usp=sharing

ارسلي الملف على الايميل

ارسل البرنامج بالايميل للتعديل

ارسلي الملف للتصحيح

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

باستعلام تحديث

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

@@mmmm-jh7zi لازم تعريب الاكسس ارسلي على الايميل حتى ارسلك صور للتعريب moona3146@gmail.com

كتبت لك بالايميل ابعتلي البرنامج للتصحيح

كيف كان الحل عندي نفس المشكله

ما وصل على الايميل moona3146@gmail.com

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

عملتها نفس الكود الموجود وفعلت خاصية الاسكنر

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

@@khalidftmm9927 اكتبلي بريدك الالكتروني لان الرسائل كتيرة ولا اعلم اي رسالة لك

شكرا لك بريدي هو khalidftm@gmail.com و واتس اب هو 07826644177

مافهمت يعني رصيد واحد تعممه الى 10 ايام

لا عفواا .. عندي برنامج اجازات . كل موظف يستحق اجازة 3 ايام بالشهر يعني بالسنة يستحق 36 يوم مثال موظف تاريخ تعيينة 2022/1/1 يستحق رصيد اجازات 3 ايام عن كل شهر اليوم هو 2022/9/9 // كم اجازة يستحق كيف اعمل الطريقة تلقائيا

@@access3588 هذا الي قصدته

شوف اخوية اول شي تعمل مربع نص يجيبلك التاريخ وتعمل دالة لاستخراج الشهر من التاريخ ثم استخراج السنه من التاريخ وهنا يبدأ العمل كل شهر لكل سنه يضيف ٣ ايام في مربع نص وبنفس الفورمة استعلام هل هذه الشهر بهذه السنه كتبت فيها ٣ ايام او لا اذا كتبت لا تكتب مرة ثانية واذا لا يتم اضافة رقم ٣ بدالة if هاي اذا فرضنا الموظف له بالشهر ٣ ايام اجازة فقط وراح تكدر تجمع بالسنه شكد اجازات عن طريق اختيار السنه ودالة الجمع .

moona3146 @gmail.com راسلني على هذا الايميل

ما هية مشكلتك اخي حتى احاول اساعدك هنا

@@access3588 المشكله في كود السكانر والحاسب ... يعطي خطأ في الكود >>> ولما عدلت على كود الحاسب استورد صوره بس ما عمللها معاينه .....

اخي العزيز اول شي لازم اتعرب الاكسس حتى يقبل عربي انت شو تستخدم نظام وندوز 7 او 10

@@access3588 جزاك الله خيرا استاذنا استخدم وندوز 7 مايكروسوفت اوفس 2019

@@haiderasady1956 moona3146@gmail.com راسلني هنا حتى ارسلك صور تفعيل العربي لان هنا ما تندز صور

@@access3588 تمام استاذنا

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

@@access3588 شكرا الك

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

@@access3588 استادي الفاضل انا نقصد في المحاظرة اولي عندما تم جلب الوارد والصادر ودخلت كود الصادر والوارد عندها لم يتم تحديد نوع ان كان واررد او صارد مع اني حدد نوع القائمة مربع تحرير وسرد

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

@@access3588 ما اشتغل معايا انا ماشي معاك خطوة بخطوة الي الدرس التاني وقف رجاءا ابعتلي ايميلك وراح ابعتلك الملف شكرا علي تعاونك معي

لو سمحت زبط الاعدادات التاريخ اليوم و حط حركات الحلوة عليه

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

@@access3588 أخي الفاضل لم أدخل الأكواد بالأصل لأنه من ضمن الكود وجدت هذه العلامات الإستفهامية

@@mahdimohammad8525 العلامة الاستفاهمية هية كلام عربي عادي يعملك عندك مافي مشكلة

@@access3588 ادري استاذنا لكن شو هذا الكلام العربي يعني "طباعة من ملف" مثلا

@@mahdimohammad8525 [مسار الصورة] = Null On Error Resume Next Dim filelocation As String Dim diagfile As FileDialog Set diagfile = Application.FileDialog(msoFileDialogSaveAs) diagfile.title = "اختر مكان حفظ الصورة" diagfile.InitialFileName = [id] & ".jpg" If diagfile.Show Then filelocation = diagfile.SelectedItems(1) Dim scandiag As New WIA.CommonDialog Dim image As WIA.ImageFile Set image = scandiag.ShowAcquireImage image.SaveFile filelocation Me.[مسار الصورة] = diagfile.SelectedItems.Item(1) End If

تاكد بكتابة صادر ووارد بالكود بدون مسافة فارغة

@@access3588 نفس المشكله يا استاذي

@@abonaif-ix6bd ارسل الملف للتصحيح

@@access3588 ابعت لي ايميلك استاذي

@@abonaif-ix6bd MOONA3146@GMAIL.COM

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

@@access3588 شكرا

اعمل مع الكود تحديث اذا صادفتك هيك مشكلة

@@access3588 اي تحديث

كل شي ما يشتغل عندك ... ولا بس عند اختيار الصادر والوارد ؟؟

@@access3588 ستاذ دزيتلك الملف ع الايميل عندي الازرار ما تشتغل كذلك نافذة نوع الكتاب ما تشتغل كذلك من افتح المعلومات الاساسية يتعذر اله اكثر من مره يلا يفتح

زر السكنر وبقية الازرار التي ادخلت عليهن الاكواد

@@user-eg9hr8oo9z ارسلي الملف لتعديل كود السكنر

@@access3588 دزيتلك الملف ستاذ على ايميلك

ارسلي على الايميل حتى اشوف الخلل وين

@@access3588 استاذ دزيتلكيا

@@memennsh4277 تمام دزيته

moona3146@gmail.com ابعت الي بدك من معلومات

السلام عليكم ارسلت التفاصيل شكرا على الرد

@@user-nd1vy4nd4d ارسلت لكي

@@access3588 السلام عليكم ارسلت لحظرتك نسخه ارجو اذا تكدر تحدد وين الخطأ شكرا

@@user-nd1vy4nd4d ان شاء الله

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

تعلم اكسس Access لا ماكدرت تظهر هذه الرسالة فقط ولا استطيع الدخول لكتابة الكود

تعلم اكسس Access في هذه الخطوة بالذات الهدف من الدخول للكود هو لتكبير الشاشة ولاحظت في الخصائص توجد فقرة (fit to screen) فهل تعوض عن كتابة الكود؟ لكن ما العمل في بقية الكودات التي لا يمكن الاستعاضة عنها مثل تسليك الازرار (سحب الكتاب من سكنر.. الخ)

تعلم اكسس Access راح اكمل واشوف وارجع اكتب هنا.. ارسلت لك ايميل ارجو قرائتة

@@surasalah6625 كتبت بالايميل طريقة تصحيح البرنامج

موجود بالوصف مال الفديو

moona3146@gmail.com

اشرحلي شنو الاخطاء

@@access3588 استاذ من اختار السنة اللي بيها عدد الكتب الصادر والوارد خلال هذه السنة مايختارها وماتشتغل والخطأ الثاني عمل نسخة احتياطية مايصير

@@alaahussein5669 اخي بس ركز على الفديو

@@access3588 تمام ان شاء الله اعيد الفديو ونطيك خبر ممنون منك على التواصل الله يبارك بيك

اي وحدة نمطية تقصد .. ازرار السكنر ؟؟؟

@@access3588 نعم ازرار السكنر والهارد عن التشغيل ظهر خطا

@@osamaalghazaly7361 بس خليلي الكود هون الي لصقته

@@access3588 استاذي الكريم بارك الله فيك على الشرح عند عمل ازار الخاصة بمسار الصورة(نسخ من السكنر ونسخ من الهارد) النسخ من السكنر اشتغل ولكن من الهارد لم يتم تحميل اي صورة يرجى التوضيح جزاكم الله كل خير

@@access3588 On Error Resume Next Dim filelocation As String Dim diagfile As FileDialog Set diagfile = Application.FileDialog(msoFileDialogFilePicker) diagfile.title = "حدد المسار" If diagfile.Show Then Me.[1] = diagfile.SelectedItems.Item(1) End If

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

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

@@luayfadhil8635 بدون مرفقات او تنبيه

@@access3588 مرفقات فقط ماذا تقصد ب تنبيه؟؟

moona3146@gmail.com

@@access3588 تم ارسال الملف

تفضل

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

@@user-zl2pj5bg3v عادي هية بملف اكسل لو اكسس

لا يوجد كود للطباعة اعمل استعلام تقرير وجيب بي صورة على كبر الورقة ثم اكتب معيار يجيب رقم الكتاب الي بدك تطبعة مع مراعات تسمية الصورة حرف m وجعل مسارها مسارة الصورة

moona3146@gmail.com

@@access3588 السلام عليكم استاذ ممكن سؤال ربي يحفظك

@@user-zl2pj5bg3v اوك

ارسله لي

دزلي ايميلك اذا ماكو زحمه او واتساب رقمك

mustafa.musa.jafar@gmali.com

@@ENGMustafaMusa moona3146@gmail.com

استاذ دزيتة الك ياريت تشوفه