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

هل هذا المطلوب xy(3).accdb

اقرا هذ الموضوع وغيره من موضوعات

مواضيعك دائما تحفز على التفكير والبحث بين ثنايا العبارات مثلا في المرفق الاول لك وضعت حقلين كمبو بوكس وواحد ليست بوكس ووضع اخي واستاذي ابو خليل حل باستخدام اسماء الحقول ثم اشرتم الى ⬇️ هنا اقترحت فكرة الدوران على مربعات التحرير والسرد لاختصار الكود ودون الحاجة الى كتابة اسماء هذه الحقول وصححه اخي ابو خليل وفقا لفهمه الصحيح للمطلوب الان السؤال ماذا لو كان هناك كائنات اخرى مثل حقول نصية وخانات اختيار .... الخ ونرغب في اقفالها بحيث يبقى الاختيار فقط لليست بوكس كما اشرتم سنجد اننا نحتاج الى تغيير في الامر If ctl.ControlType = 111 Then الى If ctl.Tag = "*" Then اي اننا سنستخدم خاصية tag للكائنات المطلوب اقفالها ربما يقول قائل نستثني ليست بوكس ويكون الامر بالنفي If ctl.ControlType <> 110 Then هنا سوف نحصل على رسالة خطأ بسبب كون خاصية Locked لا يمكن تطبيقها على كل كائنات النموذج لذا ووفقا للمعطيات فأن استخدام التاج هو الاسلم في مثل هذه الحالة والله اعلم ربما هناك طرق وافكار افضل ولكن اتوقف هنا ولعل لنا مداخله في مواضيع قادمة تحياتي

الملف لمن يرغب معرفة الطريقة وان كان حل استاذنا ابو خليل باستخدام متغير عام اكثر احترافية تفعيل خانة اختيار.accdb

ههههههه قالت العرب : عش رجبا ترى عجبا

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

أستاذ حمدي .. غيرت لك كود الإرسال بشكل كاااااااااااامل 🙂 (الكود الآن يتجاهل المرفقات إن كان حقل المرفقات فارغا ) وهذه نتيجة الإرسال : ملاحظة مهمة جدا جدا جدا : قمت بتعديلات أخرى على الملف غير كود الإرسال ، يجب عليك تعديلها ونقلها كلها في برنامجك وليس كود الإرسال فقط وذلك لكي تعمل لديك بشكل طبيعي . ومن هذه التعديلات ما يلي : أكواد ال API في الموديول FileOpen : #If VBA7 Then Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (ofn As OPENFILENAME) As Boolean Public Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (ofn As OPENFILENAME) As Boolean #Else Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (ofn As OPENFILENAME) As Boolean Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (ofn As OPENFILENAME) As Boolean #End If #If VBA7 Then Public Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr #Else Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long #End If وفي الموديول 3 أيضا Module3 : #If VBA7 Then Private Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #Else Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #End If بالتوفيق 🙂 whatsapp-Moosak.rar

اذا كان فهمي صحيح وطالما عندك 10 مربعات سرد في النموذج استبدل كود استاذنا الغالي ابو خليل If x_change = 0 Then Me.Combo0.Enabled = False Me.Combo2.Enabled = False Else Me.Combo0.Enabled = True Me.Combo2.Enabled = True End If استبدلة بــ ⬇️ Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 111 Then If x_change = 0 Then ctl.Enabled = False ctl.Locked = True Else ctl.Enabled = True ctl.Locked = False End If End If Next ctl الملف مرفق كتبته بشكل سريع ولم اجربه تحياتي تفعيل خانة الاختيار2(1).accdb

نعم يمكن لو تفحصت خصائص الحقل لوجدت ما تبحث عنه فقط نستبدل Enabled بـــــ Locked ملحوظة : اجريت بعض التعديل على ترتيب الكود .. واضافة بسيطة عند فتح النموذج الأول من اجل زيادة الضبط فاعتمد هذا التعديل تفعيل خانة الاختيار3.accdb

