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

ومشاركة مع أستاذنا أبا جودي ، يمكنك عملها بهذه الطريقة عند فتح الفورم الذي به الزر .. If [Forms]![Login]![IsAdmin] = True Then Me.Botton.Visible = True Else Me.Botton.Visible = False End If ويختلف الأمر باختلاف الطرق التي تم تعيين الصلاحيات بها .

شوف رقم يوزر الادمن او اسمه واعمل الزر اصلا مخفى وعند فتح النموذج if adminSN=1 then me.cmdX.Visible = True ' OR By Name if adminUN="Admin" then me.cmdX.Visible = True

ياسلام ياسلام عليك يا معلم @jjafferr .. حطيت يدك على الجرح 😅😋🍝🍜🍲🍛 حسيت بطعم التشبيه في بطني 😂 فعلا الأدوات موجودة .. والأفكار تتمايز وتختلف .. وكلنا نكمل بعضنا البعض 👍😉

بارك الله فى عمرك استاذى الجليل

هذه طريقة الترميز ..... Dim dgt As String Dim myv As String txts = "" Dim i For i = 1 To Len(txtr) dgt = AscW(Mid(txtr, (i), 1)) txts = txts & "Chrw (" & dgt & ") & " Next i myv = Left(txts, (Len(txts) - 2)) txts = myv وهذه طريقة فك الترميز Loopy = (CDbl(Len([txts]) - Len(Replace([txts], ")", "")))) txtx = "" c0 = 1 Do c1 = Nz(InStr(c0 + 1, Me.txts, "("), 0) c2 = Nz(InStr(c1 + 1, Me.txts, ")"), 0) c3 = c2 - c1 If c1 <> 0 And c2 <> 0 Then c4 = Mid(Me.txts, c1 + 1, c3 - 1) Loopy = Loopy - 1 c0 = c2 Me.txtx = Me.txtx + CHARW(c4) Loop Until Loopy = 0 و هذا هو الفانك ... Function CHARW(CharCode As Variant, Optional Exact_functionality As Boolean = False) As String If UCase(Left$(CharCode, 1)) = "U" Then CharCode = Replace(CharCode, "U", "&H", 1, 1, vbTextCompare) CharCode = CLng(CharCode) If CharCode < 256 Then If Exact_functionality Then CHARW = ChrW(CharCode) Else CHARW = Chr(CharCode) End If Else CHARW = ChrW(CharCode) End If End Function اكيد قديمة ............. صحيح ..... لاني شفت الطريقة هذه من ايام دنيا دنيا ..... هههههههه

مش انا قلتها لك...انا سرقتها منك بس انت مش واخد بالك 😄

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

مش فاهمك على فكرة انت عارف انا فهمى تقييل ع العموم المرفق النهائى بدون المشكل وبدون اى زيادات التجارب اللى كانت ع الاكواد Converter Arabic and Unicode (v. 3).accdb

السلام عليكم ورحمة الله استخدم الكود التالى Sub DelRows() Dim ws As Worksheet, LR As Long Dim x As Integer, i As Long Set ws = Sheets("Sheet1") LR = ws.Range("B" & Rows.Count).End(3).Row For i = LR To 2 Step -1 x = WorksheetFunction.CountIf(ws.Range(Cells(2, 4), _ Cells(i, 4)), Cells(i, 4)) If x > 1 Then ws.Range("D" & i).EntireRow.Rows.Delete End If Next End Sub

السلام عليكم ورحمة الله استخدم هذه المعادلة و لكن يجب عليك بعدها ان تضغط معا على CTRL+SHIFT+ENTER حتى تعمل معل المعادلة بشكل صحيح =INDEX($G$4:$H$17;SMALL(IF(MIN($H$4:$H$17)=$H$4:$H$17;ROW($H$4:$H$17));1)-3;1)

