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 مرة واحدة وليس لكل صورة على حدا .. وشكرا سلفاً .