• البحث عن كلمة أولها (ال) وآخرها (تنوين): <ال[! ]@[ًٌٍ]> • كلمة أولها (ال) وآخرها (ون) ليس بعدها (فتحة): ال[! ]@(ون)[!َ]> • البحث عن أي كلمة أو رمز، أو رقم: <[! ]*> • البحث عن أي كلمة، وهي تصلح في عمل الماكرو: <[أ-ىيئءؤءاإًٌٍَُِّْ]@> • أو: <[أ-يًٌٍَُِّْ]@> • البحث عن أي كلمة: <[أ-ي]@> • البحث عن أي كلمة: <[! ]@> يكتب قبلها كلمة عند البحث والاستبدال لأنها تبطئ الماكرو، وربما تهنج الورد. • البحث عن أي كلمتين: <[! ]@> <[! ]@> • البحث عن أي كلمتين الأولى تبدأ بهمزة، والثانية تنتهي بتاء مربوطة: <أ[! ]@> <[! ]@ة> • البحث عن أي كلمتين الأولى آخرها ألف، والثانية تنتهي بالألف: <[! ]@ا> <[! ]@ا> • البحث عن كلمتين متتاليتين مكررتين: (<* ){2} ، ويمكن البحث بـ{3، 4} أو <([أؤئإءيا-ى]@)> \1> • البحث عن كلمتين، أو عددين، أو جملتين متتاليتين مكررتين بينهما فاصلة: (<*>)، \1 • البحث عن جملتين متتاليتين مكررتين: (<*>) \1 • ولحذف الكلمة أو الجملة المكررة نضع في مربع الاستبدال: \1 • البحث عن حرفين أو رقمين متتاليين متطابقين: (?){2} • البحث عن أي كلمتين أو حرفين أو رقمين متتاليين متطابقين: (<*){2} • البحث عن آخر كلمة في الخلية (تنفع للشعر): <[أ-ىيئءؤءاإًٌٍَُِّْ]@>[! ء-ى] • البحث عن أي رقمين متتاليين بينهما فاصلة مثل 22، 22، ويمكن بـ{3، 4}: (<*){2}، (<*){2} • البحث عن أي رقمين متتاليين بينهما فاصلة، وليس قبلهما سلاش: [!\/]<[0-9]@>، <[0-9]@>[!\/] • البحث عن أي رقمين متتاليين بينهما فاصلة، الثاني ليس قبله سلاش: <[0-9]@>، <[0-9]@>[!\/] • البحث عن فقرة وتظليلها: (*^13) • البحث عن فقرتين متتاليتين متطابقتين: (*^13)\1 • البحث عن ثلاث فقرات متتالية متطابقة: (*^13)\1\1 • البحث عن فقرة قبلها فقرة فارغة وبعدها فقرة فارغة: ^13{2}([!^13]@^13)^13 • البحث عن فقرة قبلها فقرة فارغة: ^13{2}([!^13]@^13) • البحث عن فقرة قبلها أو بعدها فقرة فارغة: ^13{2}([!^13]@) • ولحذف هاتين الفقرتين الفارغتين ضع في خانة الاستبدال: ^p<H1>\1 • البحث عن الفقرات المكررة بشكل متتالي: (*^13)(\1)@ • البحث عن فقرة عن طريق حروف البدل: ^13 • البحث عن فقرة قبلها أي حرف عن طريق حروف البدل: >^13 ، وبعدم اعتبار المسافة آخر الفقرة: >^13* • البحث عن أي فقرة إلى كلمة (في) مثلا للتظليل: <[! ]*في> • البحث عن فقرة ليس في نهايتها (.) أو (:) أو (؟) أو (!): ([!^13.:\؟\!\-\!]^13) • تحديد ما بين الفاصلتين: ، <[! ]*>، • تحديد ما بين كلمتين مثل: عن <[! ]*> عن • البحث عن أي كلمة مكونة من حرفين: <[! ]@{2}> • البحث عن أي كلمة مكونة من حرفين آخرها تنوين: <[! ]@{2}[!ًٌٍ]> البحث عن كلمة خمس حروف ليس منها علامات الضبط: <[! ]@{5}[ًٌٍَُِّْ]> • للبحث عما بين قوسين هلاليين: (\(*)\) أو \(?@\) • للبحث عما بين معقوفين: \[?@\] • للبحث عن أي رقم دون الحروف: [0???-9] • للبحث عن أي رقم فردي أو زوجي أو أكثر: <[0-9]@> • لتظليل رقم بعده سلاش (شرطة مائلة/) حتى آخر الفقرة: <[0-9]@>/*^13 • للبحث عن رقم واحد: <[0-9]{1}> أو رقمين: <[0-9]{2}> وهكذا بزيادة رقم بين {} • للبحث عن أي كلمة دون الأرقام: <[أ-ى][! ]@> • للبحث عن أي رقمين بينهما فاصلة: [0???-9]، [0???-9] • للبحث عن الأرقام بين سلاشين شرطتين مائلتين //: /[!ء-ي]*/ • للبحث عن أي رقم حتى نهاية الفقرة: [0-9]*^13 • للبحث عن الحروف والأرقام دون المسافات وعلامات الترقيم: [أ-ي0-9] • لتحديد ما بين شرطتين مائلتين: / [???0-9]*/ • البحث عن الحاشية السفلية مع حروف البدل: ^2 • البحث عن قوس مربع [ ليس له قوس غلق ] : \[[!\]]@^13 • البحث عن قوس هلالي ( ليس له قوس غلق ) : \([!\)]@^13 • البحث عن قوس مدبب ( ليس له قوس غلق ) : \«[!\»]@^13 • البحث عن قوس مرعوش ( ليس له قوس غلق ) : \{[!\}]@^13 • لجعل علامة الحاشية بين قوسين: في مربع بحث اكتب الآتي ^f وفي مربع استبدال اكتب (^&) وهذا الكود يعني أن المكتوب في خانة البحث يساوي المكتوب في خانة الاستبدال، فيمكن استخدامه مع أي حرف وأي رقم، حيث الاستبدال لا ينفع مع أي حرف وأي رقم، لكن بإضافة هذا الكود يصبح الاستبدال متاحا. • للبحث عن أي رقم بعده صفر (0) بعده سلاش (/) على صورة (08/): 0^#/ الوظيفة مثال يبحث عن ؟ أي حرف فردي ك؟ن "كان" و"كون" و"كمن". * أي سلسلة من الأحرف ك*ب "كتاب" و"كتيب". [ ] أحد الأحرف المحددة د[ي و]ن "دين" و"دون". [-] أي حرف فردي في هذا النطاق "[بس]عد "بعد" و"سعد". وليس و"رعد" يجب أن تكون النطاقات ضمن ترتيب تصاعدي [!] أي حرف فردي باستثناء الحرف داخل الأقواس ح[!م]ل "حقل" و"حفل" وليس "حمل". [!د-ك] أي حرف فردي باستثناء الأحرف .. ت[!دك]وين "تموين" و"تلوين" وليس عن "تدوين"، أو "تكوين". {2} الكلمات التي يتكرر فيها الحرف أو التعبير السابق للأقواس تماما معل{2}ة عن "معللة" وليس "معلة". الكلمات التي يتكرر فيها الحرف أو التعبير السابق للأقواس مرة على الأقل معل{1;}ة "معلة" و"معللة". الكلمات التي يتكرر فيها الحرف أو التعبير السابق للأقواس من " كذا " إلى " كذا " عدد من المرات 10{1;3} "10" و"100" و"1000". @ تكرار واحد أو أكثر للحرف أو التعبير السابق معل@ة "معللة". <(حرف أو أكثر) بداية الكلمة "<(قا)*" "قائل" و"قاتل" وليس عن "مقاتل". (حرف أو أكثر)> نهاية الكلمة "*(صل)>" "فاصل" و"واصل" وليس عن "واصلة". استخدم الأقواس لتجميع أحرف البدل والنص في تعبير واحد <(اخ)*(ار)> "اختصار" و"اختبار". وليس احتضار للبحث عن أحرف البدل كما لو أنها أحرُف، اكتب الخط المائل العكسي (\) \؟ ؟