بصراحة ..لم يخطر في بالي غير هذا الكود الذي تم سرقته منك 😄 Me.frmToArabic.SetFocus Me.frmToArabic!txtUnicode.SetFocus Me.frmToArabic!txtUnicode = "" Me.frmToArabic!txtArabic.SetFocus Me.frmToArabic!txtArabic.ControlSource = ""

كود الاستاذ @Khalfفي ملف للفائدة visitN.accdb

الله يسامحكم ... جوعتونا ... بارك الله فيكم ... بغيت اشغل سيارني واجي عمان ... الله يصلحكم 😂

Sub Test() Dim r As Range, i As Long, c As Long Application.ScreenUpdating = False With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\d+[.]\d+" For Each r In Range("C2", Range("C" & Rows.Count).End(xlUp)) c = 4 If .Test(r.Value) Then For i = 0 To .Execute(r.Value).Count - 1 Cells(r.Row, c).Value = .Execute(r.Value)(i) c = c + 1 Next i End If Next r End With Application.ScreenUpdating = True End Sub

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

شكرا للاستاذ الفاضلlionheart بامكانك الضغط على الخلايا المطلوبة ثم من تنسيق خلايا ثم محاذاة وتختر من اليمين الى اليسار

هل هو نفس الجدول ام جدول آخر غير الموجود بالاستعلام ؟! الحقول الغير مرتبطة لا تسبب مشكلة عند اضافة البيانات علي حد علمي ولكن لعل المشكلة تكون: 1- بوجود علاقة بين جدولين تتطلب ادخال بعض البيانات المرتبطة وتم اهمال احدها 2- او يكون هنالك حقل الزامي يجب ادخال بيانات به ولم يتم تمرير قيمة له بالاستعلام 3- أو يكون هنالك خطأ املائي بكتابة مسميات بعض الحقول او غيرها من الأمور التي لا يمكن تخمينها الا بعد معاينة المشكلة من خلال المرفق

من وجهة نظري الشخصية - ومن الناحية المحاسبية فان هنالك ما يسمي بالخصم المكتسب وهذا الحساب يشمل القيمة المالية التي يتم تخفيضها من قيمة المشتريات (ويدخل في ذلك ما كان عينيا او ماديا) مثال ليتضح المقال: لو ان هذه الشاشات ثمنها 1000 مثلا فقيمة الواحدة 50 اذا اجمالي قيمة ال 22 شاشة هو 1100 ويتم معالجة العملية من الناحية المحاسبية بقيد مزدوج متعدد بهذا الشكل 1100 من حـ/ المشتريات الي حـ/ مذكورين 1000 حـ/ الصندوق (بقيمة المبلغ المدفوع فعليا) 100 حـ/ الخصم المكتسب (قيمة المبلغ الذي تم خصمه من قيمة المشتريات الفعلية أو قيمة البونص او اي شيئ آخر) وقيمة هذا الخصم دائنة وهو تابع لحساب الأرباح والخسائر في الحسابات الختامية ارجو ان يكون كلامي واضحا فقد تكلمت باسلوب المحاسبين 😁 من الناحية البرمجية 1- قيمة المشتريات الفعلية هي 1100 يعني ما سيتم ترحيله الي المخازن هو عدد 22 شاشة بقيمة 1100 يعني قيمة الشاشة الواحدة لن تتغير اي بقيمة 50 كما هي 2- قيمة الصندوق او الخزينة او البنك ستقل بقيمة المبلغ المدفوع فعليا بقيمة 1000 فقط 3- قيمة ال 2 شاشة البونص سيتم اعتبارها ارباح مكتسبة بالكامل 100 أرجو ان لا يكون هذا التوضيح بحاجة الي توضيح هذا والله اعلم

