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

السلام عليكم ورحمه الله وبركاته اخوانى فى الله احببت ان اضع درس بسيط لا يخفى على الكثيرين منكم ولكن مشاركه منى لما اتعلمه وحتى يستفاد منه المبتدئين امثالى ممن يتعلمون فى بعض الاحيان نحتاج حقل نصى ولكن سوف نكتب به ارقام وحتى لا نقوم بحجز مساحات دون داعى على سبيل المثال حقل لارقام المحمول نجعله نصى لان حقل المحمول سيتم تخزين فيه مثلا 11 رقم وحتى يقبل 0 باول الرقم , لان الحقل الرقمى لا يقوم بذلك مثل الصوره الاولى الكود التالى IsNumeric([Tel])=صواب Or Is Null يقوم باجبار المستخدم بادخال قيم رقميه او ترك الحقل فارغ كما الصوره التاليه وبالمثال يتضح المقال ارجو ان اكون وفقت للشرح تقبلوا تحياتى وتمنياتى لكم بالتوفيق طبتم واهتديتم ex.mdb

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

هدية متواضعه الاصدار الاخير من برنامج تسجيل الديون ومتابعتها اهداء لكم مفتوح المصدر اوفيس 2013 تسجيل الديون ودفعها 2020.accdb

بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=22985 2 - سيكوال سيرفير 2008 R2 لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=30438 3- اوفيس اصدار 2007 فما فوق -------------------------------- شرح بسيط بالبلدى كدا احنا هنعمل سيرفير محلى وننشئ عليه قاعدة بيانات وبدل ما نصمم عليها الجداول من اول وجديد هنصدرها من الاكسس ببيانتها بكل ما تحتوى بس كدا هههههههههه طريقة العمل اول هنسطب السيرفر المحلى ( سيكوال سيرفير 2008 R2 ) طريقة تسطيب هتلاقوها فى الفيديو دا ثانيا تثبيت Microsoft SQL Server 2008 R2 RTM - Management Studio Express وهتلاقو طريقة التثبيت فى الفيديو دا نخش بقى على المهم بعد التثبيت هنفتح Management Studio Express هتلاقوه فاتح الشاشة دى هتكتب فى اسم السيرفير .\SQLEXPRESS وبعدين connect هتطلعلك الشاشة دى كليك يمين واختار داتابيز جديدة زى الصورة بالظبط هتظهرلك شاشة التالية هنكتب فيها اسم قاعدة بيانات اللى انت عاوزها وبعدين OK بعد كدا هتظهرلك قاعدة بايناتاك ضمن قواعد البيانات زى اللى فى الشاشة التالية لو مظهرتش كليك يمين ورفريش هتظهر معاك على طول --------------------------------------------------- كدا احنا انشأنا قاعدة البيانات على السيرفير ولكن بدون جداول فاضل بقى نظهر قاعدة البيانات للاكسس علشان يقدر يشوفها على السيرفير المحل تابع معايا اولا من قائمة استارت اختار بحث او ابحث عن البرنامج الاتى odbc data sources افتحه هيظهرلك الشاشة دى اختار Add بعد كدا هتظهرلك دى اختار Sql Server وبعدين Finsh هتظهرلك الشاشة دى طبعا هتكتب اسم قاعدة البيانات اللى انت عاوزها ونفسها فى حقل الوصف واسم السيرفير دا .\SQLEXPRESS وبعد كدا Next هتظهرلك الشاشة دى اختار منها Next هتظهر الشاشة دى علم على اللى فى الصورة واختار منها قاعدة بياناتك اللى انت انشأتها بعد كدا هتظهر اخر شاشة دى اختار منها Finsh هتظهرلك شاشة تاكيد اختار منها OK وممكن تعمل منها تيست لقاعدة البيانات تشوفها متصلة ولا لا بعد كدا هتلاقى قاعدة بياناتك ظاهرة فى كما فى الشاشة التالية --------------------------------------------- كدا احنا وصلنا لنص المهمة ظهرنا قاعدة البيانات للاكسس فاضل بس اصدر ليها الجداول بتاعتى هتفتح الاكسس وكليك يمين على الجدول نختار الاتى بعد كدا بعد كدا امسح الجدول طبعا قبل ما تمسح خد نسخة من قاعدة البيانات علشان مترجعش تصوتلى تقولى البرنامج باظ هههههههههه بعد كدا من بيانات خارجية فى الاكسس اختار التالى بعد كدا الاتباط بمصر البيانات علشان يعمل لينك للجدول بين السيكوال والاكسس بعد كدا اختار قاعدة البيانات بتاعتنا بعد كدا هتلاقى الجداول اللى صدرناها ظاهرة فى الاول مسبوقة بكلمة dbo_ اختاره واضغط اوكيه بعد كدا هياكد معاك حقول الجدول اللى هيا مفتاح اساسى اختار المفتاح الاساسى فقط هتلاقى الجدول ظهر عندك فى قاعدة البيانات الخاصة بك بهذا الشكل فقط اعد تسميته كما كان والجدول ظاهر بكل بياناته وبكدا يبقى قاعدة البيانات اتحول من اكسس الى سيكوال وسهل جدا تعمل لها باك اب من خلال سيكوال شكرا لكم