يحتاج الباحث كثيرا إلى ترقيم ملف بالكامل، كترقيم الكتب والأبواب والأحاديث، ويحتاج إلى عمل مسلسل لكل جزئية، لذا يجب أن يضع رمزًا للكتب، وآخر للأبواب، وآخر للحديث، ثم يختار الرمز الذي يرقم عليه، ليكون للكتب ترقيم مسلسل، وللأبواب والأحاديث كذلك، وهذا هو الماكرو: On Error GoTo 5 ss = InputBox("اكتب الرمز المطلوب الترقيم بدلالته، مثل: = أو * أو # أو @") For i = 1 To 100000 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ss .Replacement.Text = " :" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Copy Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=i Selection.MoveRight Unit:=wdCharacter, Count:=1 Next i 5: End Beep End Sub

حياك الله اخي الحبيب @ابوبسمله جزاك الله خيرا

السلام عليكم ورحمه الله مشاركه مع اخى واستاذى @kanory اطلع ع الرابط التالى ايضا

السلام عليكم معذرة على هذا الخطأ وقد تم التعديل في الملف المرفق... aa2.rar

لم أنتبه أن المنادة مطلوبة من الرئيسي 🙂

السلام عليكم تم إضافة نطاقين آخرين بالتسمية Fail و Note_F وعمود مساعد في شيت A بمعادلات لحساب عدد مواد الرسوب في الصف المختار في شيت C... ثم إضافة المعادلات الخاصة بتحديد ما تريده في شيت C مع التعديل في الجدول (تمديده لتسع مواد)... أرجو أن يفي الغرض المطلوب. ملاحظة: من المفروض أن تفتح موضوعا جديدا للطلب الجديد أو كان بالأحرى وضع كل الطلبات دفعة واحدة في الموضوع الأصلي... aa2.rar