اول خطوة هي جعل الحقول المتشابهة تحت نفس العمود . عملنا استعلام جديد Query1 (وهو استعلام التوحيد) ودخلنا في وضع SQL ، ثم نسخنا جملة SQL الاستعلام الاول اليه ، ثم كتبنا union ، ثم نسخنا جملة SQL الاستعلام الثاني اليه: . والنتيجة . ولكننا نريد ان ندمج السجلات المتشابهة مع بعض ، حتى تكون على سجل واحد ، لذا ، يجب ان نعمل استعلام تجميع ، نجمع فيها قيم الحقول حسب المجموعات ، فنعمل استعلام جديد ، ويكون استعلام التوحيد السابق هو مصدر بياناته : . عند تشغيل الاستعلام الجديد ، نحصل على خطأ ، معناه ان انواع الحقول غير متشايهة !! واذا دققنا النظر في اول صورة ، سنجد انه في نفس الحقل عندنا ارقام و Null و "" ، وهذا ينطبق على الحقول الثلاثة التي نريد مجموعها ، يعني في كل حقل ، لازم نجمع قيمها: الارقام ، و Null ، و "" . اول فكرة تجي على البال حتى نستبدل Null و "" الى صفر ، هو استخدام الامر NZ (مع انه غير محبذ استخدام امر VBA في الاستعلام ، حيث انه سيجعله بطيءً نوعا ما) ، والنتيجة . الخطأ هنا لأن الامر NZ ومعناه Null to Zero ، اي تحويل الحقل الذي قيمته Null الى صفر ، بينما عندنا في الحقل نفسه قيمة اخرى وهي "" ، والتي يجب التعامل معاها كذلك وتحويلها صفر ، والامر NZ لا يعرف التعامل معاها ، انا استعمل الكود التالي لإحتواء الطريقتين : If Len([SumAbsentYes] & "")=0 then او هكذا في الاستعلام SumAbsentYes_1: IIf(Len([SumAbsentYes] & '')=0,0,[SumAbsentYes]) . . والنتيجة . او الطريقة الاخرى للتغلب على Data Type Missmatch ، بأن نحتفظ بقيمة Null ، ولكن قيمة "" نحولها الى صفر في الاستعلامات الاصل: . بإختصار ، خطواتك كانت صحيحة ، ولكن كان يحتاج لها خطوة اخرى 🙂 المرفق فيه Query2 و Query4 للطريقتين 🙂 جعفر 1451.حضور وانصراف موظفينV47.accdb.zip

تفضل يا سيدي 🙂 1450.3.Macro Command.accdb.zip

ممتاز وشغال زي الفل

كنت اقصد طريقة تنفيذ الترميز وفك الترميز هناك طريقة اخرى ... اعتقد رأيتها في المنتدى لكن طالما ان المشكلة انحلت .... خلاص ... الحمد لله

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

ويفتحها عليكم اخوانى واحبابى ويزيدكم من فضله وعلمه بالتوفيق اخوانى

جرب تغيير الكود المستخدم في الترميز بكود اخر

ايوووووون الله يفتح عليك صح والله نسيت

إذا حاط هذا الكود في نفس الفورم اللي موجود فيه الزر اللي هوه [MainForm] مثلا .. أكتبه بهذي الطريقة : Me.Command12.Visible = False

تفضل فورم لاضافة الاهداف والمهارات والأنشطة برنامج التخاطب والمهارات 11.rar

المرفق شغال عادى 😅 اوفيس 2016 32 بيت .. الرسالة دى مش بتظهر

ايش المطلوب ؟؟؟؟ تحويل لنص أم ماذا ؟؟

السلام عليكم ورحمة الله وبركاته درسنا اليوم عبارة عن فكرة فريدة وهي أن تجعل الأكسس يقرأ أي عبارة تريدها ، هذه الميزة تعمل مع النصوص الإنجليزية، وللأسف لا تعمل على النصوص العربية، ولعل هناك طريقة أخرى لا أعلمها فليفدنا من له علم بذلك 🙂 ولا تنسوني من صالح دعواتكم .. ونصائحكم وتوجيهاتكم .. 🙂 ومع ملف الشرح للتطبيق : الأكسس يتكلم.accdb

