صالح حمادي

السلام عليكم استخدم هذا الكود DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K164" DoCmd.RunSQL "delete from zaher Where isnull([رقم الصنف]) and isnull([اسم الصنف])"

العفو أخي كلنا نخطئ و نصيب

يبدو أنك لم تجرب المرفق أضغط على أي زر مقابل أي سجل بالزر الأيمن للفأرة سوف تظهر القائمة ليس لها مكان ثابت

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

أخي محمد أولا يوجد جدول في قاعدة بياناتك ناقص و هو المخصص لتخزين أسماء المكتبات و استخراج أسماء المكتبات عندما نريد تثبيتها لقد عدلت على المرفق تبعك بحيث لا نحتاج للجدول مباشرة يتفحص البرنامج المكتبات الموجود بالمجلد بجنب القاعدة و يقوم بإضافتها. جرب هذا المرفق و وافنا بالنتائج tsjeel2.rar

السلام عليكم جرب هذا التعديل tsjeel2.rar

شكرا

file.rar

السلام عليكم استعمل هذا الكود mdb_Path_Name = CurrentProject.Path & "\db.accdb" 'مسار القاعدة الثانية DoCmd.TransferDatabase acExport, "Microsoft Access", mdb_Path_Name, acReport, "report112", "تقرير شهري", False

العفو أخي وفقك الله إلى ما يحبه و يرضاه إن شاء الله

شكرا أخي ابا جودي نستطيع استعمال الكود بهذا الشكل من أجل ظهور جميع صيغ الصور في وقت واحد. .Filters.Add "IMAGE Files", "*.png, *.bmp, *.jpg, *.wmf"

تفضل إضافة و حذف مرفقات.rar

جرب هذا التعديل attach.rar

السلام عليكم جرب المرفق اضغط فوق الزر الأحمر بالزر اليمين للفأرة سوف تظهر لك قائمة بها ثلاثة عناصر كل عنصر له أمر معين تستطيع التعديل على الأوامر و المسميات من الوحدة النمطية و وحدات الماكرو الكود.rar

السلام عليكم عودة ميمونة أخي أبا جودي إليك كود إضافة المرفقات لجدول: On Error Resume Next DoCmd.Save Dim i As Integer Dim txtpath As String Dim rsPictures Dim db As DAO.Database Dim rsEmployees As DAO.Recordset 'Dim rsPictures As DAO.Field i = CurrentRecord - 1 With Application.FileDialog(1) .AllowMultiSelect = False .Title = "ÇÎÊÑ ãßÇä ÇáÍÝÙ" If .Show = -1 Then txtpath = .SelectedItems.Item(1) End If End With '------------------------------------------ Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tbl") rsEmployees.Move (i) rsEmployees.Edit Set rsPictures = rsEmployees.Fields("attach1").Value rsPictures.AddNew rsPictures.Fields("FileData").LoadFromFile txtpath rsPictures.Update rsEmployees.Update Set rsEmployees = Nothing Set rsPictures = Nothing Me.Refresh و هذا كود الحذف: On Error Resume Next DoCmd.Save Dim i As Integer Dim txtpath As String Dim rsPictures Dim db As DAO.Database Dim rsEmployees As DAO.Recordset i = CurrentRecord - 1 '------------------------------------------ Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tbl") rsEmployees.Move (i) rsEmployees.Edit Set rsPictures = rsEmployees.Fields("attach1").Value rsPictures.Delete rsEmployees.Update Set rsEmployees = Nothing Set rsPictures = Nothing Me.Refresh مع العلم أن tbl هو اسم الجدول و attach1 هو اسم الحقل و هذا مرفق للتوضيح. attach.rar

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

السلام عليكم إليك الكود قم بوضعه في حدث مفتاح للأسفل للنموذج و لا تنسى تعيين خاصية مفتاح المعاينة إلى نعم If KeyCode <> vbKeyShift Then KeyCode = 0 End If

أنا لا يظهر عندي أي خطأ و الملف يحفظ بشكل طبيعي ظننتك تقصد الخروج من مربع النص عند الضغط على أنتر أخي kanory ما هو البرنامج الذي تقوم بالتصوير به

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

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

السلام عليكم اطلع على هذه الروابط إن شاء الله تجد بها ما يفيدك: و هذه بعض الروابط الخارجية: http://arabteam2000-forum.com/index.php?/topic/218595-التقاط-اكثر-من-صورة-لنفس-الموظف-وحفظها-في-مجلد-الصور/ http://arabteam2000-forum.com/index.php?/topic/170595-التقاط-صورة-الموظف-بالكميرا-او-بالماسح-الضوئي-وحفظها-في-مجلد-الصور/&page=7

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

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

لم افهم ماذا تقصد أرفق مثالك لتعديل عليه

السلام عليكم تستطيع فتح ملف pdf في مستعرض الويب من خلال الكود التالي: Me.WebBrowser4.Navigate "C:\OneDayJavaTrip.pdf" بحيث WebBrowser4 هو اسم الأداة و "C:\OneDayJavaTrip.pdf" هو مسار ملف pdf