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

تسلم اياديكم

اه ويظهر بسبب حذفك الجدول وعمل جدول جديد, حذف العلاقة, ويظهر كده والله أعلم كانت سبب المشكلة العلاقة

ربنا يبارك فيك ويحفظك

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

أ/ ابو زاهر .... ممكن من فضلك أعرف أية اللي أتغير فى البرنامج

وعليكم السلام بعد اذن اخي@Barna اخي الفاضل تفضل ان شاء الله يكون مطلوبك KMA Fixed Assets19-07-2018.rar

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

وعليكم السلام ورحمة الله وبركاته =Round([YourField],1)

الله يعطيك العافية ممكن توضحلي أكثر

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

اشكرك على المرور

بالنسبة للتكرار استخدم الدالة Dcount . IF DCOUNT( , , ) >1 THEN **** end if

الملفات معطوبة يرجب الرفع مرة ثانية

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

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

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

تم التعديل Option Explicit Sub Salim_Index() Application.ScreenUpdating = False Dim S_sh As Worksheet: Set S_sh = Sheets("الدرجات") Dim Index_sh As Worksheet: Set Index_sh = Sheets("قائمة") If ActiveSheet.Name <> Index_sh.Name Then GoTo Leave_Me_Out Dim my_st1$, my_st2$, my_st3$ Dim lr%: lr = S_sh.Cells(Rows.Count, 1).End(3).Row Dim Flt_Rg As Range: Set Flt_Rg = S_sh.Range("a4:R" & lr) Index_sh.Range("b5:c150").ClearContents my_st1 = "=" & Index_sh.[j1] my_st2 = "=" & Index_sh.[j2] my_st3 = Replace(Index_sh.[j3], "*", "") my_st3 = "*" & my_st3 & "*" Flt_Rg.AutoFilter Field:=13, Criteria1:=my_st1 Flt_Rg.AutoFilter Field:=4, Criteria1:=my_st2 Flt_Rg.AutoFilter Field:=15, Criteria1:= _ "=" & my_st3, Operator:=xlAnd '=========================== Flt_Rg.Columns(2).SpecialCells(xlCellTypeVisible).Copy Index_sh.Range("b4").PasteSpecial Paste:=xlPasteValues Flt_Rg.Columns(3).SpecialCells(xlCellTypeVisible).Copy Index_sh.Range("c4").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Flt_Rg.AutoFilter Leave_Me_Out: Application.ScreenUpdating = True End Sub الملف filter by 3 Criterias_Modifier.xlsm

وعليكم السلام يمكنك استخدام هذا الكود : Private Sub MonitorApp_WorkbookOpen(ByVal Wb As Workbook) MsgBox "You just opened " & Wb.Name End Sub وأيضا يمكنك تجربة هذا الملف تفعيل الماكرو تلقائيا.xlsm

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه ميديا فاير_MediaFire مركز تحميل طق طق مركز الخليج File Upload adyou.me uploadfiles Tinyupload wikisend filedropper dropcanvas