انا فعلا الان امسيت جوعان

ألف مبروك يا أبا جودي تستاهل كل خير وفقك الله واعانك

عمل مميز ورائع استاذ موسى

السلام عليكم ,, اذا سمحلى استاذنا @jjafferr بالمناقشة فى الموضوع , البداية اخى الكريم هى انك تحصل على IP ثم تبحث عن موقعه لمعرفة المدينة والدولة والوقت الخ .. وبالتالى نظرياً يلزمك انك تحصل على IP ثم يكون عندك نموذج به متصفح , الق نظرة على هذه الاداة الرائعة لأستاذنا صالح حمادى : ثم استخدم ما تعلمت منها وادخل على الموقع التالى بواسطة الاداة ثم قم بتمرير IP الذى حصلت عليه فى مربع البحث الخاص بالموقع التالى مثلا : https://www.geolocation.com والنتيجة ستكون كالتالى : بالتوفيق

مبارك استاذي ابا جودي

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

السلام عليكم ورحمة الله وبركاته عدل ActiveSheet.DisplayRightToLeft = False الى ActiveSheet.DisplayRightToLeft = True ستجد ان اتجاه الصفحه الجديدة من اليمين الى اليسار

مبدئيا تجربة توزيع الطلاب على عدد المدرجات فى انتظار ابداء الرأى لنرى ما بعد ذلك split students.accdb

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

جرب هذا التعديل Option Compare Database Public Myvalue As Integer Public MyP2 As Integer الفورم الاول private sub Zer1_Click() Myvalue = NP1.Value MyP2 = Np2.Value End sub الفورم الثاني If ComPlat.Value = "Twitter" And comType.Value = "Click" Then TargetPlas.Value = txtCost.Value * Myvalue Elseif ComPlat.Value = "Twitter" And comType.Value = "engagement" then TargetPlas.Value = txtCost.Value * MyP2 End If ووافني بالنتائج اذا لم تزل تواجه مشكلة ارفق مرفق للتعديل. الفكرة بكل بساطة هي: 1- انشاء متغير عام يمكن استدعائه من اي مكان بالبرنامج ( عن طريق انشاء وحدة نمطية عامة وكتابة تصريح عام بها باسم المتغير كما هو موضح بالمشاركة الأولي) 2- نمرر قيمة الي هذا المتغير العام من اي فورم او تقرير او ... 3- نقرأ قيمة المتغير من اي مكان كذلك سواء فورم او تقرير او ... وانتهي الأمر

السلام عليكم معلومات قيمة عن استعلام التوحيد ، تستحق موضوعا مستقلا .. بارك الله فيك استاذنا وبارك في جهودك انا اعتقد ان السائل يمكنه اظهار الغياب والاضافي ابتداءً في استعلام واحد

