إنشاء ملف أكسس جديد

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته

لقد قمت بكتابة كود يقوم بإنشاء ملف أكسل جديد و آخر يقوم بإنشاء ملف وورد جديد و هذه هي الأكواد.

كود إنشاء ملف أكسل:

    Dim xlApp1 As Object
    Dim xlWB1 As Object
    curPath = CurrentProject.Path & "\salah88.xlsx"
    Set xlApp1 = CreateObject("Excel.Application")
    xlApp1.Visible = False
    Set xlWB1 = xlApp1.Workbooks.Add
    xlWB1.SaveAs curPath
    xlApp1.Quit
    Set xlWB1 = Nothing
    Set xlApp1 = Nothing
MsgBox "لقد تم إنشاء ملف أكسل بنجاح"

كود إنشاء ملف وورد:

    Dim wdp As Word.Application
    Dim doc As Word.Document
    FilePath = CurrentProject.Path
    Set wdp = New Word.Application
    Set doc = wdp.Documents.Add
    wdp.Visible = True
    wdp.ActiveDocument.SaveAs FilePath & "\s1988.doc" ', wdFormatDocument
    wdp.Quit
    Set doc = Nothing
    Set wdp = Nothing
MsgBox "لقد تم إنشاء ملف وورد بنجاح"

السؤال: كيف يمكن إنشاء ملف أكسس جديد بنفس الطرق السابقة حاولت كثيرا و كل المحاولات باءت بالفشل.

هناك طرق أخرى مثل نسخ ملف ثم حذف كائناته أو تصدير جدول أو نموذج ثم مسحه و ترك الملف فارغا.

لكن أنا أريد معرفة طريقة الإنشاء بالطرق السابقة

[jjafferr]

وعليكم السلام اخي صالح 🙂

 

مسقط التصفح يعمل ملف اكسس جديد ، ويعمل جدول بحقوله ، ونموذج بكائناته وكود لها :

 

.

جعفر

[صالح حمادي]

3 دقائق مضت, jjafferr said:

وعليكم السلام اخي صالح 🙂

أهلين أخي العزيز جعفر

عودة ميمونة إن شاء الله

نعم لقد وجدت ذلك. شكرا جزيلا على المساعدة

و هذا هو الكود المسؤول عن إنشاء ملف أكسس جديد :

    mdb_Path_Name = CurrentProject.Path & "\ddd.accdb"
    
    Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", "", dbUseJet)
    
    If Dir(mdb_Path_Name) <> "" Then Kill mdb_Path_Name
    
    Set dbsNew = wrkAcc.CreateDatabase(mdb_Path_Name, dbLangGeneral)
    
    dbsNew.Close
    wrkAcc.Close