ابو جودي

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

فكرة بسرعة New.accdb

ممكن تنتظر اجرب شئ ان شاء الله موعدنا بعد صلاة العشاء ان كان فى العمر بقية

طيب اجعل معيار المدينة فى الاستعلام كالاتى IIf([TempVars]![x] Is Not Null;[TempVars]![x];[Customers].[city])

اعتذر نسبت التطرق الى هذه الجزئية لو القيمة خالية يفتح الاستعلام بكامل البيانات بدون فرز وتصفية نستخدم الكود الاتي فى معيار الاستعلام بدلا من المعيار السابق فى اقرب وقت ارفع القاعدة ان شاء الله اواجه مشكلة لا استطيع ارفاق اى ملفات الان ... ارجو المعذرة Like "*" & [TempVars]![x] & "*"

بالرغم من قدم تاريخ الموضوع وكان من الاولى فتح موضوع جديد ولكن ان شاء الله ابشر بالخير قم بانشاء موديول جديد وضع به هذه الاكواد Public Function OpenQry(QryNm As String, MyValue As Variant) TempVars.Add "x", MyValue.Value DoCmd.SetWarnings False DoCmd.OpenQuery (QryNm) DoCmd.SetWarnings True End Function على ان يتم استدعاءه من خلال السطر التالى من النموذج من خلال زر امر او من خلال اى حدث حسبما ترغب وتريد Call OpenQry("fi", Me!txtMyValue) ولابد من عمل مربع نص فى النموذج باسم txtMyValue وبهذه الطريقة سوف يتم فتح الاستعلام بتمرير القيمة المعلمة برمجيا اليه من خلال مربع النص وان كان هناك اكثر من استعلام يتم فقط تغير اسم الاستعلام بالسطر الاتى Call OpenQry("اسم الاستعلام", Me!اسم مربع النص فى النموذج والذى يحوى القيمة المعلمة) واخر خطوة وضع هذا السطر فى الاستعلام فى المعيار للحقل المطلوب تمرير القيمة المعلمة اليه [TempVars]![x]

مرفق النسخة الاجنبية اللى هو 123

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

يعنى ايه مجموعة حسب النوع ؟ وهل يفرق معاك المسار اصلا لان انا ما بحب احمل على قاعدة البيانات بكتابة المسار اصلا ؟ ممكن تفهمنى انت عاوز ايه اصلا ..

طيب انا اسف تقريبا انا ما قدرت افهم الموضوع جرب المرفق الاتى ان شاء الله يكون تمام ImportExcel 3.zip

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

ارفق الفاعدة

وجزاكم ربى اعلى درجات الجنان انشاء الله وكل المسلمين تحت امرك يا جميل الحمد لله الذى تتم بنعمته الصالحات

جرب الكود Private Sub Form_Current() If NewRecord Then Call LastNum Else Exit Sub End If End Sub

لا كل مره بيتم حذف الجدول اولا DoCmd.DeleteObject acTable, strTable ثم الاستيراد من خلال الكود DoCmd.TransferText acImportDelim, , strTable, FSO.GetFileName(Me.txtFileName), True

هلا هلا هلا والله بأستاذي الكريم واخى الحبيب تشتاق إليكم الجنان ان شاء الله

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

اولا اانا مش متعصب ولا حاجة وما اقدرش اتعصب اصلا على اخوانى الكرام بس انا مش فاهم ارد على ايه على مشكلة ما اتحلت اصلا واللا على الاستعلام كنت محتاج افهم علشان اعرف ارد بخصوص الاستعلام بص يا سيدى اولا انا ضيفت خقل جديد فى جدول جرد الفواتير باسم idCategory نوعه رقم واضفت له مفتاح السب عدم تكرار السجلات --------------------- ثم انشأت استعلام الحاق وطبعا ما ينفعش يكون فاضى افتح الاستعلام اللى انا عملته لحضرتك فى وضع التصميم تلاقيه كالاتى التظليل فى الصورة اللى باللون الاخضر دى البيانات اللى احنا محتاجين ننسخها من جدول الاصناف التظليل فى الصورة اللى باللون الاحمر اسماء الحقول المقابلة لها والتى سيتم نسخ البيانات اليها فى جدول جرد الفواتير لاحظ بس ان حضرتك عندك حقل فى جدول جرد الفواتير مش موجود فى جدول الاصناف وهو الحالة وحضرتك تريد فيها قيمة ثابته وهى "متوفرة" حضرتك عملت الاستعلام فاضى بدون تحديد الحقول الاساسية المراد النسخ منها ومقابلها فى الجدول الاخر المراد النسخ اليها انظر الشرح كما بالصور التى ارسلتها اليك

انا مش قادر افهم منك حاجه انت كل شوية تكتب السطر ده معناه ايه ؟؟؟؟؟ فى الملف رقم 2 البرنامج بيضيف السجلات القديمة فقط لكن لو دخلت سجلات جديدة فى جدول الاصناف مش بتظهر فى جدول جرد الفواتير يا سيدى الاول فهمنى بإجابه صريحة مشكلتك اتحلت واللا لا ؟؟؟؟؟؟

هل تمت الاجابة على سؤالك على الوجه الذى تريده ؟!

غير كما تشاء الملف والكود ملك يمينك هل تمت الاجابة على سؤالك على الوجه الذى تريده ؟!

اتفضل المرفق وجرب الاكسل تبعى انا اسم الملف : Template2.csv ImportExcel 2.zip

للعلم فى مشكلة فى ملفات الاكسل تبعك استبدل الكود على زر الامر الخاص بالإستيرد بالكود الاتى On Error GoTo Err_MyProc Dim strTable As String Dim FSO As New FileSystemObject If Nz(Me.txtFileName, "") = "" Then MsgBox "Please select a file!" Exit Sub End If If FSO.FileExists(Nz(Me.txtFileName, "")) Then strTable = "tblJudy" 'Table Name DoCmd.DeleteObject acTable, strTable DoCmd.TransferText acImportDelim, , strTable, FSO.GetFileName(Me.txtFileName), True MsgBox "Transfer Complete!" Else MsgBox "File not found!" End If Err_MyProc: 'Error handler here. Resume Next

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

أحبك الذى أحببتني له