وعليكم السلام ورحمة الله لتقسيم الكود يتم استخدام مسافة (فراغ) ثم هذه العلامة ( _ ) بعد الفراغ كالمثال CurrentDb.Execute "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement,designation,marque, _ reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3,prixRETENU,devise2,TotalEUR, _ fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS,PRODUCTIVITE,devise3,ProdEnEUR) " _ & "VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" & Me.NumBesoin & "','" & Me.Demandeur & "','" & _ Me.Commande & "','" & Me.imputation & "','" & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & _ "','" & Me!T_REFRENCE.Form.marque & "','" & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & _ "','" & Me!T_REFRENCE.Form.FRS1 & "','" & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & _ Me!T_REFRENCE.Form.FRS2 & "','" & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & _ Me!T_REFRENCE.Form.FRS3 & "','" & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & _ Me!T_REFRENCE.PRIXretenu & "','" & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & _ Me!T_REFRENCE.fournisseur & "','" & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & _ Me!T_REFRENCE.NonMisEnCON & "','" & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & _ Me!T_REFRENCE.productivite & "','" & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" أو يمكنك تقطيع الكود علي عدة اسطر في متغير نصي وتمرير قيمته الي دالة تنفيذ الاستعلام مثل: Dim SQLStr as String SQLStr = "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement," SQLStr = SQLStr & "designation,marque,reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3," SQLStr = SQLStr & "prixRETENU,devise2,TotalEUR,fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS," SQLStr = SQLStr & "PRODUCTIVITE,devise3,ProdEnEUR) VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" SQLStr = SQLStr & Me.NumBesoin & "','" & Me.Demandeur & "','" & Me.Commande & "','" & Me.imputation & "','" SQLStr = SQLStr & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & "','" & Me!T_REFRENCE.Form.marque & "','" SQLStr = SQLStr & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & "','" & Me!T_REFRENCE.Form.FRS1 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & Me!T_REFRENCE.Form.FRS2 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & Me!T_REFRENCE.Form.FRS3 & "','" SQLStr = SQLStr & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & Me!T_REFRENCE.PRIXretenu & "','" SQLStr = SQLStr & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & Me!T_REFRENCE.fournisseur & "','" SQLStr = SQLStr & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & Me!T_REFRENCE.NonMisEnCON & "','" SQLStr = SQLStr & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & Me!T_REFRENCE.productivite & "','" SQLStr = SQLStr & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" CurrentDb.Execute SQLStr ارجو التجربة وموافاتي بالنتيجة

@ابو جودي الف مليون مبروك تستحق هذا ووفقك الله دائما وجعلك فى العون

عندك طريقتين لإضافة اي حقول/فرو/تصفية ، يا في اول استعلام توحيد (طبعا في احد او جميع الاستعلامات اللي فيه ، والافضل تجهز الاستعلامات وتجهز كل واحد منها بالنتائج الصحيحة ، ثم تضيفها في استعلام التوحيد) ، او في آخر استعلام. قد يكون الاسهل لك ان تضيف معيار التاريخ في الاستعلام الاول : 1. كمعيار (سواء لإستعلام واحد او عدة استعلامات) دون إظهاره في السجلات (إزالة علامة الصح تحت الحقل ، او استخدام Where في الاستعلام التجميعي) ، وعادة المعيار يشير الى حقل التاريخ في النموذج مثل Forms!frm_Main!Date_From ، 2. او اذا ما عمل لك مشكلة ، فيمكن اظهاره في السجلات. اذا استعملته كمعيار فقط ، ولكنك تريد اظهاره في الاستعلام الاخير ، فيمكنك عمل حقل جديد في الاستعلام الاخير للتاريخ ، هكذا: myDate: Forms!frm_Main!Date_From جعفر

وعليكم السلام 🙂 جوابي فقط على الجزئية: جربي هذا: Dim StrFlter as String StrFlter = "DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement,designation,marque,reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3,prixRETENU,devise2,TotalEUR,fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS,PRODUCTIVITE,devise3,ProdEnEUR" CurrentDb.Execute "INSERT INTO TEAM(" & StrFlter & ")VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" & Me.NumBesoin & "','" & Me.Demandeur & "','" & Me.Commande & "','" & Me.imputation & "','" & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & "','" & Me!T_REFRENCE.Form.marque & "','" & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & "','" & Me!T_REFRENCE.Form.FRS1 & "','" & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & Me!T_REFRENCE.Form.FRS2 & "','" & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & Me!T_REFRENCE.Form.FRS3 & "','" & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & Me!T_REFRENCE.PRIXretenu & "','" & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & Me!T_REFRENCE.fournisseur & "','" & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & Me!T_REFRENCE.NonMisEnCON & "','" & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & Me!T_REFRENCE.productivite & "','" & Me!T_REFRENCE.devis . جعفر

