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

وهنا انا شرحت ليش قمت بهذه الطريقة: . . بينما في السؤال الآخر للاستاذ فايز : . ما انتبهت للكود كاملا ، فوضعت نفس الكود ، ولكن للسطر التالي (12 بدلا عن 8 ) : . والنتيجة نفسها طبعا ، مع الاخذ في الاعتبار اني نقصت من 12 بدلا عن 8 🙂 جعفر

تفضل تم وضع كلمة مرور "123" لتأكيد الدخول على هذا الاجراء iBox = Application.InputBox("ادخل كلمة المرور لهذا الاجراء", "تأكيد بكلمة المرور") If iBox <> "123" Then Exit Sub 'تغير الباس من خلال هذا السطر BBBBB.xls

انت سؤالك كان في الحقل text2 ، جرب الرقم 1231231172564 واخبرنا النتيجة 😁 اما لو سؤالك كان: والحقل text2 = رقم ( 7 ) ، فالموضوع مختلف 🙂 جعفر

وعليكم السلام 🙂 تفضل : If Left(Me.text1, 1) = 7 And InStr(Me.text2, 7) > 0 Then MsgBox "رسالة التنبيه هنا" End If جعفر

وعليكم السلام اتفضل اخى @حسين العربى ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق test1.accdb

وعليكم السلام 🙂 في ذيل النموذج Form Footer (ونفس الطريقة للتقرير) : . =Sum(IIf([microtype]='Large',[micronum],0)) . والنتيجة . وللتأكد ان النتيجة صحيحة ، نستخدم المجاميع في استعلامك: للجميع: . وفقط large : . والنتيجة مطابقة لتلك التي في النموذج 🙂 وبعد البحث: جعفر 1183.micro.accdb.zip

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

تتفضل اخي هذا الرابط في المنتدي وفيه ما تطلب واكثر https://www.officena.net/ib/topic/45803-تطبيقات-،-شروحات-وحلول-برمجية-مسجلة-فيديو/#entry271170 وهذا المرفق ما تطلبه وهو موجود بالرابط NA_ComboBox.rar

Try This macro Option Explicit Sub Colorize() Dim Sh As Worksheet Set Sh = ActiveSheet Dim Rg As Range, cel As Range Dim at_c As Worksheet Dim Fadr$, Sadr$, i% Dim Act_Rg As Range, F_rg As Range Set Rg = Sh.Range("a1").CurrentRegion.Columns(1).Cells Rg.Interior.ColorIndex = xlNone For i = 1 To Sheets.Count If Sheets(i).Name <> Sh.Name Then Set Act_Rg = Sheets(i).Range("a1").CurrentRegion.Columns(1) Act_Rg.Interior.ColorIndex = xlNone For Each cel In Rg Set F_rg = Act_Rg.Find(cel, lookat:=1) If F_rg Is Nothing Then GoTo Next_cel cel.Interior.ColorIndex = 6 Fadr = F_rg.Address: Sadr = Fadr Do F_rg.Interior.ColorIndex = 6 Set F_rg = Act_Rg.FindNext(F_rg) Sadr = F_rg.Address If Sadr = Fadr Then Exit Do Loop Next_cel: Next cel End If Next i End Sub File Included Tekrar_by_sheets.xlsm

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

السلام عليكم .المعذره لم استطع تحميل ملفك المرفق عموما ..ضع الكود التالي في حدث الورقة المطلوبه ويمكن لك التحكم في المدى بين علامتي "" Private Sub Worksheet_Activate() ScrollArea = "A1:N100" End Sub

