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

السلام عليكم ورحمة الله وبركاته التطبيق اهداء الى منتدانا الحبيب ورواد المنتدى العمل حتى يخرج بهذه الصورة يعلم الله وحده الجهد المبذول به اسال الله تعالى ان يتقبل هذا العمل صدقة جارية الى ما شاء الله تعالى ms access becomes an authorized e-invoicing solution provider in Saudi Arabia by www.officena.net Start your e-invoicing journey حسب متطلبات هيئة الزكاة والضريبة والجمارك السعودية يتم قراءة الرمز الناتج ان شاء الله عبر القارىء الرسمي الخاص بالهيئة ( تطبيق جوال ) حمل من هنا : التطبيق الرسمي لهيئة الزكاة والضريبة والجمارك يتم قراءة الرمز الناتج ان شاء الله عبر قارىء خاص ( تطبيق جوال ) حمل من هنا : تطبيق قرائة رمز الاستجابة طبقات لمتطلبات هيئة الزكاة والضريبة والجمارك التطبيق المقدم لكم تمت تجربته وهو متوافق مع النواتين 32 , 64 تم تصميم الاكواد داخل روتين عام ليسهل التعامل معها بكل سهولة ممكنة حاولت جاهدا جمع الاكواد المستخدمة فى موديول ليسهل نقله يتم التعامل مع الروتين باسناد فقط اسماء الحقول من النموذج المستخدم والتى يمكن تغير اسمائها تبعا لتصميمك كالاتى Call CreateInvoice(ID, SellerName, VatNo, TimeStamp, InvoiceWithVat, VatTotal) ID >>-----> اسم الحقل الدال على رقم الفاتورة وهذا ليتم تسمية ملف رمز الاستجابة الناتج بناء عليه SellerName >>-----> اسم الحقل الدال على اسم البائع VatNo >>-----> اسم الحقل الدال على الرقم الضريبي TimeStamp >>-----> اسم الحقل الدال على الوقت وتاريخ انشاء الفاتورة InvoiceWithVat >>-----> اسم الحقل الدال على القيمة الاجمالية للفاتورة VatTotal >>-----> اسم الحقل الدال على القيمة الاجمالية لمبلغ الضريبة فقط بعد تشفير البيانات يتم اسناد الشفرة الى متغير عام باسمstrHashCode والذى من خلاله يت حفظ البيانات المشفرة داخل الجدول تبعا لكل سجل ---------------------------------------------- الية العمل بعد اسناد اسماء الحقول الى الروتين يتم تمرير البيانات من تلك الحقول الى الملف التنفيذى الملحق مع القاعدة والذى بدورة يقوم بانشاء كل من 1- رمز الاستجابة السريع بعد تشفير البيانات طبقا للمطلبات from string to hex to base64 2- انشاء ملف نص به تشفير البيانات بعد ذلك تقوم باقى الاكواد بجلب البيانات المشفرة من ملف النص واسنادها الى المتغير الذى تم تخصيصه لذلك --------------------------------------------- تفاصيل الاكواد داخل الموديول كالتالى الروتين MkDir لعمل المجلدات عند الحاجة دوال الـ API الخاصة بـ ShellWait والمتوافقة مع كلتا النواتان 32 , 64 وتمت التجربة بنجاح على اوفيس 32 تارة واوفيس 64 تارة اخرى بفضل الله بنجاح حيث يتم ارسال البيانات من الحقول الى الملف التنفيذى الملحق من خلال الروتين Shell_n_Wait ليتم انشاء رمز الاستجابة السريع من خلال الروتين الخاص به وهو CreateInvoice وانشاء الملف النصى بجوار الملف التنفيذى فى نفس المسار لالحاق البيانات المشفرة طبقا للمطلبات from string to hex to base64 وبعد ذلك يتم جلب البيانات المشفرة من خلال الروتين ReadFileToText ولابد من استخلاص التشفير من خلال الروتين StripSpChars للاحتفاظ بالنص دون اى زيادات وبعد ذلك يتم الحاق البيانات المشفرة الى المتغير الذى قمت بتخصيصه لذلك وهو يحمل الاسم strHashCode والذى يتم الحاق البيانات من خلاله لكل سجل الى الحقل المخصص به للاحتفاظ بتلك الشفرة حسب طلبات السادة رواد المنتدى الكرام الملف التنفيذى تم عمله من خلال الفيجوال دوت نت ليقوم بتحويل النص طبقا للمطلبات from string to hex to base64 وتم دمج ملفات الـ Dll الخاصة بانشاء رمز الاستجابة بداخل الملف التنفيذى لسهولة التعامل معه من خلال الاكسس ليكون ملف تنفيذى واحد فقط يتم التعامل معه من خلال الـ Command Line دون الحاجة لتثبيت او تسجيل او الاستعانة بأى مكتبات خارجية او حتى ملحقة بالاكسس وذلك لسهولة نقل الموديول الى اى قاعدة دون التقيد باى مكتبات --------------------------------------------- تنبيه هام جدا جدا جدا بجوار قاعدة البيانات فى نفس مسارها مجلد باسم KSA-QR-Tool لايمكن تغيير اسم المجلد والا يحدث خلل وان استدعت الحاجة تغيير الاسم يجب ذلك داخل المدويول يتم كذلك انشاء ملف نصى اليا داخل المجلد KSA-QR-Tool لذلك يجب تحرى الحذر عند محاولة تغيير اسم المجلد داخل الموديول لذلك يرجى عدم محاولة تغير اسم المجلد كذلك داخل المجلد السابق ذكرة الملف التنفيذى KSAQR.exe لا تحاول تغيير اسم الملف لان الاكواد كذلك تتعامل مع هذا الملف من خلال اسمه كذلك لا يمكن نقل المجلد او الملف من مسار قاعدة البيانات الا بالتعديل على الاكواد وفى الختام فضلا وكرما وليس امرا الرجاء الاهتمام بالرد بما يفيد نتيجة تجربتكم الشخصية وتقييم تلك التجربة فلا تبخلوا علينا بذلك... لكم منا خالص الشكر واتمنى لكم تجربة ممتعة ومن يريد طريقتى والتى احبها وافضلها وتعلمتها من استاذى الجليل ومعلمى الجليل الاستاذ @jjafferr بتحميل الملف التنفيذى داخل القاعدة للتأكد دائما من عدم حذفه لا يتردد فى طلب ذلك فقط حاولت تقديم القاعدة بأبسط شكل حتى يقف كل من يريد استخدامها او نقلها الى تطبيقه الخاص على الاكواد المهمة فقط من خلال موديول واحد فقط تيسيرا وتسهيلا عليه وحتى تعم الفائدة هذه الاكواد المستخدمة فى الملف التنفيذى الذى تم انشاؤه من خلال الـ فيجوال دوت نت بناء على رغبة استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل لمن يريد التعلم من اكواد التشفير وبناء على طلب استاذى القدير @ابوآمنة Imports System.Drawing Imports System.IO Imports System.Text Imports QRCoder Module Module1 Sub Main() Try Dim sellerName As String = "" Dim vatNumber As String = "" Dim timeStamp As String = "" Dim invoiceTotal As String = "" Dim vatTotal As String = "" Dim imagePath As String = "" Dim filePath As String = "" If My.Application.CommandLineArgs.Count >= 6 Then sellerName = My.Application.CommandLineArgs(0) vatNumber = My.Application.CommandLineArgs(1) timeStamp = My.Application.CommandLineArgs(2) invoiceTotal = My.Application.CommandLineArgs(3) vatTotal = My.Application.CommandLineArgs(4) imagePath = My.Application.CommandLineArgs(5) filePath = My.Application.CommandLineArgs(6) Else Environment.Exit(0) End If If Not String.IsNullOrEmpty(filePath) Then File.WriteAllText(filePath, String.Join(" ", sellerName, vatNumber, timeStamp, invoiceTotal, vatTotal), Encoding.UTF8) End If End Dim tlvInvoice = CreateInvoice(sellerName, vatNumber, timeStamp, invoiceTotal, vatTotal) Dim qrGenerator As New QRCodeGenerator() Dim qrData As QRCodeData = qrGenerator.CreateQrCode(tlvInvoice, QRCodeGenerator.ECCLevel.Q) Dim qrCode As QRCode = New QRCode(qrData) Dim qrCodeImage As Bitmap = qrCode.GetGraphic(20) qrCodeImage.Save(imagePath) If Not String.IsNullOrEmpty(filePath) Then File.WriteAllText(filePath, tlvInvoice, Encoding.UTF8) End If Catch ex As Exception End Try End Sub Function CreateInvoice(sellerName As String, vatNumber As String, timeStamp As String, invoiceTotal As String, vatTotal As String) As String Dim invoiceHex As String = "" For i = 1 To 5 Dim txt As String = "" Select Case i Case 1 txt = sellerName Case 2 txt = vatNumber Case 3 txt = timeStamp Case 4 txt = invoiceTotal Case 5 txt = vatTotal End Select Dim hexTxt As String = StringToHex(txt) Dim hexLen As String = Hex(Encoding.UTF8.GetBytes(txt).Length) If hexLen.Length = 1 Then hexLen = "0" & hexLen End If invoiceHex = invoiceHex & "0" & i & hexLen & hexTxt Next Return HexToBase64(invoiceHex) End Function Function StringToHex(txt As String) As String Dim b As Byte() = Encoding.UTF8.GetBytes(txt) Return BitConverter.ToString(b).Replace("-", "") End Function Function HexToBase64(txt As String) As String Dim bytes = New Byte((txt.Length \ 2) - 1) {} For i = 0 To bytes.Length - 1 Dim mi = txt.Substring(i * 2, 2) bytes(i) = Convert.ToByte(mi, 16) Next i Return Convert.ToBase64String(bytes) End Function End Module E-Invoicing.zip Ksa Qr 32x 64x 2007 to 2021 _Last Version.zip

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