وعليكم السلام 🙂 الطريقة هي عمل استعلام توحيد ، بهذه الطريقة : Select ID, Full_Name, Income, Position From tbl_Directors union all Select ID, Full_Name, Income , P:"" From tbl_Players union Select I:0, Full_Name, Income:"" , Pos:"Not applicable" From tbl_Others union SELECT "", tblSection.sname, Sum(tblSection.Allowances) AS SumOfshead, "مدراء" As P FROM tblSection WHERE (((tblSection.snumber1)<>123)) GROUP BY tblSection.sname ORDER BY tblSection.sname; . هنا جمعت 4 استعلامات (نسميها استعلامات اولية) (اعمل كل استعلام بالطريقة العادية ، وبعد التأكد انه يعمل بطريقة صحيحة ، وان حقول الاستعلام في نفس ترتيب حقول بقية الاستعلامات (كذلك يمكنك اضافة هذه الحقول في استعلام التوحيد مباشرة) ، ضع الاستعلام في وضع SQL ، ثم انسخ الجملة كاملة وضعها في استعلام التوحيد ، هذا اللي عملته في الاستعلام الرابع اعلاه) ، الشرط الوحيد في استعلام التوحيد هو ، ان يكون عدد الحقول نفسها لجميع الاستعلامات ، فإذا احد الاستعلامات ما فيه هذه الحقل ، يجب ان تضع قيمة معينة له ، سواء صفر او "" (فراغ) او "المدراء" ، وطبعا الحقول التي تريدها لنفس العمود يجب ان تكون بنفس ترتيبها في الاستعلام (انا تركت مسافات بين الحقول في المثال اعلاه فقط لتوضيح هذه النقطة) ، يجب الانتباه في الحقول الاضافية ، فإذا اردت ان تجمع هذا الحقل لاحقا ، فاعطيه القيمة 0 ، اسم الحقل يُؤخذ من اول استعلام (بغض النظر عن تغيّر اسماء الحقول في الاستعلامات لنفس العمود) ، والفرز يُؤخذ من آخر استعلام ، union all معناها ، اضف جميع السجلات ، مع المتكررات بين الاستعلامات ، union معناها ، اضف جميع السجلات ، بدون المتكررات بين الاستعلامات. وهناك اوقات اخرى ، حيث الاستعلامات الاولية لإستعلام التوحيد ، فيها نفس عدد الحقول وبنفس الترتيب ، فيمكن تسهيل استعلام التوحيد الى: Select * From qry_1 union Select * From qry_2 union all Select * From qry_3 union Select * From qry_4 . او الخلط بين الطريقتين: Select * From qry_1 union Select * From qry_2 union all Select * From qry_3 union Select * From qry_4 union SELECT "", tblSection.sname, Sum(tblSection.Allowances) AS SumOfshead, "مدراء" As P FROM tblSection WHERE (((tblSection.snumber1)<>123)) GROUP BY tblSection.sname ORDER BY tblSection.sname; بعض الاوقات هذه الاستعلام سيعطيك البيانات المطلوبة ، ولكن قد تحتاج الى فرز او تصفية اضافية ، او تجميع سجلات في سجل واحد ، فما عليك إلا ان تعمل استعلام آخر ، ثم تستعمل استعلام التوحيد كمصدر بيانات هذا الاستعلام الجديد ، ثم تعمل فيه المطلوب 🙂 جعفر

ولو محتاج يحفظ الشيت كملف نصي عدل ActiveWorkbook.SaveCopyAs MyPathDirectory & MyNime الى ActiveWorkbook.SaveAs MyPathDirectory & MyNime, xlTextWindows

استخدم DMax DMax ( expression, domain, [criteria] ) ففي حالة انك تريد استكمال لسلسلة الأرقام لديك في الجدول استخدم التالي expression >>>> المعيار او اسم حقل الترقيم domain >>>> اسم الجدول Nz(DMax ( expression, domain),0)+1

جرب هذا الملف متعقب حضور الموظفين.xlsm