السلام عليكم ورحمة الله وبركاته مسقط التصفح : هو برنامج لقراءة صفحة الانترنت ، واستخراج اسماء الحقول ، لإرسال البيانات اليها من برنامج الاكسس ، او استيراد البيانات منها الى الاكسس وبما ان برمجة صفحات الانترنت تختلف من مبرمج الى آخر ، فبرنامجنا لن يشتغل على جميع الصفحات / المواقع ، وبالتجربة فقط نستطيع معرفة الصفحات التي يشتغل عليها البرنامج طريقة العمل: النموذج frm_browse يحتوي على (1) كائن Microsoft Web Browser (والذي لا يحتوي على جميع مكونات البرنامج الاصل Internet Explorer ، ولكنه يفي بالغرض) ، ندخل اسم الموقع في (2) حقل التحرير والسرد url_Address ، ثم نضغط على (3) الزر Go ، والذي سيفتح الموقع في النموذج ، وسيتم حفظ عنوان الصفحة ، واعطائة رقم مسلسل في الجدول tbl_url_address ، الزر (4) "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الزر (5) "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول tbl_Send_Get في البرنامج ، والاصعب كان استخراج بيانات حقول التحرير والسرد من الصفحة ، والتي يتم حفظها في الجدول tbl_Options ، ولما يستخلص البرنامج جميع حقول الصفحة ، سيفتح النموذج frm_Send_Get ، الزر (6) "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح نفس النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نرى الحقول التي استطاع البرنامج التعامل معها ، (8) رقمها المتسلسل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (9) نوع الحقل والذي قد يختلف من صفحة الى اخرى ، (10) اسم الحقل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (يجب ادخال اي اسم في الحقول الفارغة) واذا كان الحقل عبارة عن مربع تحرير وسرد ، وللحصول على قيمه ، انقر على الاسم مرتين ، فينبثق النموذج frm_Options بالاختيارات (تابع الشرح لاحقا) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل (11) Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في صفحة الموقع الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل (14) Get_Data ، والمهم في هذه التجارب هو معرفة صيغة قبول الحقل للمعلومة ، بالنسبة لحقول التحرير والسرد وكما اشرت سابقا ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في الصفحة في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، (12) يجب اختيار اي من الحقول التي تريد ان تستعملها من الموقع ، (13) وهنا تختار تسلسل الحقول التي تريد ارسال البيانات الى صفحة الموقع ، يعني تختار زر الارسال بعد اختيارك لبقية الحقول ، والحقول التي لا يهمك ترتيبها ، فدعها فارغة ، (12) و (13) هما اساس الخطوة التالية ، الى هنا وينتهي العمل مع صفحة الموقع ، والتي نختصرها: ادخل عنوان الصفحة (2) ، اضغط على (5) "احفظ في الجدول" ، جرب اذا الحقول تعمل ، ثم (12) تختار الحقول التي تريد التعامل معها ، و (13) ترتيبها ، الزر (7) "عمل نموذج ارسال ، استراد بيانات لهذا الموقع" ، وسيفتح النموذج frm_Make_Form للصفحة التي انت عليها الآن ، من هنا سيقوم البرنامج بعمل: عمل قاعدة بيانات جديدة (برنامج اكسس) خارجية متكاملة بالاسم والمسار الذي اخترته في (15) ، بالجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، واذا هذا البرنامج تم عمله سابقا (يعني عندك برنامجك الخاص واسمه ومساره في (15)) ، فسيقوم البرنامج بإضافة الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، نختار اين نريد ان نعمل الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، الزر (16) يقوم بكل هذا العمل ، قاعدة البيانات / البرنامج الخارجي: افتح النموذج frm_web_Sites ، فيعطيك اسماء الصفحات التي قمت بعملها في (16) ، وهذا نموذج التعامل مع صفحة الموقع ، وجميع الحقول التي اخترتها في (12) موجودة هنا ، وطريقة استخدامه: قم بتعبئة البيانات التي تريد ارسالها للموقع ، واذا كان عندك زر ارسال فيجب عمل صح عليه لإستعماله ، قم بفتح المتصفح بالضغط على الزر "Open Browser" ، والذي سيفتح المتصفح Internet Explorer خارجي ، ولا علاقة لك به ، فالكود سيتعامل معه اضغط على الزر "Send Data" ، وستكون البيانات قد تم تصديرها من نموذجك ودخلت في صفحة الموقع ، او اضغط على الزر "Get Data" ، وستكون البيانات قد تم استيرادها من صفحة الموقع الى نموذجك ، وهذا جزء من الكود الموجود في النموذج ، وسترى ان تسلسل ترتيب ارسال البيانات هو حسب الاختيار في (13) ، وغالبا (99% من الوقت) لن تحتاج الى عمل تغيير في الكود: . الزر (16) فيه تُحف فنية ، فلا تتردد من الدخول في الكود والغوص فيه والخروج بلآلئ فريدة جعفر Muscat_Browsing.zip

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

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

السلا عليكم اخي سليمان 🙂 شكرا على تذكيري 🙂 بسبب نوع حبر الطابعة ، وطريقة طباعة الطابعة Draft او Normal ، والورق ، لهذا السبب لن تحصل على نفس النتيجة/اللون الموجود في الشاشة ، وعليه ، يجب ان تجعل التظليل في الحقل ادكن قليلا ، واطبع وشوف النتيجة ، وبهذه الطريقة تجعل التظليل ادكن او افتح ، الى ان تصل الى اللون الصحيح على الورقة 🙂 جعفر

