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

اهلا بك @حربي العنزي هذا لاستخدام الى الاسفل Int(Me.Text0 / 10) * 10 وهذا الى الاعلى Int(1 + Int(Me.Text0 / 10)) * 10 وانتظرني سافتح باذن الله موضوع جديد مع فانكشن لكي تقدرون تستخدمون مع الاستعلامات بشروط

اقصد اعزائي هذا التعبير =Format(0.2445,"0.000") يعطيك ناتج 0.245 ولو تم ضربه في 100000000 سيكون النتاج 24500000 بينما الرقم اصلا 0.2445 والذي لو ضرب في 100000000 سيكون الناتج 24450000 والفرق سيكون خمسون الف القصد بانه الدالة شكلا وليس قيمة الرقم وكان قصدي تنبيه فقط اما الاستاذه فكفو وأوفو تحياتي

يوجد كثير من الوحدات النمطية هل يمكن اختصاراها وازالة ماهو ليس له فائدة بعض اختصار البرنامج علي الصادر فقط ، من الملاحظ من اسم الوحدة النمطية ليس لها دور الآن لا يوجد وحده نمطية الان ليس لها اى دور مثل mod_Delete_Files وغيرها من الوحدات الغير مستفاد منها في برنامجي الصغير. ياريت استاذي العزيز ان نختصر بقدر الامكان من عدد الوحدات النمطية . هذه الوحدة النمطية تحذف المرفقات لو حذنا السجل ها محتاج نحذفها براحتك لكن عند حذف سجل محدد يبقى مجلد المرفقات كما هو بالمرفقات جرب زر الامر حذف سجل وتأكد ان لهذا الرقم مرفقات وعندما يطالبك بكلمة مرور الحذف " 123" هل يمكن عند الضغط علي زر " استعراض ملف المرفقات" ولم يوجد للرقم الصادر اي صور ان يعطي رسالة " هذا الرقم ليس له اي صور " نعم ممكن ذلك غير الكود على زر الامر " استعراض ملف المرفقات" بالكود الاتى Dim attash_file As String attash_file = db_path() & "archives\" & "sader\" & [ID] & "\" If Dir(attash_file, vbDirectory) = "" Then MsgBox "هذا الرقم ليس له اي صور" Else ShellExecute attash_file End If لماذا عند اخذ صورة من الكمبيوتر " في زر "ادراج مرفقات من الكمبوتر " لا يدعم الصور التي من نوع PDF ويعطي في مجلد الصور غير متاح مين قال الكلام ده البرنامج يقبل اى مرفق باى امتداد حتى لو كان exe بعض الاكواد داخل الفيجوال غير مستخدمة وانا خايف احذف شئ لا يعمل البرنامج معي . مثل اكواد ملف الوارد وغيرها انا فعلا كنت ناسي كود واحد فقط الان لا يوجد اى اكواد غير مستخدمه راجعت كل الاكواد وحتى لا اشق عليك اليك المرفق بعد التعديل لا يوجد كود غير مستخدم ولا يوجد وحده نمطيه بلا فائده halabi.rar

شكرا أبا خليل طريقة أخرى شاهد استعلام2 عد غياب المواد.rar وللمادة الموحدة للكل مثل اللغة العربية ara22: DCount("[ar_2]";"شيت رئيسي";"[dept_code]=276 and [school_code]=" & [school_code] & " and [ar_2]='" & "غ" & "'")

وعليكم السلام تفضل التعديل على الكود الموجود ضع كل سطر في حقل في الاستعلام يمكنك بمثل هذا التعديل تستخرج الغياب من الذكور والاناث ايضا غ_دين_مسلم: Val(Nz(DCount("Male_code";"شيت رئيسي";" dn_2='" & "غ" & "'" & "and dept_code=" & [dept_code] & "and school_code=" & [school_code] & "and Moslem_code=1");0)) غ_دين_مسيحي: Val(Nz(DCount("Male_code";"شيت رئيسي";" dn_2='" & "غ" & "'" & "and dept_code=" & [dept_code] & "and school_code=" & [school_code] & "and Moslem_code=2");0)) عد غياب المواد3.rar

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

ربما يفيدك هذا الملف

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

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

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

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

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

شكر الى الاستاذ Shivan Rekany والى الاستاذ محمدنجار على الاجابة جعلها الله في ميزان حسناتكم .

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

هو كودك الذي ارفقته لم اغيره فقط اضفت في آخره : "Moslem_code=2" في سطر أو "Moslem_code=1" في السطر الثاني

ملاءمة عناصر النموذج حسب حجم النموذج ☺.rar

مرحبا اخي الاستاذ شيفان انا مع الاستاذ عبدالفتاح بالتمام دالة تستقبل متغيرين قيمتهما تم استرجاعهما بواسطة dlookup من جدول text2 لحقلي text1,text3 وبدون شرط اي اول قيمة في الحقلين من الجدول تحياتي

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