السلام عليكم 🙂 هذا الموضوع فيه الكثير من النصائح ، مع اخوي @kha9009lid : . الاستعلام هو العمود الفقري لقواعد البيانات 🙂 ولكل حالة وضعها ، فقد تحتاج الى مجموعة استعلامات لكي توصل لطلبك ، ولكن الاستعلام الفرعي يعمل عجائب وغرائب 🙂 . . هذا شيء طبيعي في كل شيء في حياتنا 🙂 البرنامج الذي ذكرته اعلاه ، وبعد خدمة 8 سنوات ، تم استبداله ببرنامج جديد من عائلة Net. ، وهو يفتقر الى احد ابسط الامور الموجودة في الاكسس ، بالنقر اليمين على الحقل يمكنك عمل فرز وتصفية بعدة طرق ، اعتمادا على نوع الحقل ، ويأتي هذا مجانا مع اكسس وبدون برمجة (وانا اتاسف لما اجد بعض المبرمجين يلغون هذه الخاصية من برامجهم) ، بينما في برامج Net. ، فأنت تتكلم عن برمجة خاصة لهذا العمل ، ولن يصل لمستوى الاكسس ، لأنهم لا يستطيعون عمله بالنقر على زر الفأرة اليمين ، وانما عن طريق حقول وازرار 🙂 اما جعل كائنات النموذج تتفاعل مع حجم النموذج او الشاشة resposive ، والذي يقوم به HTML ، فهذا ذو اهمية لبعض الناس (انا ما احتجت لها الى الآن) ، فالحمدلله ، الاكسس يمكنه استخدام HTML ، ولكن اذا عكسنا السؤال ، فهل برمجة HTML فيها قواعد بيانات !! في نهاية الامر الاكسس مجرد برنامج ، فيه ميزات وعيوب ، ويجب ان نقبل هذا 🙂 جعفر

