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

طباعة التقرير مباشرة من نموذج • طباعة التقرير من داخل التقرير رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfd0R5bERleUdBVzA/view?usp=sharing اسم الفيديو طباعة التقرير من الداخل الوصف فيديو يشرح • طباعة التقرير مباشرة من نموذج طباعة التقرير من داخل التقرير رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfd0R5bERleUdBVzA/view?usp=sharing و كيفية إخفاء زر الأمر عند الطباعة رابط برنامج Pdfcreator http://www.pdfforge.org/pdfcreator/download الفيديو

اخي الكريم / محمد 9009 الملف جاهز وفقا لطلبك و اتمني ان يكون هذا المطلوب و لكن برجاء تنفيذ توجيهات للأعضاء لمعرفة كيفية التعامل مع المنتدى بشكل أفضل ( رابط التوجيهات من هنا ) كما سبق و تم اخبارك من الاستاذ / ياسر خليل ابو البراء

كل هذه الموديولات خاصة بعمل تصغير للقاعدة بجوار ساعة النظام استاذى الحبيب راجع المرفق مرة اخرى وانظر الى الاكواد فى هذا النموذج انا حذفت لك كل النماذج وتركت لك فقط النموذج الذى يتم استدعاء كل هذه الموديولات من خلاله ولكن للامانه هذه الاكواد بها مشكله القاعدة احيانا يحدث لها تصغير ولا تستطيع استعادتها او اغلاقها او فتحها الا ان قفلتها عن طريق الضغط على الازرار ctrl + alt + delete aziz.rar

بسم الله والحمد لله ولا اله الا الله والله اكبر الحمد لله رب العالمين الحمد الله الذى تتم بنعمته الصالحات شكر وتقدير لكل معلمينا فى هذا الصرح الشامخ على وجه العموم وشكر خاص لكل من المعلمين [ ابو خليل , جعفر , يوسف , رمهان , ابا عمر , رضوان , عبد الرحمن هاشم , ابو الاء , علي المصري , راعى الغنم , اخر الارض ] على وجه الخصوص واختص اصحاب البرامج اومن قدم يد العون والمساعده فى تطويرها والاضافة اليها نظام المستخدمين الخاص بالاستاذ مهند العبادى تعديل العبد الفقير الى الله اضافة التحكم بالعناصر لكل مستخدم ضمن نظام المستخدمين الاستاذ ابو خليل تصغير القاعدة بجوار الساعه مع الاحتفاظ بأيقونة الاكسس عند التكبير على شريط المهام وعدم ظهور الاطار عند الضغط عليها الاستاذ ناصر - تعديل الاستاذ ابا عمر البحث والفلترة وتظليل ناتج البحث ---- الأستاذ رمهان والاستاذ اباعمر اخفاء اطار الاكس نهائيا - الاستاذ ابا عمر http://im56.gulfup.com/0Q9Ybe.jpg اهاا نسيت شئ اسم كل مستخدم هو نفسه الباسورد لفتح القاعده المرفق بعد تعديل عناوين الراوبط ليشمل كل من تنسيق اوفيس 2000-2003 Access Loge in Hide Win2000-2003.rar وتـــــــــنسيق اوفيس 2007-2013 Access Loge in Hide Win 2007-2013.rar << تم تحديث الروابط (الإدارة) >>

http://www.officena.net/team/khboor/kh_image/p22.gif المواضيع الحديثة دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