تفضل اخي السن.xlsx

شوف يا ابو احمد ، علشان ما اضيع بين النموذج الفرعي والرئيسي ، ومكان الحقل ، ريحت عمري بالمسار الكامل 🙂 واعتقد بأنك وقعت في الفخ ، وقلبت المسار 😁 كنت اقدر اختصرها بالتالي : rs.FindFirst "[bookname] = '" & me.fbooksub!stry & "'" جعفر

وعليكم السلام ورحمة الله تعالى وبركاته. تفضل اخي سعد يكفي وضع الملف في نفس مسار الملفات المطلوب دمجها وتحديد اسم الملف الهدف داخل الكود Sub Importer_Sheets() Dim chemin$, dossier, fichier, MH As Worksheet, lig&, i%, h& chemin = ThisWorkbook.Path & "\" dossier = Array("test-01", "test-02", "test-03", "test-04", "test-05", "test-06", "test-07") 'تحديد اسماء الفولدرات fichier = "Test.xls" 'اسم الملف الهدف Set MH = ActiveSheet lig = 4 ' تحديد اول صف يتم وضع عليه البيانات Application.ScreenUpdating = False MH.Rows(lig & ":" & MH.Rows.Count).Delete For i = 0 To UBound(dossier) With Workbooks.Open(chemin & dossier(i) & "\" & fichier).Sheets(1) 'فتح الملف If .FilterMode Then .ShowAllData 'إذا تم تصفية الورقة h = .Range("B" & .Rows.Count).End(xlUp).Row ' الى غاية الصف الأخير في العمود B .Rows("1:" & h).Copy MH.Cells(lig, 1) 'نسخ ولصق lig = lig + h + 3 '3 عدد الصفوف بين كل ورقة عمل .Parent.Close False 'اغلاق الملف End With Next End Sub بالتوفيق Test_دمج.zip

تفضل اخي لاكن حاول دائما التحقق من تطابق تنسيق عمود التاريخ في شيت البصمة وشيت Input =SIERREUR(INDEX('مواعيد البصمه'!$F$3:F200;EQUIV(1;INDEX((C6='مواعيد البصمه'!$D$3:D200)*($A$6='مواعيد البصمه'!$A$3:A200);0;1);0)); "") Payroll123-3-2020 - Copy.xlsm

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

وعليكم السلام 🙂 الاسهل استخدام المسار الكامل : rs.FindFirst "[bookname] = '" & Forms!fbookmain!fbooksub!stry & "'" جعفر

الف شكر استاذي

هل هذا المطلوب Data_Base.mdb

مبرمج متقاعد هههههههه طريقة غريبة جزيل الشكر

@jjafferr حبيبنا واخونا الغالي جعفر ،، شكرا لك على المداخله وعلى الشرح المميز ،، وعلى الرابط المرفق ،، انا من فترة تعبت في هذه دالة nz عند دمجها مع الدوال الاخرى ،، الى حين مساعدتكم ،،اشكركم كل الشكر انتم الخبراء ونحن التلامذه منكم نتعلم ،،ربنا يزيدك علم ورزق ويبارك فيك اخي جعفر.

استاذنا الغالى قوى / الاستاذ خالد الله يفتح عليك ويبارك فى علمك ـ ولا يحرمنى من مساعدتك لى ـ ويحفظك ويبارك فى عمرك وصحتك ويرحم والديك هذا هو المطلوب وكافى جدا نعم معلمى الجليل ومساندى العزيز ـ هو المطلوب جزاكم الله كل خير

شكرا استاذنا على التعقيب وبهذا يصبح الكود حسب ما هو مطلوب : Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 111 Then If x_change = 0 Then ctl.Locked = True Else ctl.Locked = False End If End If Next ctl