وعليكم السلام 🙂 انا فصلت هذه المشاركة عن الموضوع الذي كان فيه ، حتى يتم النقاش هنا🙂 هذه النقاط جميعا تتمركز حول طريقة عمل البرنامج 🙂 برنامج عملته انا ، في الشبكة ، كان يعمل عليه 10-15 شخص وبكثافة ، بين ادخال بيانات الموظفين وبحث وارشفة ، اكثر من 1,613,000 سجل ، الكائنات: 31 جدول ، 200 استعلام ، 67 نموذج ، 29 تقرير ، اكثر من 4100 سطر كود ولا يشمل مكتبات الوندوز ، ويتحكم في حفظ وإظهار صور بحجم حوالي 3 تيرا بايت في حوالي 10 الاف مجلد ، ولم يكن فيه بطئ ولا تهنيج ولا يتطلب ضغط واصلاح 🙂 خذها قاعدة: النسخة الاولى من البرنامج لا تكون الافضل ، لذا يجب عمل النسخة التالية والتي ستكون افضل بكثير من النسخة الاولى 🙂 واحد اهم اسباب بطئ البرنامج ، هو عدم وجود فهرسة للحقول التي بها معايير 🙂 جعفر

كيف يمكن عرض الصور فى نموذج مستمر على شكل شبكى مع الاخذ فى الاعتبار عنصر تحكم الصور ( image ) unbound الصور لن نعتمد فيها على عدد محدد Picture type = linked not Picture type = Embedded يعنى ببساطة هكذا بصراحة الفكرة انا عملتها ولكن كان بها بعض التعقيد اريد ان ارى افكاركم الابداعية

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