وهذا بالكود قبل الحدث بدون تحقق من الصحه If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " ElseIf Len(Tel) <> 11 Then MsgBox " فـضـلاً أدخـل احـدعـشـر أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Cancel = True Me.Tel.Undo End If

الشكر لله اخي ثم للاستاذ @أحمد الفلاحجى ماشاء الله لديه مكتبة من الامثله الرائعة

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة ثانياً ابسط كود يمكن استخدامه وهو عملي جداً ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub ثم في النموذج الرئيسي لبرنامجك ضع الكود التالي في حدث عند التحميل Call HideAccess تحياتي

بالتوفيق اخي احمد

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

اظن هذا حسب طلبك If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo ElseIf Len(Tel) <> 11 Then MsgBox " فـضـلاً أدخـل احد عـشـر أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo End If ex.mdb

الموضوع قديم. يغلق

بورك فيك تمت تجربة الملف يعمل 100 % الان لديا ملفان يعملان بنفس الطريقة ملف الاخ بن علية وملفك انت اخ سليم لكن بدوال مختلفة اكيد هو سحر الاكسيل يا خبراء ادامكم الله عونا لنا وزادكم من علمه

تفضل الملف مع المعادلات 22_salim.xlsx

السلام عليكم يكفي إضافة شرط وجود "القسم" في الجدول حسب المادة كما فعلت في الملف المرفق... بن علية حاجي 22.xlsx

بالنسبة للتحويل sqlservr في الخطوة الاولى تقوم بعملية استيراد الجداول من الاكسيس الخطوة الثانية الهامة جدا القيام بالتعديل على الجداول بما يتلائم مع قاعدة اس كيو ال فمثلا لا يوجد في اسكيوال ترقيم تلقائي بل يكون الحقل INTEGER ثم coulum properties ----identity spicification---IS edentity------yes بعد الانتهاء من التعديل تذهب تبدا انشاء العلاقات وذلك في قاعدة اس كيوال تختار ضمن قاعدة بياناتك يوجد فولدر اسمه database diagrams كليك يمين new database diagrams ستفتح لك شاشة فارغة تختار كليك يمين اضافةجداول ثم انشاء علاقات بالسحب وانصح كل شخص يريد ان يحول الى اس كيو ال كقاعدة خلفية ان يحضر السلسلة التالية على اليوتيوب وان شاء الله ساكتب المختصر المفيد للسلسة التي على اليوتيوب ان كانت الظروف ميسرة https://www.youtube.com/watch?v=muuj5KPv5lA&list=PLjE0e7CYrXToCWrkWp3VFN_-HCzvqn75x وان كانت باللغة الانجليزية لكن تستطيع ان تفهما بالنظر والتطبيق لانها تعتبر اهم من شرح طريقة الربط

جرب هذه المعادلة في الخلية V7 مع (Ctrl+Shift+Enter) ) واسحب يمينا و نزولاً =IF(ISNA(MATCH($U7&V$6,D$5:D$100&$C$5:$C$100,0)),"",INDEX($B$5:$B$100,MATCH($U7&V$6,D$5:D$24&$C$5:$C$100,0)))

جزاك الله خيرا استاذ احمد