تفضل الملف موجود أم غير موجود.rar

السلام عليكم ملف تجريبي لملفك مخطط 1 تم عمله بالاكسس مخطط 2 تم عمله بالاكسيل في رابط فيديو لعمل المخططات والرسوم البيانية بالاكسس تحياتي https://www.youtube.com/watch?v=dRG8JCgNxyU db1.rar

عفوا اخى حسين كان يوجد خطأ مطبعى بالكود 😀 x = Nz(DLookup("sale_id", "sale", "[reg_date]=" & Format([reg_date], "\#mm\/dd\/yyyy\#") & "And [code]=" & [code]), 0) If x > 0 Then MsgBox ("íæÌÏ ÝÇÊæÑå áåÐÇ ÇáÚãíá :" & " " & Me.code.Column(1) & " " & "/ ÈäÝÓ ÇáÊÇÑíÎ ") Me.Undo End If جرب الان ووافنى بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق AUP_DlookupNew.accdb

شكرا استاذنا الفاضل ساقوم بالتجربة و ابلغك النتائج و انا شاكر لجنابكم

تمام استاذ خالد اعتذر اني جديد بس تمام من اليوم اعمل مثل مال مطلوب

الف شكر استاذ سليم 100/100

السلام عليكم تم اضافة كود تحديث تحياتي اتمنى يكون المطلوب ثلاث قوائم منسدلة عن طريق العلاقات.rar

يمكن اضافة هذا الكود الى حدث Workbook ليعمل كما تريد Option Explicit Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Sh.Range("A1").CurrentRegion.Columns(1)) Is Nothing And _ Target.Count = 1 Then Colorize End If Application.EnableEvents = True End Sub الملف مرفق Auto_Tekrar_by_sheets.xlsm

السلام عليكم 🙂 اخي مصطفى :) الرابط التالي فيه طريقة عمل الباركود للهويات ، وبدون تسجيل اداة ocx ، فيا ريت تقرأه بالكامل وعلى استكانة شاي ، وتستفيد من تجربتي 🙂 وسنويا يتم طباعة اكثر من 14 الف هوية بهذه الطريقة ، ويتم توزيع الرواتب عن طريق قراءة هذه الهويات عن طريق جهاز قارئ الباركود العادي : . في المادة 7 من الرابط اعلاه انا ذكرت حل لهذه المشكلة: 7. بإستخدام طريقتي اعلاه ، اتضح ان جهاز الباركود يقرأ 3 ارقام فأكثر (يعني يقرأ الارقام من 100 فما فوق) ، لهذا السبب ، ولتخطي هذه المشكلة ، نستخدم الكود التالي (و الشكر لحسن ناجح الذي اقترح هذه الطريقة 🙂 ) ، والذي يحول الارقام الاقل من 3 ، بإضافة اصفار قبلها (يعني 5 يصبح 005 وهكذا) : 'since the Barcode reader cannot read less than 3 digits, 'so lets add zeros before it, so that it becomes 3 digits long, 'but then, for the reading field, it must be INT If Len(Me.Emp_ID) < 3 Then Me.Barcode = "*" & Format([Employee_ID], "000") & "*" Else Me.Barcode = "*" & [Employee_ID] & "*" End If ** ولكن في وقت قراءة الباركود ، يجب ان تتم القراءة في حقل رقم ، مما سيلغي الاصفار تلقائيا فأرجو تستفيد منها 🙂 جعفر

طيب فى خانه البحث الموجوده اسفل بشريط المهام المرفق التالى هتعمل العمليه يدوى وان شاء الله تنجح معاك اكتب cmd لما تظهر كليك يمين واختار فتح كمسؤول بالتوفيق ان شاء الله لتسجيل الاداه بعد وضعها بمجلد سيستم 32.rar

See This Video https://www.youtube.com/watch?v=z5o5ADguYb0

تفضل مع ملاحظة الشرح في بعض الاوراق ںé ©ëںê¤ ¥« ںéêلéي .xlsm

سؤال هل قمت بتثبيت الباركود ؟ مرفق ملف لتقريرك اطبعه ووافنا بالنتيجه REPORT.pdf ان لم تكن ثبت الباركود قم بتثبيته مرفق ملف الباركود وملف لتسهيل التثبيت ووافنا بالنتيجه بالتوفيق تسجيل ادوات اكتيف اكس وعند تسجيل اي اداة وذلك بالضغط بالماوس الايمن عليها ستجد هذا البرنامج موجود ضمن القائمocxdllreg.rar B-barcodex.rar