بالفعل، لكن يمكن تطويع الhtml لخدمة الأكسس. انا لم اتكلم عن قوة الأكسس كـ برنامج خدمي وسهل وو.. تكلمت فقط عن امكانياته المحدودة في التصميم مقارنة بالبرامج الاخرى، ومثل ما تفضلت يبقى المصمم هو فارس الميدان في جعل الشكل جذاب ومرتب. وكـ مبادرة صغيرة مني في دعم موضوعك الرائع اقدم لكم واجهة بسيطة قمت بتصميمها في الاكسس واهم مايميزها responsive مع جميع الشاشات، اتمنى لكم الفائدة من هذه الواجهة وبنفس الوقت لا تتوقعو مني الكثير في تصميم الواجهات فأنا لا ازال في بداية الطريق اهلا عزيزي ابا جودي، لك وحشة ياغالي.. بالعكس انا لم اقل الاكسس عاجز وانما قلت ان الاكسس محدود اما عن الresponsive فأنا قمت بشرحها سابقا في هذا الموضوع، ربما طريقتك تختلف عن طريقتي لكن يبقى الجوهر واحد تحياتي لك ابا جودي menu.rar

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

الافضل ان ترى امثلة ، ولاحقا ضع سؤالك 🙂 : . . . . جعفر

وعليكم السلام 🙂 حسب علمي ، هناك 3 ساعات ممكن استعمالها: 1. ساعة الكمبيوتر ، 2. ساعة كمبيوتر آخر في الشبكة ، مثل ساعة السيرفر : . . 3. وساعة الانترنت ، واللي لازم تكون مرتبط بالانترنت علشان تحصل على الوقت : اخذ الجزء المطلوب من المرفق من هنا: جعفر

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

السلام عليكم ورحمة الله الحمد لله على تمام المطلوب

السلام عليكم ورحمة الله الكود الاتى يحسب الترتيب حتى العشرة الاوائل Sub AllRanks() Dim ws As Worksheet, j As Long Dim Arr As Variant, k As Double Dim LR As Long, i As Long Dim m As Integer, n As Integer, x As Integer Set ws = Sheets("مسودة الدرجات") LR = ws.Range("R" & Rows.Count).End(3).Row Dim TP() ReDim Arr(1 To LR, 1 To 1) j = 9 Do While j <= LR y = WorksheetFunction.CountIf(ws.Range(ws.Cells(9, "R"), ws.Cells(j, "R")), ws.Cells(j, "R")) If y = 1 Then i = i + 1 Arr(i, 1) = ws.Cells(j, "R") End If j = j + 1 Loop If i <= 10 Then x = WorksheetFunction.Large(Arr, i) End If ReDim TP(1 To i, 1 To 1) For r = 1 To i If Arr(r, 1) >= x Then p = p + 1 TP(p, 1) = Arr(r, 1) End If Next m = 9 Do While m <= LR For n = 1 To i k = WorksheetFunction.Large(TP, n) If ws.Cells(m, "R") = k Then yy = Choose(n, "الاول", "الثانى", "الثالث", "الرابع", "الخامس", _ "السادس", "السابع", "الثامن", "التاسع", "العاشر") If ws.Range("R" & m) <> Empty Then If WorksheetFunction.CountIf(ws.Range("R9:R" & m), ws.Range("R" & m)) > 1 Then yy = yy & " " & "مكرر" ws.Cells(m, "U") = yy Else yy = yy ws.Cells(m, "U") = yy End If End If End If Next m = m + 1 Loop End Sub

