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

الكود الأول غير واضح بارك الله فيك .... واضح أن الرسالة مفادها أن اسم النموذج والكائن غير معروف للكود لاحظ اسم النموذج والكائن n1

تفضل أخي جرب ان شاء الله يكون حسب المطلوب. Hr_Kashf.accdb

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

تم معالجة الامر Example_Salim.xlsx

وانتم بخير صديقي وجيه اعاده الله عليكم وعلى الامة العربية بالخير واليمن والبركات

تمت الاجابة على هذا العنوان https://www.officena.net/ib/topic/92726-معادلة-ايجاد-كل-القيم-التي-تخص-رقم-معين/?tab=comments#comment-583693

تعديل بسيط على هذا السطر في الكود Range("E" & i).Resize(, UBound(My_Arr)) = My_Arr ليصبح هكذا (زيادة واحد فقط) Range("E" & i).Resize(, UBound(My_Arr) + 1) = My_Arr

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

جرب هذا الملف يمكنك نقل المعادلة الى الملف عندك ARABIC_TIME.xlsx

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

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

اذن نبقي الحقل مطلوب بدون تعديل ونستبدل رسالة اكسس برسالة من قبلنا في حدث عند الخطا نضع الكود Const conErrRequiredData = 3314 Select Case DataErr Case conErrRequiredData MsgBox "حقل مطلوب", vbInformation + vbOKOnly + vbMsgBoxRight, "تنبيه" Response = acDataErrContinue Case Else Response = acDataErrDisplay End Select حقل مطلوب.accdb

وعليكم السلام -كيف تظهر بدون وضع معادلة لهذا العمود ؟! تفضل تعديل.xlsx

وعليكم السلام القيد.xlsm

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

تفضل اخى الكريم لك ما طلبت جريدرات2.xlsx

بارك الله فيكم جميعا بعد اذن الأخت الكريمة -ولإثراء الموضوع هذا حل أخر بمعادلات المصفوفة جريدرات.xlsx

بعد إذن الأستاذ مهند بالنسبة للخصم في الفورم تفضل الملف.xlsm

تفضل فاتورة على الفورم2.xlsm

حاضر ...مع الشكر الاستاذ عبد اللطيف

ارفع مثال للتطبيق عليه افضل من رفع صورة

وعليكم السلام على الرغم انك لم تقم برفع ملف مةضوح فيه المطلوب بشكل واضح فيمكنك رؤية ومشاهدة هذا الرابط https://www.officena.net/ib/topic/87248-جدول-الضرب-للأطفال-علي-شكل-لعبة-من-سيربح-المليون-لجميع-الصفوف/?tab=comments#comment-552068

السلام عليكم من سلسلة معلومة في اكسس استخراج الاجمالي بواسطة دالة Dsum واستخراج العدد الكلي بواسطة دالة Count أتمنى لكم الفائدة dsum.accdb

جزاك الله كل خير عيدية حلوة و مجزية

استاذى الحبيب استاذ سليم كل عام وانتم بخير وجزاكم الله عنا خير الجزاء

بعد اذن استاذنا الحبيب استاذ سليم واثراء للموضوع نسخة من FIND_PHONE-1.xlsm

انا بالفعل لدى ويندوز 7 واكسيل 2010 وعمل البرنامج معى بكل كفاءة اظن المشكلة لديك انت

السلام عليكم كل عام وانتم بخير عذرا اخي لم انتبه لردك الاخير الا اليوم على كل حال جرب الملف Transfer Function1.xlsm

اخي الكريم فقط قم باضافة docmd.quit تفضل التعديل test_quit.accdb

توجد عدة طرق اخي الفاضل وفي المرفق مثال جميل للاستاذ عبد اللطيف سلوم تظهر كافة الحقول الفارغة برسالة واحدة قاعدة بيانات1.accdb

اخي الكريم لتصدير التقرير الى PDF يلزمك في حال انك تستخدم اوفيس 2007 او اقل تثبت اداة PDF تفضل الأداة في المرفقات بعد التثبيت تستطيع استخدام الأكود اعلاه SaveAsPDFandXPS.rar

عدل كان في خطاء بسم الجدول id الى ss دوام الموظف.rar

اولاً اعتذر أخينا يونس الخطابي لانني طرحت السؤال في موضوعه دون اذن مسبق جربت كذا طرق حتى تغير حقل الى نص منسق للاستفادة من خصائص html ولكن بلا جدوى في اصدارين 2007 ، 2010 للاسف لا اما نسخ احدث من 2010 ما جربت .

