ابو جودي

ارفق الفاعدة

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

جرب الكود 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

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

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

فضلا وكرما اختيار عنوان للموضوع يناسب السؤال اتفضل Database4 -2.accdb

تم عمل استعلام اضافة باسم qryAppendData وفى الحدث عند اغلاق نموذج اضافة الاصناف نضع الكود الاتى DoCmd.SetWarnings False DoCmd.OpenQuery "qryAppendData" DoCmd.SetWarnings True

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

اهلا اهلا اهلا استاذى الجليل و اخى الحبيب جزاكم الله خيرا المنتدى منور بأهله الكرام وبحضراتكم جميعا

اهلا اهلا اهلا استاذى الجليل و اخى الحبيب جزاكم الله خيرا اعتذر لانقطاعي

نموذج منبثق - Pop-up Popup.mdb

وهذا بدون تدخل من المستخدم المحل نسخة تجريبية-2.accdb

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

اتفضل اولا جرب من خلال زر الامر اضافة لجدول جرد الفواتير وبعد كده نشوف موضوع المحل نسخة تجريبية.accdb

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

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