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

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

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

مين قدّك يا استاذ عصام ، وهنيئا لك بهذا الدعاء 🙂 جعفر

أ.يونس الخطابي هل هذا ما تريد .. جرب وأفد بالنتيجة علما بأن قاعدة البيانات وملف الوورد يجب أن يكونا بمكان واحد .. داخل فولدر أم خارجه بالتوفيق AbuKaram.rar

السلام عليكم ورحمه الله السادة الأعضاء المحترمين لقد قمت بشرح طريقة بحث وتصفية وفرز وفلترة السجلات بطريقة جديدة بدون اكواد طريقة بسيطة حتي يقدر يستفيد منه أي عضو الموقع غني بمواضيع مشبها ولكن لكل شيخ طريقة اترككم مع الفيديو رابط تحميل الملف https://drive.google.com/file/d/19PeZ77AKZ7Ki56ZiOpJaGcsqIjKv3wEZ/view?usp=drivesdk

العقو منك اخي emam1424 نحن هنا نتعلم جميعا بفضل اساتذتنا الاعزاء وهذا المنتدى الرائع لدي بعض الملاخظات عن عملك (قاعدة البيانات) 1- التصميم جميل 2- النماذج في عملك تقريبا متشابهة لذلك انسخ الاكواد التي تؤدي نفس العمل في النماذح المختلفة والتي تعمل بصورة جيدة 3- عند اكمال عمل يرجى منك عمل (تمت الاجابة) كما في الصورة

شرح كافي ووافي بارك الله فيك

ربما ينفع هذا الكود Option Explicit Sub remov_dup() Dim r%, col%, i%, k%, m%: m = 2 Dim dic As Object r = Cells(Rows.Count, 1).End(3).Row Cells(2, "j").CurrentRegion.ClearContents For i = 2 To r Set dic = CreateObject("Scripting.Dictionary") col = Cells(r, Columns.Count).End(1).Column Cells(m, 10) = Cells(i, 1) For k = 2 To col dic(Cells(i, k).Value) = vbNullString Next k Cells(m, 11).Resize(, dic.Count) = dic.keys m = m + 1 dic.RemoveAll Next i Set dic = Nothing End Sub الملف مرفق Salim 3.xlsm

وعليكم السلام-تفضل بعد اذن الأستاذ حسين 12.xlsm

تفضل لك ما طلبت-بمجرد الضغط على ايقونة طباعة سيتم عمل نسخة من هذه الصفحة عل ملف Pdf اسمه Fawzy على نفس مسار ملف الإكسيل ويمكنك عمل الطباعة منه وستجده كما تريد ان شاء الله وقمت بعمل تجربة لك وهذا هو ملف Pdf المستخرج للطباعة ت . ص1.xls Fawzy.pdf

سيدي الفاضل عصام المحترم: تمام زي العسل / ولا استطيع رد الجميل لك الا بالدعاء وقد دعوت لك في ظهر الغيب ( بان تحتويك الدنيا بالفرح في كل امر . وان ترعاك عين الرحمن لابد الدهر . وان يبارك لك الله في اهلك وفي مالك ويرفع لك منزلتك بين البشر . اللهم امين)

مع انك لم ترفع ملفاً للمعاينة وهذا مخالف لقانون المنتدى اليك هذا النموذج (على امل عدم تكرار هذه المشاركات) Moukafa2a.xlsx

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

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ' تم اضافة معيار لاسم البنك Like "*" & forms!Form1!Text9 & "*" ' تم اضافة معيار لاسم موظف البنك Like "*" & forms!Form1!Text10 & "*" مثال_3.rar تخياتي

السلام عليكم لتوسيع النطاق في الفورم يجب تبديل السطر التالي في كود اليوزرفورم: Dim LastRow As Integer بالسطر: Dim LastRow As Long بالنسبة لبطء عمل الكود فهذا يرجع للعدد الكبير لصفوف البحث -رغم أني لم ألاحظ هذا البطء- (ربما يقوم أحد الأعضاء المتمكنين بـVBA بتصحيح هذا الخلل)... بن علية حاجي

اخى الفاضل ارفق مثالك حتى يتثنى لاخوانك واساتذتك مساعدتك بشكل افضل بالنسبه لـ الطلب الاول لدي نموذج مبني على جدول وعند فتح النموذج يظهر لي البيانات المسجله في الجدول طلبي هو اني ارغب بظهور النموذج فارغ من دون بيانات فى حدث عند الفتح للنموذج ضع الكود التالى DoCmd.GoToRecord , , acNewRec ارفق مثالك واشرح الباقى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

تفضل ولكن لتعلم ان الكمبوبوكس مختلف بالتأكيد عن طلبك الأول 1تجربة.xlsm

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

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