اولاَ الملف يجب ان يحتوي على قليل من البيانات وليس اكثر من 1500 صف (انه نموذج وليس الملف الخقيقي) ثانياً أهنئك على انك فهمت ماذا يعني الجدول للاكسل وقمت بتطبيق المطلوب من ناحية عدم ادخال خلايا غريبة في الجدول وعدم ادراج خلايا مدمجة ثالثاً يجب ادراج انتائج في صفحة مستقلة (من اجل عدم الخطأ في حال تشغيل الماكرو اكثر من مرة) في هذه الحالة يتم تجاوز الصف الأعلى رابعاً تم ادراج مثال عما تريد في صفحتين الاولى للبيانات السابقة (Salim) والثانية للبيانات المحدثة (Final) تم اخفاء بعض الاعمدة وليس حذفها لرؤية النتيجة فقط الكود Option Explicit Sub From_To() Dim S As Worksheet, F As Worksheet Dim Ro%, RofC%, rofAJ%, I%, Str$ Dim Dict As Object Set S = Sheets("Salim"): Set F = Sheets("Final") Set Dict = CreateObject("Scripting.Dictionary") Ro = S.Cells(Rows.Count, 3).End(3).Row RofC = F.Cells(Rows.Count, 3).End(3).Row rofAJ = F.Cells(Rows.Count, "Aj").End(3).Row F.Range("C11:C" & RofC).ClearContents F.Range("AJ11:Aj" & rofAJ).ClearContents For I = 11 To Ro Select Case Trim(Range("AJ" & I)) Case "الاول": Str = "الثاني" Case "الثاني": Str = "الثالث" Case "الثالث": Str = "الرابع" Case "الرابع": Str = "الخامس" Case "الخامس": Str = "السادس" Case "السادس": Str = "يرحل للثانوي" Case Else: Str = "To Coll" End Select If Range("AK" & I) = "ناجح" Then Dict(Range("C" & I).Value) = Trim(Str) Else Dict(Range("C" & I).Value) = Range("AJ" & I).Value End If Next F.Range("C11").Resize(Dict.Count) = _ Application.Transpose(Dict.keys) F.Range("Aj11").Resize(Dict.Count) = _ Application.Transpose(Dict.items) Set Dict = Nothing: Set S = Nothing End Sub الملف مرفق من صف لاخر.xlsm

شاهد هذا الفيديو

وعليكم السلام -يمكنك استخدام هذه المعادلة =SUMPRODUCT(--($H$10:$H$20=$N1),SUBTOTAL(2,OFFSET($G$10:$G$20,ROW($H$10:$H$20)-ROW(H10),0,1))) فلترة1.xlsx

السلام عليكم معكم ساجدة العزاوي من العراق اول مشاركة لي في المنتدى فديو مميز سهل رائع لاقى صدى واسع ينفع للكل للمدارس لدوائر الدولة للقطاع الخاص فديو عملته بـ 8 اجزاء ولما شفت كثيرين استفادوا منه عملت فديوين بعنوان في الاكسل متعة وسعادة وفرح فاصبح 10 اجزاء وساكمله باجزاء اخرى ... لانه رائع ومميز وسريع هناك من يريد تنسيبه لنفسه اترككم مع الفديو بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي

استاذ سليم حاصبيا اشكرك جدا على الترحيب ربي يخليك ويرضى عنك ويسعدك يارب .... شكرا جزيلا لي الشرف التعرف على حضرنك

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

لا ادري كيف عملت over group علي حقل رصيد سابق هل تقصد على التعبير مربع رصيد سابق ؟ ياليت ترفع الملف أخي @اسلام سيدفي المرفق تجد قاعدتين على طريقتين جرب و وافيني بنتيجة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

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

و هذا حل آخر على طريقة مختلفة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

وعليكم السلام ورحمة الله وبركاته تفضل Insert.accdb

وعليكم السلام ورحمة الله وبركاته انا قمت بتبديل المسميات العربية بحروف انجليزية لتسهيل العمل اختصرت لك الأوامر التي قمت بعملها انت جرب ووافني بالنتيجة هذا هو الاستعلام المعمول به بدل الثلاثة استعلامات الخاصة بك وأعطى نفس النتيجة التي تريد SELECT DFTbl.ID, DFTbl.Dt, DFTbl.Dw, DFTbl.Fw, DSum("[fw]","Qry","ID<=" & [ID])-DSum("[dw]","Qry","ID<=" & [ID]) AS FwateerPalance, DateDiff("d",[Dt],Now()) AS DtNum, moneyAge([DtNum]) AS [note] FROM DFTbl ORDER BY DFTbl.ID, DFTbl.Dt; يبقى امر سرعة الانجاز :: تحياتي اعمار_الديون_-_اسلام_الشيمى.accdb

