البحث في الموقع

السلام عليكم في النمودج بالمرفق مكتوبة افقيا اريد عند ادخال رقم الشهر في التسكست بوكس7 ثم النقر على زرطباعة في الفورم تطبع البيانات التي حدثث في نفس الشهر ارقام الشهور في الصف2 جزاكم الله خيرا مصاريف النقل.rar

السلام عليكم ورحمة الله وبركاته اخواني الافاضل لدي نموذج في قاعدة البيانات واريد ان اطبع الصفحه الاخيره المفتوحه لهذا النموذج !!!! حاولت ان بطريقة ان اطبع هذا النموذج لكن البرنامج يقوم بطباعة جميع الصفحات تواليا وانا احتاج لطباعة النموذج المفتوح والبيانات المكتوبه اخر شيء ؟ هل توجد اي طريقه او كود لطباعة النموذج الاخير فقط دون طباعه البيانات السابقه ؟ وبنفس الطريقه هل توجد طريقه لحفظ الصفحه الاخيره من النموذج بصيغه ال بي دي اف ؟ للمعلومه انا احتاج لطباعه النموذج وليس للتقرير اتمنى مساعدتكم اخواني الافاضل تحياتي وشكري لكم جميعاً اخوكم ٧/٧/٢٠١٧

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

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

السلام عليكم السؤال هو اننى اريد اضافة حدث لكل النماذج فى حدث عن التحميل اضافة كود فى بى فى حدث عند التحميل والكود هو call Color_V(me) وللتسهيل لقد وجدت كود اضافة استاذى @صالح حمادي ببرنامج انشاء شريط القوائم ولم اتمكن من تديلة وكان هذا هو الكود : DoCmd.OpenForm new_name, acDesign For i1 = 1 To nombre_subliste t = 0 + (453.5433070866) * (i1 - 1) ' الأعلى L = 0 ' اليسار Set crt = CreateControl(new_name, acCommandButton, acDetail, , , L, t, "1700.787401575", "453.5433070866") With crt .Caption = DLookup("[name_button]", "[tbl_sublist]", "[id_button]=" & i1 & "And[id_list]=" & i) .BackColor = 15918812 .BorderColor = 15918812 .name = "B" & i1 End With str_code = "Private Sub " & "B" & i1 & "_Click()" & vbCrLf & _ "forms!" & form_name & "!sublist" & i & ".Height = 0" & vbCrLf & _ DLookup("[code_button]", "tbl_sublist", "[id_button]=" & i1 & "And[id_list]=" & i) & vbCrLf & _ "End Sub" Forms(new_name).Module.AddFromString str_code str_code = "Private Sub " & "B" & i1 & "_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)" & vbCrLf & _ "if me.B" & i1 & ".BackColor = 15918812 then" & vbCrLf & _ "" For i2 = 1 To nombre_subliste If i2 = i1 Then str_code = str_code & "me.B" & i2 & ".BackColor=15849926" & vbCrLf & _ "" Else str_code = str_code & "me.B" & i2 & ".BackColor=15918812" & vbCrLf & _ "" End If Next i2 str_code = str_code & "end if" & vbCrLf & _ "end sub" Forms(new_name).Module.AddFromString str_code Next i1 DoCmd.close acForm, new_name, acSaveYes فهل من مساعده ؟

السلام عليكم اخوانى اريد ان اضيف حدث لكل النماذج بحدث عند التحميل والكود الذى اريد اضافتة هو call Test(me) وتغير خاصية النموذج Modal او منبثق الى true وقد قمت بصنع هذا الكود ولكنه لم يعمل ولم اعرف طريقة اضافة الحدث كما هو موضح : Function test() Dim Frm As AccessObject, DBS As Object Set DBS = Application.CurrentProject Dim Name_Frm As String For Each Frm In DBS.AllForms Name_Frm = Frm.name DoCmd.OpenForm Name_Frm, acViewDesign .Modal = true DoCmd.close acForm, Name_Frm, acSaveYes Next End Function