جرب هذا الماكرو Option Explicit Sub Give_Data() Dim k, x, t As Integer Dim sh1, sh2 As Worksheet Dim my_rg As Range Set sh1 = Sheets("بيانات") Set sh2 = Sheets("Sheet1") k = sh1.Cells(2, Columns.Count).End(xlToLeft).Column For x = 2 To k Step 8 If my_rg Is Nothing Then Set my_rg = sh1.Cells(2, x).Resize(4, 1) Else Set my_rg = Union(my_rg, sh1.Cells(2, x).Resize(4, 1)) End If Next t = sh2.Range("b2").Value If Not IsNumeric(t) Or t <= 0 Then MsgBox "Choose correct Number in $B$2...Please": Exit Sub If t > my_rg.Areas.Count Then t = my_rg.Areas.Count With my_rg.Areas(t) sh2.Cells(4, 2) = .Cells(1) sh2.Cells(4, 6) = .Cells(1).Offset(0, 4) sh2.Cells(5, 2) = .Cells(2) sh2.Cells(5, 6) = .Cells(2).Offset(0, 4) sh2.Cells(6, 2) = .Cells(3) sh2.Cells(7, 2) = .Cells(4) End With End Sub مرفق الملف example1 salim.rar

السلام عليكم ورحمة الله تعالى وبركاته يا استاذنا اولا كل عام وانتم بخير ثانيا : تم حل المشكله جربت الان وكل شئ تمام واستطعت التحميل

الصراحة أخي ابوخليل جزاك الله خيرا هذا هوالمطلوب بالضبط ... وهذا الكود ينفع مع مجموعة ادارات موجودة مع بعض في شيت واحد بس في حاجات في الكود حاولت افهمها ولكن لم استطع .... من بعد حرف "غ" الى آخر الكود لم استطع فهمه & "'" & "and dept_code=" & [dept_code] & "and school_code=" & [school_code] & "and Moslem_code=2");0)) جزاك الله خيرا استاذي عبد الفتاح على هذا المجهود واهتمامك السريع لكن هذه الطريقة تنفع مع ادارة واحدة وليس مجموعة ادارات حيث يوجد معي 7 ادارات وليس ادارة واحدة وانا ارفقت ادارة واحدة للتخفيف من حجم الملف ثانيا عند حساب اجماليات مواد الغياب ....العدد الاجمالي لغياب مادة الدين المسلم مثلا في الادارة يكون التجميع نص ولا يعطي المجموع ويعطي عد فقط على العموم كود الأخ ابو خليل قام بتلبية المطلوب وجزاكم الله خيرا انت الاثنين زكل عام وانتم بخير بمناسبة حلول شهر رمضان الكريم تلميذكم الصغير هاني امين

استاذ امير ربي يحفظك يارب انا انتظر مساعدتك الاخيرة لي في هذه المشاركة ربي يحميك من كل سوء يارب

Date1_UP.rar ::: عفوا ... ماكنت فاهم سوالك .. شكرا استاذ @Shivan Rekany

هذا يقال عند الحيرة فى أمر من الأمور

ما فهمت قصدك استاذي الحبيب

ااااه يا نهر العطشان عندك يوم فقط .. اشرب الماء قبل ان يجى شهر رمضان اتفضل اليك ما طلبت Date_UP.rar

اضرب أخماسا فى أسداس أستاذ @Shivan Rekany

::: تفضل هذا طلبك . Date_UP.rar

استاذي العزيز @ابا جودى رمضان كريم ان شاء الله عليك وعلى اخي حلبي وعلى جميع الاخوة والاساتذة الكرام في هذا المنتدى .. لدي ملاحظة بسيطة وهي هل جربت ازالة ملف TWAIN32d.dll وتشغيل البرنامج؟؟ اعتقد بأننا لن نحتاجه

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

واصبح طلب حضرتك جاهز ان شاء الله يكون ده طلبك ولو فى اى شئ لا تخجل فقط تدلل وتمنى الارشفة بدون اعداد برنامج - IrfanView.rar

إذا كنت تقصد مشكلة الرسالة فحلها بسيط ولا يحتاج لأكواد فقط فك دمج العناوين المدمجة مثل الاسم ثم الوقوف في الصف السفلي للعناوين (أول صف أعلى البيانات مباشرة) والضغط على فلتر للعلم أستعمل أوفيس ٢٠١٦ ولا تظهر معي رسالة الخطأ هذه ولكن حضرتك مصمم على أن تصعب الحياة على نفسك باستعمال أوفيس ٢٠٠٣ وفقكم الله لكل خير

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

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