عليكم السلام ورحمة الله وبركاته بما ان التعامل سوف يكون بين كائنين منفصلين ، لذا يلزم ان نوجد بينهما رابط يعرفه كل منهما وهو تعريف متغير عام يتم تحديد قيمته عند تحديث خانة الاختيار انظر للفكرة في مثالك المعدل تفعيل خانة الاختيار2.accdb

شكرا جزيلا جزاك الله كل خير

وعليكم السلام ورحمة الله وبركاته تم عمل المطلوب بثلاثة نطاقات بالتسمية ومعادلات صفيف... تجد ذلك في الملف المرفق... aa.rar

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي سيتم اضافة المعادلات للصف تلقائيا عند الكتابة في عمود المسلسل مع افراغها تلقائيا عند حدفه Sub Fill_the_first_cell() Dim lr As Long Dim rng As Range Set WS = Sheet2 Dim y As Integer Application.ScreenUpdating = False MH = WS.Range("A" & Rows.Count).End(xlUp).Row With Sheet2 For y = 8 To MH Cells(y, "C").Formula = "=IFERROR(VLOOKUP(B8,data!F:G,2,0),"""")" Cells(y, "F").Formula = "=IF(RC[-1]="""","""",RC[-1]*data!R3C[-4])" Cells(y, "H").Formula = "=IF(F8="""","""",G8-F8)" Cells(y, "K").Formula = "=IFERROR(IF(RC[-1]="""","""",RC[-3]/(7850*RC[-2]*RC[-1])),"""")" Cells(y, "N").Formula = "=IFERROR(IF(RC[-2]="""","""",ROUNDDOWN((RC[-3]/RC[-2])*1000,0)),"""")" Next y End With End Sub وهدا في حدث شيت (in) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 8 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then If Cells(Target.Row, "A").Value = "" Then Cells(Target.Row, "B").Resize(, 13).ClearContents Else Call Fill_the_first_cell End If End If End Sub تشغيل الصاج-1.xlsm

اعتقد ولا أجزم بأن هذه الجزئية تمت اضافتها من قبل موقع الاستضافة مؤخراً لتخفيف الضغط على السيرفر تخيل ان كل شخص يفتح الاتصال مع قاعدة البيانات ويترك الاتصال مفتوح بدون العمل كم مقدار الضغط الذي سيتعرض له السيرفر لذلك وضعوا هذه البرمجية لفصل الاتصال أعيد وأكرر لا أجزم بهذا الكلام بعد مشاهدة رابط الموضوع اللي وضعه استاذنا ابو خليل صار عندي تصور عن المطلوب سؤالك هذا غير مجرى الموضوع 180 درجة سأعطيك رايي كمستخدم لمواقع الاستضافة لقواعد بيانات SQl Server لمدة 6 اشهر 1 - طريقة ربط الاكسس مع جداول قواعد بيانات Sql server عن طريق ODBC أو ما يعرف بالاتصال المتصل بحيث يتم انزال نسخه مرتبطه من الجداول في قاعدة بيانات الاكسس وعند فتح الجدول يبقى الاتصال مفتوح دون انقطاع هذه الطريقة غير مجديه فعند وصولك لعدد 500 سجل ومحاولة عمل استعلام فرز وعمليات حسابية او جلب بيانات مرتبطه ستكون هذه المعالجة للبيانات بطيئة جدا جدا اضف الى ذلك عند فتح الاستعلام من خلال نموذج وعمل بعض الاوامر البرمجية ستصاب بالملل لأن جلب البيانات للنموذج في حالة كان لديك عدد السجلات المذكورة سيأخذ منك وقت لايقل عن 3 دقائق كحد أدنى ربما يخطر لك سؤال هنا وتقول ان هذا بسبب موقع الاستضافة بناء على المساحة التي قمت بشرائها والسرعه ...... ألخ سأجيب واقول لك جربت اكثر من موقع ومن ضمنها مساحه على Azure وهذا من أفضل المواقع للاستضافة إن لم يكن أقواها على الاطلاق بناءً على نوع الاشتراك عند تجربته تحسن الاتصال نوعا ما وكان الأمر شبه مقبول ولكن قيمة الاشتراك في هذه السيرفرات مكلف جدا طبعا الأمر يختلف تماما عند عمل سيرفر على جهازك او من خلال شبكه داخلية ستجد الأوامر سريعه جدا بناء على مواصفات الجهاز نأتي للأمر الأخر 2- الاتصال بقواعد بيانات Sql Server في مواقع الاستضافة بتقنية Dbset أو ما يعرف بالاتصال المنفصل ان شاء الله يكون المصطلح صحيح بحيث تقوم بتعريف الاتصال والمتغيرات وتكتب جمل الاتصال بالجدول او stored procedure أو الاستعلام تفتح الاتصال وتجلب او ترسل البيانات ثم تقوم بإغلاق الاتصال بدون أن يكون عندك جداول حيث يتم تخزين البيانات في الذاكرة وتقوم باستعراضها عن طريق النموذج او تقوم بالاضافة او التعديل والحذف ثم تعيد ارسالها الى قاعدة البيانات مباشرة للجدول او عن طريق stored procedure هذه الطريقة مشابه بحد كبير الى طريقة برامج visual basic هذه الطريقة جدا ممتازة وسريعه جدا إذا كان بناء البرنامج صحيح وكل شي تمام ولكن تحتاج جهد وعمل كبير وكثير يعاب على هذه الطريقة عدم استطاعتك بناء بعض التقارير عن طريقها حيث ستحتاج الى تصميم جداول مؤقته ثم تجلب البيانات وتخزنها بالجدول وبعد ذلك تستطيع بناء التقرير وهذا هو موضوع كود الاتصال الذي وضعته لك أتمنى أكون قدرت افيدك بشي عن الموضوع

مشاركة مع استاذنا @jjafferr لاسباب متعددة منها لا يمكن أن تتضمن العملية الحسابية حقولا من جداول أو استعلامات أخرى نتائج العملية الحسابية للقراءة فقط، ولكنها قابلة للاستخدام كقيم في حقول محسوبة أخرى يتم إجراء العملية الحسابية في كل مرة تقوم فيها بإضافة بيانات أو تغييرها هذا النوع من الحقول تم اضافته من اصدار 2007 ولا اعلم عن توافقه مع اصدارات اقدم هنا نقاش سابق مع الاستاذ @Moosak تحياتي

وعليكم السلام 🙂 خليني أسأل سؤال كلنا متفقين عليه: ما فائدة وجود حقل المرفقات في الجدول ، ما دام استخدامه وادخال الصور فيه يجعل حجم البرنامج يكبر كثيرا وقد يصل الى حجمه النهائي 2 جيجا ويتوقف البرنامج عن العمل!! والجواب: الاكسس يستعمله الهاوي والمحترف ، وكلٌ له طريقة في استعماله ، وميزة الاكسس انه بإمكانك عمل اي شيء تريد بعدة طرق ، فكما ان المحترف لا يستخدم حقل المرفقات 99% من الوقت ، ولكن قد يستعمله لإرفاق بعض الصور الصغيرة مثل شعار المؤسسة او إحمل برامجك داخل قاعدة بياناتك فمو واجب استعمال جميع الميزات اللي يعطينا البرنامج ، ولكن نستخدم اللي يناسبنا كهاوين او مبتدئين 🙂 جعفر

تفضل اخي جرب ضع هده المعادلة لجلب القيم من عمود التاريخ =SIERREUR(SI(حسابات_الافراد!B7<>"";INDEX(حسابات_الافراد!$B$7:$B$205;EQUIV(0;NB.SI($B$6:B6;حسابات_الافراد!$B$7:$B$205);0));"");"") وهده لجلب بيانات الجدول بشرط العمود الاول مع مراعات استبدال ارقام الاعمدة داخل المعادلة =SIERREUR(RECHERCHEV($B7;INDIRECT($A$1&"!$B$7:$f$100");2;0);"") نموذج عن رحلة.xlsx

اجعل هوامش الصفحة من الجهات الاربع 0,1 او 0 سم والسلام عليكم

أخى الفاضل / عباس السماوى بعد التحية أرجو تجربة الخطوات الأتية وأعلمنى بالنتيجة فقد جربتها عندى ونفعت 1- إعداد الطابعة من نوع PDF كطابعة افتراضية 2- انتقل إلى ابدأ start إعدادات settings الطابعات والفاكسات printer and faxes 3-انقر بالزر الايمن على اسم الطابعة التى تحتوى على pdf printer ، ومن ثم اختر "تعيين كافتراضي " set as default printer ثم نفذ الخطوات الأتية : • فتح ملف الاكسل • اضغط على القائمة ملف file ثم طباعة print • تعيين اسم المجلد والملف