شغلك تمام ، بس !! 1. ما عندك عرض كافي ، فصغّر عرض الحقول ، 2. قلل من عرض مسافات اليمين واليسار في الطابعة ، 3. استعمل معاينة التقرير ، . 🙂 جعفر 1064.جعفر اوفسنا.accdb.zip

انا اول مرع بصراحة اتعامل مع المرفقات كنت ابحث وكنت ادرس الكود https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/field2-savetofile-method-dao ثم لتعلم ان الفضل كله لله عزوجل هو العليم و لو لا تفضله سبحانه وتعالى علينا ما اهتدينا

من قال ذلك يبدو انك لم تشاهد تلفزيون اوفيسنا اتمنى لكم مشاهدة ممتعة officena_smart_tv.zip

الأخ العزيز خالد عبد الغفار هل هذا هو المطلوب؟ كل عام أنتم بخير bb1.zip

السلام علكيم. الاغلب يعاني من مشكلة تصدير البيانات كان تكون جداول او استعلامات او تقارير..الخ الى اكسل ولكن! مع بقاء مسميات الحقول العربية ( Caption ) الان لنفرض لدي الجدول اسمة Customers وهذه الاعمدة الخاصة به واما المسميات فهي هذه الان عند محاول تصدير هذا الجدول الى اكسل بإستخدام VBA يتم تصديره ولكن لا تظهر المسميات العربية مثل اسم الموظف, الرقم الوظيفي..الخ بل تظهر اسماء الحقول باللغة الانكليزية , وهذه مشكلة. الان قم بأنشاء ماكرو جديد ثم طبق كما موجود بالصورة, اختر نوع الكائن الذي تريد تصديره جدول استعلام ... الخ واسم الكائن ، واهم شي تنتبه للتنسيق اختار كما قمت انا بأختياره وسيتم تصدير الجدول بالمسميات العربية. ارفقت لكم قاعدة بيانات كـ مثال للشرح لمن واجه صعوبة في شيئ ما. حسنين export_to_excel_semo_pa3x.accdb

اهلا استاذي. نعم جربت والنتيجة توووووب Function Excel_qry_Filter_Assisstnce_Gaved() On Error GoTo Excel_qry_Filter_Assisstnce_Gaved_Err DoCmd.OutputTo acOutputQuery, "qry_Filter_Assisstnce_Gaved", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint Excel_qry_Filter_Assisstnce_Gaved_Exit: Exit Function Excel_qry_Filter_Assisstnce_Gaved_Err: MsgBox Error$ Resume Excel_qry_Filter_Assisstnce_Gaved_Exit End Function

الحمد لله الذى بنعمته تتم الصالحات تم الحل حل مشكله التاريخ.rar

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

تفضل قاعدة البيانات Months.rar

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

إستكمالا لكلام الأخ أمير تعالو أولا ، نتعرف علي لغة السي كيو ال السي كيو ال هو لغة التعامل مع قاعدة البيانات و ينقسم الي 3 أقسام لغة معالجة البيانات DML Data manipulation language لغة تعريف البيانات DDL Data Definition language لغة التحكم فى البيانات DCL Data Control language لغة معالجة الييانات ادراج بيانات تحديث بيانات حذف بيانات استرجاع بيانات لغة تعريف البيانات هي إنشاء قاعدة البيانات فى البداية كان يتم انشاء قاعدة البيانات باستخدام جمل SQL ثم بعد ظهور نظم ادارة قواعد البيانات أصبحت هذه العملية تتم من خلال واجهة رسومية سهلة الاستخدام قادرة علي انشاء و التحكم أيضا فى قواعد البيانات و هذه اللغة مسئولة عن : إنشاء جدول الغاء جدول تعديل جدول العلاقات و للتعامل معها من خلال الاستعلامات لا يوجد سوي استعلام انشاء جدول جديد أما الباقي فعلينا بالتعامل معهم بالكود لغة التحكم تتولي معالجة صلاحيات المستخدمين و هذه العمليات أيضا أصبحت تتم من خلال الواجهة الرسومية لنظم ادارة قواعد البيانات موضوع مرتبط : أسهل طريقة لكتابة جمل سي كيو ال بالكود