السلام عليكم ورحمة الله و بركاته اصدقائي هذا التطبيق هو تطوير لهذا الموضوع في الموضوع السابق كان يجب علينا كتابة اسم السيرفر و اسم قاعدة البيانات ضمن الكود للارتباط بالجداول في هذا التطبيق نستطيع عرض سيرفرات SQL الموجود على الجهاز و اختيار السيرفر و اختيار قاعدة البيانات واختيار نوع الاتصال للارتباط بالجداول طبعا يجب اضافة المرجع SQLDMO.DLL الى البرنامج وهنا يتم اضافة المرجع برمجيا دون اي تدخل من المستخدم الملف SQLDMO.DLL يجب ان يكون في نفس مسار قاعدة البيانات Dim DB As Database Dim RS As Recordset2 Dim TblName As String Dim Td As TableDef ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub chk1_AfterUpdate() If Me.chk1 = True Then Me.TUserName.Enabled = False Me.TPassWord.Enabled = False Else Me.TUserName.Enabled = True Me.TPassWord.Enabled = True End If End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Cm1_Click() On Error GoTo ErrSub If IsNull(Me.Comp1) Then MsgBox "يرجى اختيار السيرفر", vbCritical Exit Sub End If If IsNull(Me.Comp2) Then MsgBox "يرجى اختيار اسم قاعدة البيانات", vbCritical Exit Sub End If If Me.chk1 <> 1 And (IsNull(Me.TUserName) Or IsNull(Me.TPassWord)) Then MsgBox "يرجى ادخال اسم المستخدم و كلمة المرور", vbCritical Exit Sub End If For Each Td In CurrentDb.TableDefs If Len(Td.Connect) <> 0 Then CurrentDb.TableDefs.Delete Td.Name End If Next DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1 & ";Database=" & Me.Comp2 & ";Trusted_Connection=Yes", acTable, "INFORMATION_SCHEMA.TABLES", "INFORMATION_SCHEMA_TABLES" Set DB = CurrentDb Set RS = DB.OpenRecordset("INFORMATION_SCHEMA_TABLES", dbOpenTable) RS.MoveFirst Do While RS.EOF = False TblName = RS.Fields(2) If Me.chk1 = 1 Then DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1 & ";Database=" & Me.Comp2 & ";Trusted_Connection=Yes", acTable, TblName, TblName Else DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1 & ";Database=" & Me.Comp2 & ";UID=" & Me.TUserName & ";PWD=" & Me.TPassWord, acTable, TblName, TblName End If RS.MoveNext Loop RS.Close Me.Comp2.RowSource = "" DoCmd.Close acTable, "sysdatabases" DoCmd.DeleteObject acTable, "INFORMATION_SCHEMA_TABLES" DoCmd.DeleteObject acTable, "sysdatabases" MsgBox "تم الارتباط بكافة الجداول بنجاح", vbInformation ErrSub: If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight End If End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Cm2_Click() Dim i As Integer Dim oNames As SQLDMO.NameList Dim oSQLApp As SQLDMO.Application Dim SysServerCount As Integer Set oSQLApp = New SQLDMO.Application Set oNames = oSQLApp.ListAvailableSQLServers() SysServerCount = oNames.Count Me.Comp1.AllowValueListEdits = True Me.Comp1.RowSourceType = "Value List" If SysServerCount = 0 Then Me.Comp1.RowSource = "local" Else For i = 1 To SysServerCount Me.Comp1.AddItem oNames.Item(i) Next i Me.Comp1.AllowValueListEdits = False End If Me.Comp1.SetFocus Me.Comp1.Dropdown End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Comp1_AfterUpdate() On Error GoTo ErrSub DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1.Value & ";Database=master;Trusted_Connection=Yes", acTable, "sys.databases", "sysdatabases" Me.Comp2.RowSource = "SELECT sysdatabases.name, sysdatabases.is_auto_close_on FROM sysdatabases WHERE (((sysdatabases.is_auto_close_on)=-1))" Me.Comp2.SetFocus Me.Comp2.Dropdown ErrSub: If Err.Number <> 0 Then End If If Err.Number = 3059 Then MsgBox "تاكد من تشغيل السيرفر", vbCritical + vbMsgBoxRight End If End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Form_Close() On Error Resume Next DoCmd.DeleteObject acTable, "sysdatabases" End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Form_Load() On Error Resume Next With Access.References .AddFromFile CurrentProject.Path & "\SQLDMO.DLL" End With End Sub Link All Table.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" ايام مباركه من الله عز وجل و لا تنسونا من صالح الدعاء أقدمه لكم صدقه جاريه على روح المغفور لها امى و استاذنا / عماد الدين الحسامى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه و هديتى متجدده باذن الله تعالى من هنا اضغط على رابط العنوان اسفله للوصول للمدونه

نعم ذلك ممكن فقط اضف البرنامج الى ( بدء التشغيل ) 1- قم بارسال اختصار عن برنامجك الى سطح المكتب 2- اضغط الزر (ابدا + R ) ستظهر نافذة تشغيل اكتب هذا الكود داخلها shell:startup ثم انتر سيفتح مجلد بدء التشغيل 3- اسحب الاختصار الى هذا المجلد

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

السلام عليكم هنا لا نستخدم دالة sum لجمع حقل فى التقرير مع وضعها برأس أو تذييل الصفحة نستخدم dsum لجمع الحقل فى الاستعلام المعتمد عليه التقرير ضع فى إجمالى الجافة ما يلى =DSum("jafah_c";"qry1") أكمل الباقى على نفس الطريقة

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

شكرا جدا على المساعدة جزاكم الله خيرا

بارك الله فيك أخي الكريم مهند وجزيت خيراً على كلماتك الرقيقة وردك الطيب والحمد لله أن تم المطلوب على خير .. تقبل وافر تقديري واحترامي

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

جرب الصورة التالية

السلام عليكم معذرة على التاخير في رفع دروس جديدة ولكن ان شاء الله كلما تيسر الوقت ساضيف درس جديد والان اترككم مع الدرس وان شاء الله تعم الفائدة

جزيل الشكر اخي طلعت

شكرا استاذ ياسر على مرورك العطر و جمعة مباركة

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