سلام عليكم وشهر مبارك على الجميع. احتاج الى ما تعودت عليه من كرمكم ودعمكم , حاولت ان اجد ما اريد في المنتدى ولاكن لم اوفق, ارفقت ملفين الملف الأول هو ملف اكسس فيه بيانات في نموذج وما اريده هو ان يتم تصدير البيانات محددة من الفورم الى الملف الثاني وهو ملف اكسل مجهز مسبقا في الخلايا المخصصة لها في ملف الأكسل. وذالك عند النقر على زر امر كما في الملف المرفق Export to excel temp.rar

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

اعرض الملف إرسال البريد من الأكسس بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس

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

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

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم جميعا بخير أحبابي في الله اليوم موعدنا مع فيديو جديد للمتقدمين في الإكسل إلى عشاق التميز في التعامل مع نماذج إكسل يشرح كيفية تصغير نموذج الإكسل إلى شريط المهام إخفاء برنامج الإكسل Hide excel window إضافة زر تصغير للنموذج add minimize button to userform إضافة أيقونة لشريط عنوان النموذج add icon to title bar for userform إضافة أيقونة للنموذج في شريط المهام add icon to userform to taskbar تصدير موديول export module استيراد موديول import moduleأي استفسار لا تتردد في كتابة تعليق ادعمنا ب لايك كومنت شير ولا تنسوني من صالح دعائكم

السلام عليكم تحية طيبة للجميع عندي معادلة صفيف في النطاق "H7:H26" تبدأ من الصف 7 إلى الصف 26 {=IF(OR(ISBLANK(C7:G7)),"",ROUND(SUM(C7,D7,E7,F7,G7),0))} المطلوب تحويها لكود vba حيث يتم تنفيذ كود المعادلة في النطاق "H7:H26" بدون إستخدام الأمر .FillDown تحويل خلايا النطاق إلى قيم .Value بدلا من معادلات يتم تحديث ناتج المعادلة تلقائي عند إدخال أو تغيير المعطيات ( بالضبط كما تعمل المعادلة بنفسها ) يا ريت الكود كاملا ولكم الشكر المثال مرفق Book100.zip

السلام عليكم ورحمة الله وبركاته تحيه طيبه للجميع انا جديده في التعامل مع الفيجوال بيسك سأشرح لكم مااريد وجزى الله من ساعدني خير الجزاء في الدنيا والاخره لدي ملف اكسيل متغير كل اسبوع يحتوي على الاعمده التاليه بنفس الترتيب Category Type User Name Unique ID First-Last Name Course Name Class Name Class Code Class Start Date Class End Date Vendor Name Class Location Class Actual Location Request Submitted Request Status Request Form Name Levels Required Levels Completed Escalated Managed by Class Type Email في كل مره افتح الملف يجب علي ان افلتر الملف واخذ معلومات منه احاول ان اعمل فورم بسيط بحيث بضغطه زر استطيع ان افتلر الجدول المحدد بدون ماافعله كل مره أولا أريد زر حذف جميع الصفوف التي تتوفر فيها هذي الشرطين لابد لي من حذف الصفوف اللي تحتوي على 0 من عامود Levels Completed وايظا حذف الصفوف التي تحتوي على 1 = Levels Completed و 3 = Levels Required ( لابد من توفر الشرطين في هذي النقطه ) الفورم اريد فيه1- ليست بوكس لعامود Vendor Name بحيث اختار الفندور من اللست ويظهر لي فقط مااخترته ( أريد خيار اني استطيع اختيار اكثر من فندور وليش فقط واحد ) 2- ليست بوكس لعامود Category Type بحيث ايظا استطيع اظهار الاعمده فقط اللي تحتوي على النوع الذي اريده( يوجد فقط خيارين في هذا العامود إما management أو technical ) 3- عامود Class Type وأيظا يحتوي على خيارين (internal or external ) ثم زر لما اضغطه يطبق لي جميع الخيارات المختاره ويظهر لي فقط مااخترته في أمس الحاجه للمساعده الله يفرج كربكم جميعا .. هذا الكود وجدته لحذف القيمه 0 من العامود Levels Completed Sub DeleteRowsWithX() maxRow = ActiveSheet.UsedRange.Rows.Count For i = 1 To maxRow Do While (StrComp(ActiveSheet.Cells(i, 17).Value, 0, vbTextCompare) = 0) Rows(i).Select Selection.Delete Shift:=xlUp Loop Next End Sub

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