Dim qryd As QueryDef Dim strSQL As String strSQL = "SELECT TblItems.* FROM TblItems WHERE (((TblItems.Wh)=[forms]![stores]![store]))" Set qryd = CurrentDb.CreateQueryDef("qryTemp", strSQL) DoCmd.OpenQuery qryd.Name CurrentDb.QueryDefs.Delete qryd.Name test2.rar

وعليكم السلام 🙂 على زر تنفيذ الامر ، استعمل هذا الكود: docmd.setwarnings false docmd.openquery "اسم الاستعلام" docmd.setwarnings true جعفر

يا هلا الف ابو احمد لا شك الانقطاع عن اصحابك واحبابك جعلك تنسى اكسس وأهله كما ذكر ابو حسان استخدم تكبير النموذج في حدث الفتح DoCmd.Maximize وايضا في خصائص النموذج / تنسيق : اجعل السماح لعرض ورقة البيانات = نعم فقط ، اما السماح بعرض النموذج فاجعلها = لا نأتي لحدث الزر لفتح النموذج اعلاه ، يجب ان يكون هكذا : DoCmd.OpenForm "yourForm", acFormDS سيفتح نموذج ورقة البيانات بملء الشاشة ومع ذلك يمكنك سحبه والتحكم بحجمه ، والمثال خير شاهد Database2.rar

ممكن تعملها داخل نموذج فرعي في نموذج رئيسي ..... تفضل ..... اللجان والتصحيح7.4.accdb

استخدم هذا الكود فى التقرير اخى الكريم Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Call CenterReport(Me) End Sub

هذه امثله لأخوي @أبو إبراهيم الغامدي باستخدام HTML . ولكي تستفيد منه افضل ، يجب ان تدمجه مع . و . . واعتقد تقدر تستخدم Microsoft Forms 2.0 images ActiveX لعمل هذا ، ولكني لم استطع التوصل الى مثال!! جعفر

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

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

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

هل تعتقد يا دكتور حتى الان ان الاكسس عاجز عن تصميم النماذج التى تدعم الـ responsive ام غيرت رأيك الان بعد الاطلاع على المرفق الاتى ؟ فى انتظار رأيك يا دكتور responsive form ☺.mdb

شكرا جزيلا AhmedSaeed01

السلام عليكم ممكن =COUNTIF(B2:B21,"*")-COUNTIF(B2:B21,("سلطنة عُمان")) أو =COUNTIF(B2:B21,"<>سلطنة عُمان")

السلام عليكم ورحمة الله وبركاته.. الكثير يجهل امكانية الأكسس في جعل البرامج بشكل responsive أي انه: لو كانت لديك شاشة كبيرة سيتغير شكل برنامجك وتوزيع الأزرار والعناصر لتتناسب مع حجم الشاشة ولو كانت الشاشة صغيرة ايضا ستتغير اماكن العناصر لكي تتناسب مع طبيعة الشاشة وعدم فقدان أي عنصر او ضياعه عندك تغيير الشاشات. قبل البدء، سأقدم لكم مثال على ما اقصده: هذا اخر مشاريعي في الأكسس وهو يتغير تبعاً لأختلاف الشاشات. لنبدأ: سأقوم بوضع Button في منتصف الشاشة بحيث لا يتغير مكانه لو تغير حجم الشاشة ثم قم بعملية الأدراج من جميع الأماكن ( يسار, يمين, أعلى , أسفل ) بحيث يصبح كالأتي: ثم من الطرف اليمين، نختار الأرتساء الأفقي ( كلاهما ) وكذلك الحال بالنسبة لليسار كذلك الحال نطبق على الأعلى والأسفل لكن هذه المرة سوف نعدل الأرتساء العمودي وكذلك بالنسبة للأعلى جرب الآن وسوف ترى ان الـ Button سيبقى في الوسط مهما تغير حجم الشاشة لو وضعت شاشة كبيرة أو صغيرة سيظل بنفس مكانه في الوسط. أي سؤال أنا موجود، تحياتي لكم.

السلام عليكم اذا في مجال المساعدة في ماكرو يقوم بترحيل الاسماء الشرح في شيت data ملاحظة الترحيل يكون في شيت book , و للصفحات الزوجية شكرا لكم و جزاكم الله كل خير دفتر علامات 2022 تجربة.xls

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