بسم الله الرحمن الرحيم كنا قد اشرنا سابقا الى امكانية قراء ملفات التكست اونلاين وقام الاخوة الافاضل بعمل بتطبيق ذلك بافضل الامثلة منها التحديث لقواعد البيانات والتفعيل وما الى ذلك وها انا ذا احذو بكم بعيدا قليلا عن مجال الاكسس واقدم لكم تطبيقى لقراءة الملفات اونلاين فى الواقع قمت بتنفيذ ذلك الموضوع بالاكسس مسبقا ولكن لم يروق لى الموضوع ببساطه هو مجلة نعرض بها اى موضوع يرسله لى اى عضو اذا احب ان يشارك موضوعه معنا مثلا لديك برنامج تريد عرضه على المجلة بطريقة جميلة وجذابة او شرح لك ابدعت به واستفاد منه الاخوة فقط ارسله الى المجلة وسيتم مراجعته وادراجه فى المجلة المجلة تنقسم الى تطبيقين اول تطبيق هو ( ماى اكسس ) وهو للمستخدمين ويتم عرض به الموضوعات وهو على هذا النحو اما التطبيق الثانى وهو الخاص بالتحكم بالمجلة وهو انشأته لدى على هذا النحو ومن خلاله اتلقى طلباتكم بخصوص عرض برامجكم وموضعاتكم اما عن كيفية العمل فالموضوع بسيط جدا ويمكن تنفيذه بالاكسس لانه فى الاساس مربوط بقاعدة بيانات اكسس قد يتسائل احدكم كيف تصلك طلباتكم الى هل هى استضافة ام ماذا فى الواقع كل ما استخدمه فى هذا الموضوع هو انشاء حساب على دروبوكس مجانى فقــــــــط اما طلباتكم فهى تصلنى على هيئة بريد اليكترونى تم تصميمه بكيفية معينة وتم ربط قاعدة بيانات لوحة التحكم ببالبريد هكذا وتقوم لوحة التحكم بتهيئة البريد الذى يصلنى وفلترته وانشاء المقالات يمكنك ارسال مقالك من هنا اولا اتمنى ان تستمتعو ثانيا بعد الاستمتاع بقى التجربة هههههههههه شكرا لكم الصور التى على المجلة يقوم العضو برفعها اوللا على الانترنت وادراج الرابط الخاص بها عند انشاء المقال الخاص به اى ان رابط الصورة المستخدمه لا يكون رابط محلى على جهاز المستخدم بل صورة مرفوعة على الانترنت MyAccess.rar

المرفق بحث في نفس الملف في كل الصفحات وترحيل الى شيت.xlsm

شكرا لك اخي

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

فورم اخفاء واظهار التكست بوكس والليبل شرح عمل فورم فيديو 1 الفيديو

جزاك الله خيرا اخى عبداللطيف

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

السلام عليكم جرب ما يلي : ElseIf Marks = "V" And sw.Cells(x, 6).Value > TimeValue("8:00:00 AM") Then sw.Cells(x, 9).Value = " حضور متأخر" بن علية حاجي

وعليكم السلام .. جرب هذا.. New Microsoft Office Excel Worksheet (2).xlsx

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

اتفضل اخى واليك الرابط به الحل بالتوفيق مجموع كل صفحه_1.accdb

بالاضافه لما قاله استاذ @sandanet ارفق لك ملف به بعض الدروس للاستفاده منها Lessons اهم الدروس.rar وجزاه الله كل خير صاحبها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

اطلع على هذا الموضوع

جزاك الله خيرا .. رائع أستاذ عبد اللطيف

up

الاخ M.NHAKAMI جرب هذا الكود و انظرالمرفقات Private Sub UserForm_Activate() ' With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 100) Width = .Width Height = .Height End With ' End Sub Test_1.rar

السلام عليكم إذا كنت تريد التعديل على هذه الملاحظات فما عليك إلا مسح التي تريد وتستبدل بجديد في العمود DA من الخلية DA7 إلى الخلية DA58، فقط يجب الالتزام بعدد الصفوف في فصل : الفصل الأول من 7 إلى 30 والفصل الثاني من 31 إلى 44 والفصل الثالث من 45 إلى 58 (تعمل ذلك في شيت وتنسخ في الشيتات الأخرى)... والله أعلم بن علية حاجي السلام عليكم أنبه أنه يمكن التعديل على الملاحظات في ورقة إضافية (بعد أن ننسخ فيها الملاحظات الموجودة حاليا في العمود DA) ثم نقوم بلصقها كقيم في العمود DA بداية من الخلية DA7 (حتى دون إظهار هذا العمود -نتركه مخفيا-)... ويمكن أيضا إضافة ملاحظات جديدة في العمود DB -مثلا- خاصة بعمود "إرشادات للتحسن" مع تعديل طفيف على الأكواد ليجلب قوائم الملاحظات الخاصة بكل عمود... هذا كله دون المساس بتنسيق الملف الأصلي ماعدا في إضافة ورقة جديدة للملاحظات والتعديل الطفيف على الكود الذي ذكرته... بن علية حاجي