السلام عليكم فيديو لشرح إضافة وظيفة فىvba

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء الافاضل السلام عليكم ورحمته الله وبركاته الكود التالى طلب للأخ الفاضل // ناصر المصرى على الرابط أدناه حيث يشمل الطلب على شقين حسب مافهمت منه عبر الخاص وقد وفقنى الله تعالى لتنفيذ الشق الاول ألا وهو منع وإخفاء وطباعة أوراق محددة فى مصنف أما عن الشق الثانى فقد حاولت فيه ولكن لم يوفقنى الله فى تنفيذه والتى تخص الاوراق من stor1 حتى stor10لذا يرجى من الاخ ناصر برفع موضوع جديد موضحا به الاضافة التى يريد إضافتها على الكود المشار اليه حتى يتمكن السادة الزملاء الافاضل بتقديم المساعدة تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا Option Explicit Sub Print_SalmaSaied() Dim CurVis As Long, sh As Worksheet, HidShts, S Application.ScreenUpdating = 0 HidShts = Array("List", "Add", "Main store", "Archives", "Collection items", "Suppliers", "Customers") For Each sh In ActiveWorkbook.Worksheets S = Application.Match(sh.Name, HidShts, 0) If Application.WorksheetFunction.CountBlank(sh.Range("A10:I10000")) <> sh.Range("A10:I10000").Count Then If IsError(S) Then With sh CurVis = .Visible If CurVis >= 0 Then .Visible = xlSheetVisible .PrintOut sh.Range("A10:I10000").ClearContents .Visible = CurVis End If End With End If End If Next sh End Sub منع وإخفاء وطباعة اوراق عمل محددة فى مصنف - سعيد بيرم.rar

بسم الله الرحمن الرحيم أول مشاركاتى فى منتديا أوفسينا بطاقة الإستخدام السريع لمايكروسوفت اكسل 2003 أتمنى ان ينال اعجابكم بطاقة الإستخدام السريع لمايكروسوفت اكسل 2003.zip

الاخوه الكرام السلام عليكم و رحمه الله الرجاء منكم المساعده فى الملف المرفق انا بشتغل مع مجموعه من الملفات و الرسومات و المراسلات الموجوده فى فولدر رئيسى و متفرع تحت منه مجموعه من الفولدرات مصنفه حسب نوع لمستند و محتاج انى اعمل كود بحث و كوبى حسب اسم الملف او الفولدر فى ملف الكسل المرفق العمود A مجموعه اسماء لملفات مختلفه الامتدادات ( وورد , اكسل و هكذا ) و الملفات دى موجوده تحت عدد من الفولدرات الفرعيه subfolder و كنت محتاج مساعده فى عمل فيجوال بيسك كود عشان اقدر عمل : 1 – محتاج ان الاكسل يبحث عن اسم الملف الموجود فى العمود A فى المسار المحدد فى الخليه C1 و بعيدن يعمل نسخه من الملف ده فى المسار المحدد فى الخليه C4 2 - محتاج ان الاكسل يبحث عن اسم الفولدر الموجود فى العمود A فى المسار المحدد فى الخليه C1 و بعيدن يعمل نسخه من الفولدر ده و جميع الملفات الموجوده فيه فى المسار المحدد فى الخليه C4 . اتمنى ان السؤال يكون واضح لحضراتكم و انا بصراحه محتاج خالص الكود ده للشغل هنا و دورت كتير على النت و لقيت كود ممكن يعمل كوبى للملفات بشرط انها كلها تكون فى فولدر واحد و ده مستحيل انى اعمل ده فى الشغل هنا عشان كميه الملفات اللى المفروض اجمعها تقريبا مائه الف ملف / فولدر جزاكم الله خير مقدما VBA.rar

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

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

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