اخي العزيز emam1424 لاحظت انك تسال نقس السؤال اكثر من مرة بخصوص التاكد من ادخال البيانات بالجدول واظهار الرسالة Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك" ان الكود هو يقوم اصلا بحقظ البيانات في الجدول ومن ثم ينتقل للسجل التالي بالجدول DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec افضل مكان للتاكد من ادخال وحفظ البيانات هي وضع الرسالة بعد التحديث After Update كما في الصورة ( يعني لاتظهر الرسالة الا بعد حقظ البيانات ) وهذا ينطبق على كل النماذج

الله يسلمك ويعافيك ان شاء الله استاذ عصام 🙂 جعفر

أ.emam1424 فقط فى جدول Table1 قم بحذف القيمة الإفتراضية ( 0 ) من حقل Money بارك الله فيك بالتوفيق

اشكرك اخى الغالى عمل محترم

السلام عليكم عمل ممتاز جدا من عضو ممتاز، بارك الله فيك أخي الكريم شوقي ربيع وجعله في ميزان حسناتك ووفقك الله لما يحب ويرضى... بالنسبة لعمل الملف أو عدمه، فإذا تم فتح الملف من الملف المضغوط فإنها تظهر الرسالة التي ظهرت لـ "بوحسين"، لذا يجب إلغاء الضغط عن الملف ووضعه مع ملف Data في مجلد واحد (سطح المكتب مثلا) ثم فتح ملف الإكسيل وسيشتغل بإذن الله بكل كفاءة... والله أعلم. بن علية حاجي

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

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

قم بانشاء مجلد باسم copie في في :C واضغط زر SAVE COPY نسخ الشيتات.xlsm

حبيبى أستاذنا جعفر @jjafferr حمداً لله على سلامتك يا غالى .. عود حميد .. راجيا المولى جلَّ وعلا أن يكون غيابك عنا كل هذه الفترة خيراً.

تفضل لك ما طلبت -يمكنك الإضافة كما تريد فى صفحة Data ver_1.xlsx

السلام عليكم ضع الرسالة ( في خصائص النموذج) بعد التحديث Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك" ادعمنا بالاعجاب اخي العزيز

اشكرك اخي الغالي بارك الله فيك و زادك من العلم هو المطللوب

أستاذ حسين مامون كل الشكر والاحترام انت حلتلى مشكلة مدوخانى بقلها يجى 5 ايام الف شكر مرة تانى

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

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

اتفضل اخى ان شاء الله يكون ما تريد تقبل تحياتى طبتم واهتديتم Library.rar

السلام عليكم في الاكسيس يمكنك استخدام SubForm = النماذج الفرعية وهي اكثر مرونة في الاستخدام من Grid View لانك تستطيع من خلال النماذج الفرعية التحكم بنوع كل حق ويمكنك ايضاً اضافة ComboBox او CheckBox بكل حرية ومرونة تحياتي

يمكن ذلك بزيادة الدالة TRIM على المعادلة =IFERROR(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2),FIND("*",SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2))+1,LEN(A2))),"") لتصبح هكذا =IFERROR(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2),FIND("*",SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2))+1,LEN(A2))),"") الملف من جديد New_text_section.xls

تفضل Visitors.mdb

حسب مشاركتك تم عمل المطلوب السعر يظهر عند اختيار نوع الاجمالي يظهر عند ادخال العدد اجمالي المبلغ يظهر ايضا عند ادخال العدد مغسلة المودة.xlsm

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

وعليكم السلام ورحمة الله وبركاته تستطيع انشاء حقل جديد في الاستعلام يحول البيانات في مربع النص الى رقم بهذا الشكل Expr1: IIf([TextField] Is Null, 0, Val([TextField]))

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

بارك الله فيك اخي الكريم فقط احذف المعيار التالي من الاستعلام [forms]![Data01]![ItemBarcode] prov - Copy.rar تحياتي

تفضل المثال بعد اضافة النموذج prov - Copy.rar تحياتي

نعم اخي من المفترض وجود فورم باسم = Date01 وبه ثلاث حقول A = بداية التاريخ B = نهاية التاريخ ItemBarcode = كود الصنف ان واجهت مشكلة في التطبيق ساقوم بتصميم النموذج وارفقه ان شاء الله تحياتي

الساده الزملاء برجاء مساعدتي في عمل شيت اكسيل يحتوي علي معادلة عند ادخال تاريخ البدء يظهر لي تاريخ الانتهاء وعدد الشهور الباقية للنتهاء ملونه للتنبيه مشاركة مخالفة لقواعد وقوانين المنتدى فى عنوان المشاركة لابد ان يدل على مضمون المشاركة-تم تعديل عنوان المشاركة التاشيرات.xlsx

وجدت في مكتبتي هذا المثال لابن مسقط وهو يعالج هذه الجزئية إيقاف بالمدة.rar

Private Sub Form_Load() Dim xdate As Date Dim Ndate As String Dim mssg As String xdate = #12/23/2014# If xdate <= Date Then MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789" Quit Else Ndate = CStr(xdate - Date) mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم" MsgBox mssg DoCmd.Close End If End Sub