25-09-19, 12:00 PM
السلام عليكم و رحمة الله و بركانه
الرجاء الاطلاع على الملف المرفق و الخاص بتكوين قاعجة بيانات اثناء تشغيل الكود
هناك سطر برمجي معين يعطي رسالة خطأ و لم اتمكن من تخطي المشكلة
أرجو منكم المساهمة في حل المشكلة
الكود هو التالي و السطر الذي يعطي الخطأ موضح
شكرا
الرجاء الاطلاع على الملف المرفق و الخاص بتكوين قاعجة بيانات اثناء تشغيل الكود
هناك سطر برمجي معين يعطي رسالة خطأ و لم اتمكن من تخطي المشكلة
أرجو منكم المساهمة في حل المشكلة
الكود هو التالي و السطر الذي يعطي الخطأ موضح
كود :
Option Explicit
Private Sub Command1_Click()
With CD1
.ShowSave
End With
CreateMyDatabase CD1.FileName
End Sub
Sub CreateMyDatabase(DB_Name As String)
Dim wrkDefault As Workspace
Dim dbsNew As Database '======== here is the error
Dim prpLoop As Property
Dim Resulte
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase(DB_Name, _
dbLangGeneral, dbEncrypt)
dbsNew.Close
CreateMyTableS DB_Name
Set dbsNew = Nothing
Set wrkDefault = Nothing
End Sub
Sub CreateMyTableS(DBName)
Dim dbsMyData As Database
Dim tdfNew1 As TableDef
Dim tdfNew2 As TableDef
Dim tdfNew3 As TableDef
Dim relNew As Relation
Dim idxNew1 As Index
Dim idxNew2 As Index
Set dbsMyData = OpenDatabase(DBName)
With dbsMyData
Set tdfNew1 = dbsMyData.CreateTableDef("TB")
With tdfNew1
.Fields.Append .CreateField("Number", dbInteger)
.Fields.Append .CreateFiled("Name", dbText)
End With
dbsMyData.TableDefs.Append tdfNew1
End With
End Sub
شكرا