تم معالجة الامر كما تريد هناك زران واحد لجلب البيانات من الشيت Master واخر لارسالها الى الشيت Data (يمكنك اضافة اعمدة في الشيت Data قدر ما تريد ابتداء من العامود M الماكرو الاول لجلب البيانات من الشيت Master والثاني لارسالها الى الشيت Data Option Explicit Sub give_data() Rem ====>> Created By Salim hasbaya 9/8/2019 Dim x As Boolean x = IsError(Application.Match([b3], Sheets("MASTER").Range("B4:B10000"), 0)) If x Then MsgBox "This Recorde: " & [b3] & " Not Exists" & Chr(10) & _ "Please Check the value of the cell B3", , "Salim Tell Yuo" Range("Info_range") = vbNullString Exit Sub End If Dim FB4$: FB4 = _ "=INDEX(MASTER!$C$4:$C$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB5$: FB5 = _ "=INDEX(MASTER!$N$4:$N$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB6$: FB6 = _ "=INDEX(MASTER!$BV$4:$BV$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB7$: FB7 = _ "=INDEX(MASTER!$BM$4:$BM$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FB8$: FB8 = _ "=INDEX(MASTER!$F$4:$F$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" '============================= Dim FD4$: FD4 = _ "=INDEX(MASTER!$E$4:$E$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD5$: FD5 = _ "=INDEX(MASTER!$D$4:$D$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD6$: FD6 = _ "=INDEX(MASTER!$Q$4:$Q$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD7$: FD7 = _ "=INDEX(MASTER!$G$4:$G$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" Dim FD8$: FD8 = _ "=INDEX(MASTER!$BR$4:$BR$10000,MATCH(B3,MASTER!$B$4:$B$10000,0))" '======================== Range("b4") = Evaluate(FB4): Range("b5") = Evaluate(FB5) Range("b6") = Evaluate(FB6): Range("b7") = Evaluate(FB7) Range("b8") = Evaluate(FB8) Range("D3").FormulaArray = _ "=INDEX(Data!$E$3:$E$1000,MAX(IF(Data!$C$3:$C$10000=b3,ROW($A$3:$A$11)-2,"""")))" Range("D3").Value = Range("D3").Value: Range("D4") = Evaluate(FD4) Range("D5") = Evaluate(FD5): Range("D6") = Evaluate(FD6) Range("D7") = Evaluate(FD7): Range("D8") = Evaluate(FD8) End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++ Sub trasnfer_data() Rem ====>> Created By Salim hasbaya 9/8/2019 Macro N#2 Dim DE As Worksheet, D As Worksheet Dim My_ro%, cont%, Anser As Byte Set DE = Sheets("SALIM"): Set D = Sheets("Data") cont = Application.CountIf(D.Range("a:a"), DE.Range("b3")) If cont <> 0 Then Anser = MsgBox("this recorde is alreday exist" & Chr(10) & _ "do you want to add it??", vbYesNo) If Anser <> 6 Then Exit Sub End If My_ro = D.Cells(Rows.count, 1).End(3).Row With D .Cells(2, 1).Resize(My_ro, 64).Interior.ColorIndex = xlNone With .Range("A" & My_ro + 1) .Value = DE.[b3] .Offset(, 1) = DE.[B4]: .Offset(, 2) = DE.[B5] .Offset(, 3) = DE.[B6]: .Offset(, 4) = DE.[B7] '============================= .Offset(, 5) = DE.[B8]: .Offset(, 6) = DE.[D3] .Offset(, 7) = DE.[D4]: .Offset(, 8) = DE.[D5] .Offset(, 9) = DE.[D6]: .Offset(, 10) = DE.[D7] .Offset(, 11) = DE.[D8] '=========================== .Resize(, 12).Interior.ColorIndex = 6 End With End With ' My_data = DE.[k6] End Sub الملف مرفق من جديد My_Salary_Updated .xlsm

حساب الصندوق.xlsx

لا يجب ان يكون هناك فراغات في الجدول الاساسي

السندات الإصدار الثاني تم إجراء التالي : إصلاحات وتحسينات . اختيار تفقيط العملة المناسب لبلدك يدوياً . السندات 2.1.rar

السلام عليكم ورحمة الله صحيح أن عمل أخي الكريم "سليم" يخص CommandButton ولا يخص "مربع نص" (الذي نصه يتغير)... قمت بالتعديل على خصائص مربع النص باختيار خاصية "Do not Move or Dimension with cells" أي لا تحريك ولا تحجيم حسب الخلايا... راجع الملف المرفق... بن علية حاجي تجربة.xlsm

وعليكم السلام لك ما طلبت Test.xlsm

بارك الله فيك ولك بمثل ما دعوت لى وزيادة -فالمعادلة تم ضبطها داخل الملف

وعليكم السلام تفضل Double Click.xlsm

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

تفضل new.xlsm

تفضل help.xlsm

وعليكم السلام اخى الكريم كان عليك من البداية استخدام خاصية البحث فى المنتدى فهناك العديد من المشاركات مشابهة لطلبك ومنها : https://www.officena.net/ib/topic/82488-برنامج-رواتب/?tab=comments&_fromLogout=1&_fromLogin=1

تفضل ترتيب الطلاب2 2019.xlsm

بارك الله فيك استاذ سليم عمل رائع ولإثراء الموضوع هذا ملف بالمعادلات المصنف1.xlsm

تفضل اخى الكريم جريدرات03.xlsx

ولكن اين يتم اضافة هذا الكود هل يمكن عمل مثال بسيط ولكن لم افهم اين يتم اضافة هذا الكود هل ممكن التوضيح اكثر او بمثال ومكان الكود والمسار الذي تقصده اين يتم وضعه بمعنى عند جلب المسار من السيرفر والذي فهمته اننا نضع فولدر لتخزين الصور على سبيل المثال في البارتشن d:/ameer/pic وهذا البارتن موجود على السيرفر الان اين اضيف المسار بالنموذج انا لدي برنامج اضافة الصور ويتم اختيار الصوره من خلال ال BROWSER وتخزن تلقائيا مع البيانات وهكذا ولكن اذا امكن عمر زر عند ادخال البيانات وضغط حفظ البيانات يتم ارسالها الى مسار السيرفر اتمنى عمل ذلك استاذنا الفاضل واذا احببت ارفق نسخه من البرنامج ملاحظه انا مقسم قاعده البيانات الى قسمين قسم الجداول مربوط بقاعده بيانات SQL SERVER وهيه موجوده بالسيرفر والقسم الثاني من القاعده التي هيه النماذج موجود بحاسبات المستخدمين بمعنى ان المستخدم عند اختيار صور من الحاسبه ترحل الصور الى السيرفر وعلما الحاسبات مربوطه شبكيا مع السيرفر وانا في انتظارك استاذنا الغالي وبارك الله فيك ولك حسن الدعاء والتوفيق على مساعدتك لكل الاعضاء