اولاً اين افضل اجابة؟؟؟؟ ثانياُ استبدل في المعادلات الرقم 12 بالرقم 100 ولا تنس (Ctrl+Shift+Enter) وليس ( Enter ) وحدها لتنفيذ المعادلة واسحب نزولاً حتى اخر صف رقم 105

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

جرب هذا الملف Masouliya.xlsx

عبر خاصية Alignment

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

بارك الله فيك فهذا يدل على نبل اخلاقك وتواضعك وأنا أيضًا أشكر كل الأعضاء والقائمين على هذا المنتدي وفقنا الله وإياكم لما فيه الخير

يمكنك عمل ذلك باغلاق ال ("range") للمعادلات ثم غلق الشيت والملف غير موضح به اي من المعادلات تريد اقفالها

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

جرب هذا الماكرو ربما يفي بالغرض Set ws = Sheets("الهدف") Dim lr, lr2, X Dim CH As Range Set CH = ws.Range("o2") Dim SH As Worksheet lr2 = 11 Application.ScreenUpdating = False ws.Range("c11:e11").ClearContents For Each SH In Sheets If SH.Name = "الهدف" Then GoTo 1 lr = SH.Range("c" & Rows.Count).End(xlUp).Row For X = 5 To lr If CH = SH.Cells(X, "c") Then ws.[d5] = SH.Name ws.[c7] = SH.Cells(X, "b") ws.Range("c" & lr2).Value = SH.Cells(X, "a").Value ws.Range("d" & lr2).Resize(1, 2).Value = SH.Cells(X, "c").Resize(1, 2).Value lr2 = lr2 + 1 End If Next X 1: Next SH Application.ScreenUpdating = True End Sub

ترحيل خليه محدده بدون التنسيق.xlsm

تم إنشاء موضوع جديد خاص بالاتصال بالسيرفر فى هذا الرابط

بسم الله الرحمن الرحيم للتسهيل في استخراج مواد الرسوب للطلبة تم عمل هذه الدالة لاستخراج المواد الراسب فيها او متغيب يشترط وجود صف الدرجة العظمى ودرجة النجاح نضع هذا الكود في موديول Function ASEEL(x As Range) Dim D As String For Each Rng In x If Rng = "" Then GoTo 1 If Rng < Cells(5, Rng.Column) Or Rng = "غ" Then D = " (" & Cells(3, Rng.Column).Text & ")" & D End If 1 Next If D <> "" Then ASEEL = D Else ASEEL = "ناجح ومنقول" End If End Function ونضع هذه الدالة في الملاحظات داخل الكشف ونسحبها نزولا كما موضح بالمرفق =ASEEL(D6:J6) وشكرا دالة معرفة لاستخراج مواد الرسوب.rar

السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير ومنتدانا فى أحسن حال إليكم كشوف الملاحظة للمرحلة الإعدادبة ويتم إستبعاد مدرس المادة ويتم إستبعاد المدرس المنتدب( خارج المدرسة ) يوم الامتحان ويتم التوزيع بالعدل والله ولى التوفيق _____________.rar

اخي الامر بسيط جدا جدا وهو عند طلب فتح اي برنامج مثل ما ارفقت ما عليك الا أن 1- تؤشر بالماوس على الملف 2- تضغط زر الشيفت مع انتر ( في وقت واحد ) 3- لا تترك زر الشيفت الا بعد ان يفتح البرنامج 4- اذا فتح البرنامج اذهب الى القائمة التي باعلى البرنامج 5- ستجد ( ادوات ) اضغط عليه -- تفتح لك قائمة اختر منها ( بدء التشغيل ) لتفتح لك شاشة 6- ستجد مربعات صغيرة فارغة - نشطها - اي ضع اشارة الصح امامها جميعا -- ثم موافق 7- اخرج من البرنامج -- وادخل له مرة ثانية بضغط انتر او بالماوس مرتين متتاليتين - وبعدها سيفتح لك البرنامج وستجد جميع ما يحتويه مع تحياتي واحترامي