لتنفيذ المطلوب حدد خلية الاسم F5 ثم من تبويب بيانات data اضغط على تصفية filter ستظهر أسهم في كل عنوان اضغط على سهم الاسم واختر أول أمر في القائمة فرز من أ إلى ي sort a to z وهكذا في كل شيت موفق إن شاء الله

انظر المرفق =DATEDIF(B4,VALUE("a"&A4),"d") Book1_3_2.rar

السلام عليكم هناك العديد جدا من الطرق .. اليك =VLOOKUP(C5,IF(المصروف!$F$5:$F$10=الموقف!D5,المصروف!$E$5:$G$10,""),3,FALSE) و =INDEX(المصروف!$E$5:$G$10,MATCH(1,(المصروف!$E$5:$E$10=الموقف!C5)*(المصروف!$F$5:$F$10=الموقف!D5),0),3) و =VLOOKUP(C5&D5,IF({1,0},المصروف!$E$5:$E$10&المصروف!$F$5:$F$10,المصروف!$G$5:$G$10),2,0) معادلات صفيف بعد كتابتها يتم الضغط على CTRL + SHIFT + ENTER معادلة على اساس شرطين الرقم والتاريخ.rar

السلام عليكم ورحمة الله بداية أشكر صاحب الموضوع على سلاسة الطرح واسلوبه المميز - وكذلك تلك الأدوات المفيدة ولا شك من كون هذه الأدوات تسهل كثير من الأعمال وتختصر كثير من الأوقات - ولكنى أرى (كرأى شخصى فحسب ) أن مجرد المحاولة لصنع ما تريد بنفسك لابد وأن يكسبك المزيد من الخبرة . ثانيا أشكر لأستاذنا @Shivan Rekany حسن ظنه بى - فانى مجرد طويلب علم بمدرستكم ثالثا - كمساهمة صغيرة على قدر علمى : هنا بهذا الموضوع أداة مساعدة مفيدة لحصر ولم شمل أكود vba وتيسير استدعائها طبعا الموضوع لأستاذنا @Shivan Rekany (كده خالصين ) وهنا بهذا المرفق أداة صغيرة من كنوز المنتدى وظيفتها ضبط خاصية الشفت للبرنامج أرجو أن تفيد بشىء هذا هو المرفق Shift.zip

السلام عليكم اخ انس بارك الله فيك بس اذا ممكن انت اضفت عملات بس لما تجي تعمل كشف حساب العمله الموحده بالبرنامج دينار ليبي لو امكن وتعمل خيار تغير العمله

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

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

اخي الكريم شاهد هذا الفيديو به شرح للكود الذي تم فيه التعديل والسطر الذي تم اضافته جزاك الله خيرا aaa.rar

السلام عليكم الاخ الكريم / الشيباني بارك الله فيك وحرصك علي افادة الجميع اليك الملف التالي كنت قد وضعته لاحد اعضاء المنتدي الاخ / اكرم جلال واليك الملف به تقريبا مكان لتسجيل 20 صنف ارجو ان يعجبك الملف فهو بنفس الفكرة جزاك الله خيرا -SAMA-إستدعاء فاتورة بيع-.rar

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل (((( الدرس الثالث )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة. وسنتعرف في هذا الدرس علي طريقة وضع الاكواد الخاصة بزر تسجيل بيانات الفاتورة ويتم ذلك بطريقتين او كودين الكود الاول : هو كود بسيط قمت بوضعه باسهل الطرق واسهل الاكواد بدون جمل دوران او اجزاء صعبة مما جعله طويل بعض الشئ ولكنه يؤدي نفس الغرض وقمت بوضعه من اسهل الاكواد والطرق المتعارف عليها .. ارجو ان يعجبكم الكود الثاني : وهو الاهم والافضل بالتأكيد فهو للقدير الخبير / عبد الله باقشير ... جزاه الله خيرا تم وضعه في زر آخر بكود آخر (( راائع )) مع شرح الاكواد بالطبع سطر سطر وكلمه كلمه لامكانيه تطويعه كما تريدون حسب الحاجة في ملفاتكم واهم ما يميز الكود الباقشيري والسمة الرئيسية له هو تعامل الاستاذ القدير مع الـ Array حيث تعطي سرعة وكفاءة في عمل الكود ... وهو اقدر شخص في التعامل مع هذا النوع لتطويع الكونترولات كما يريد ويجب ملاحظة ترتيب الكونترولات في السطر التالي حيث انها تحدد ترتيب الترحيل وتسجيل البيانات Ary = Array(Me.TextBox1.Value, Me.TextBox2.Value, Me.TextBox3.Value, Me.TextBox4.Value, Me.TextBox5.Value, Me.ComboBox1.Value) وبالطبع يوجد شرح كامل للكود في محرر الاكواد كما ذكرت سطر سطر اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) ارجو أن قد وفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها3اكسيل .rar

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