الله يعطيك الف الف عافيه الف تحياتي

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

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

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

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

اتفضل استاذى الحبيب وكل الشكر والتقدير على اطرائكم المبالغ فيه User permissions.rar

اعتذر على التاخير جدا جدا جدا جد وعفوا منك استاذى الحبيب ابوخليل استمسح حضرتك على استحياء فى اضافة مرفق لحل المشكلة بطريقة اخرى وابسط بدون اضافة اى اكواد فى التقارير فقط على زر الامر الخاص بفتح التقرير اضافة السطر التالى DoCmd.Maximize kkk-up.rar

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

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

اولا شكرا استاذ محمد ايمن ولي عودة حيث اعتقد يمكن سرد السيرفرات بواسطة api او قراءة قائمة الخدمات والعملية عملية تخاطب مع الويندوز وهنا تم استخدام مكتبة وسيطية وهي sqldmo ودائما استخدام المكتبات الخارجية كوسيط تجعلك مقيد مع هذه المكتبة بصلاحياتها ومدى استمراريتها لاصدارات حديثة مما يجعلك مقيد لمطور الوسيط الثالث الحقيقة انا تعاملت معها عن طريق الدوت نت والموضوع سهل جدا وبامر ضمني موجود ! الاخ محمد سلامة الخطأ واضح وهو عدم تعرف البرنامج على المرجع ! اذهب لقائمة المراجع يدوي وشوف المرجع للمكتبة هل هو معلم بصح وبدون كلمة missing ! احذف الصح واعادة ربطه يدوي باختيار مسار المكتبة وكمرجع بالتوفيق

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

Sub az If Range("E5") = Range("J5") Then Application.Run "Un_Check" Else Msgbox "sorry only this user can make modification" End if End Sub

عندى تعمل بشكل جيد ... أنا فتح الملف على اوفيس 2007 ولا أدرى هل هذا سبب المشكله عمومًا ممكن تدخل للكود وتشوف الفكره وتنفذها تانى من الاول

السلام عليكم نعم يمكن ذلك , غير سطر الكود بإضافة Offset(1, 0) كما يأتي Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Select

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

السلام عليكم للاحتراف : عليك بــ 2003 يدعم صلاحيات المستخدمين وصفحات النت والا فاخرج من اكسس واستخدم ستوديو دوت نت كان زمان الواحد يتردد على المنتدى شهر شهرين ويصبح خبير اكسس وبعد الاصدارات الحديثة الواحد يتردد سنين ولا يحصل شي السبب لانها تصنع له معظم الخطوات

السلام عليكم اخ سلمان .. تفضل هذا رابط تحميل اكسس ران تايم 2016 https://www.microsoft.com/en-us/download/details.aspx?id=50040 وهذا رابط تحميل اكسس ران تايم 2013 https://www.microsoft.com/en-us/download/details.aspx?id=39358 وهذا رابط تحميل اكسس ران تايم 2010 https://www.microsoft.com/en-us/download/details.aspx?id=10910 وهذا رابط تحميل اكسس ران تايم 2007 https://www.microsoft.com/en-us/download/details.aspx?id=4438 تحياتى

تفضل db2.rar

طيب دى روابط تانية للاطمئنان واتمنى استبدال المرفق تسهيلا على رواد المنتدى بارك الله فيكم ميديا فاير توب4 توب التحميل من المرفق READ IT.txt

مطلوب معادلة توضع داخل استعلام مهمتها إظهار نتائج إجمالي رصيد آخر المدة حتى يتم جمعه على الارصدة الجديدة لبيان اجمالي رصيد المخزن موجود مرفق للتوضيح STORE.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الغالي تحية عطرة لكل المشرفين والأعضاء في مقتبل الدخول على الامتحانات تظهر أفكار جديدة لأعمال المراقبة والكنترول إلخ.. وصدر إكسيل يسع بما فيه الكفاية على ما أعلم!!!! أريد في الملف المرفق توزيع كشوف الملاحظة ( عدد 2 مراقب في كل لجنة ) ( عدد اللجان 7 لجان ) ( عدد المراقبين 16 ، يعني فيه 2 احتياطي ) في الصفحة Torch يوجد توزيع مجمع لجميع أيام الامتحانات ، تعلمته من رجل خبير في أعمال الكنترول(جزاه الله عنا خير الجزاء ) المطلوب ( عشان أنا طولت عليكم وصدعت دماغكم ودوشتوكم وخلتكم خلاص ناويين تتركوا الموضوع وما تردوش عقاباً لي ) معلش رغاي شويتين!!! المطلوب : توزيع أيام الامتحانات بشكل يومي ، كل فترة على حدة ، كما هو موضح في المثال في الصفحة Dis ( المثال لفترة واحدة فقط ) برجاء الإسراع والمسارعة حيث أننا على شبابيك الامتحانات عاشق الإكسيل ______________.rar