JABERXP

الرد موجود في الملف المرفق .. MonthDate.Zip

الأعزاء.. لدي عدد من قواعد البيانات تحتوي عدد من النماذج ، أريد من خلال زر أمر فتح نموذج في قاعدة بيانات أخرى لسجل محدد . وقد جربت الطريقة التالية لكن أعطتني خطأ .. Sub OpenNewForm() Dim objAccess As Access.Application Dim strMDB , strForm as String Set objAccess = New Access.Application StrMDB = "D:\Employees.mdb" StrForm= "FrmAbsent" With objAccess .OpenCurrentDatabase strMDB .DoCmd.OpenForm strForm End With End Sub

أعزائي .. لدي جدول وبه صور موجودة بداخله على هيئة كائنات ole ، اساس الصور jpg ، اريد استخراجهم من الجدول الى ملفات عادية ذات امتداد jpg مرة واحدة وليس لكل صورة على حدا .. وشكرا سلفاً .