ماذا افعل لنجاح هذا الكود

Private Sub Command1_Click()

ms1 = MsgBox("ÓíÊã ÊäÙíã æÖÛØ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÞÈá ÇáäÓÎ ÓíÓÊÛÑÞ Ðáß ÈÚÖ ÇáæÞÊ", 524288 + 52, "ÑÓÇáÉ ÃäÐÇÑ ÈÈÏÁ ÇáäÓÎ")

If ms1 = 7 Then

m = MsgBox("Êã ÅíÞÇÝ ÚãáíÉ ÇáäÓÎ ÇáÅÍÊíÇØì", 524288 + 16, "Êã ÅíÞÇÝ ÚãáíÉ ÇáäÓÎ")

Exit Sub

End If

If ms1 = 6 Then

Bmake.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

'1 - ÊÛííÑ ãÄÔÑ ÇáÝÃÑÉ

MousePointer = vbHourglass

Call Form_Load

MyPath = App.Path + "\"

MyDBF = MyPath + "tables.mdb"

' ÇáÊÇßÏ ãä ÚÏã æÌæÏ ÇáãáÝ ÇáãÄÞÊ æ ÍÏÝå Ýí ÍÇáÉ æÌæÏå

If Dir(MyPath + "Temp.Mdb", vbHidden) <> "" Then Kill MyPath + "Temp.Mdb"

' ÖÛØ ãáÝ ÞÇÚÉ ÇáÈíÇäÇÊ æÇÕáÇÍ æ ÊäØíã ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ æÖÚå Ýí ÇáãáÝ ÇáãÄÞÊ

CompactDatabase MyDBF, MyPath + "Temp.Mdb", dbLangArabic, , ";pwd=" & "shaimaa"

' ÍÏÝ ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ

If Dir(MyDBF, vbHidden) <> "" Then Kill MyDBF

' ÇÓÊÈÏÇá ÇÓã ÇáãáÝ ÇáãÄÞÊ Çáì ÇÓã ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ

Name MyPath + "Temp.Mdb" As MyDBF

Rem äÓÎ ÇáãáÝ ÇáÌÏíÏ ÈÚÏ ÖÛØå æÅÕáÇÍå

Dim SourceFile, DestinationFile

SourceFile = (App.Path & "\tables.mdb") ' Define source file name.

Rem ÇáÍÕæá Úáì ÑÞã ÃÎÑ ãáÝ

If File1.ListCount > 0 Then

NF = Mid(tabel.TextMatrix(tabel.Rows - 1, 0), 7, Len(tabel.TextMatrix(tabel.Rows - 1, 0)) - 10)

DestinationFile = "d:\äÓÎ ÈÑäÇãÌ\" & "tables" & NF + 1 & ".mdb" ' Define target file name.

FileCopy SourceFile, DestinationFile ' Copy source to target.

Else

DestinationFile = "d:\äÓÎ ÈÑäÇãÌ\" & "tables" & 1 & ".mdb" ' Define target file name.

FileCopy SourceFile, DestinationFile ' Copy source to target.

End If

'3 - ÇÚÇÏÉ ÇáãÄÔÑ ááÍÇáÉ ÇáØÈíÚíÉ

MousePointer = vbNormal

Bmake.Enabled = True

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

MsgBox "ÊãÊ ÚãáíÉ ÊäÙíã æÖÛØ æÚãá äÓÎ ÅÍÊíÇØì ãä ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ", 524288 + 64, "ÊãÊ ÇáÚãáíÉ ÈäÌÇÍ"

End If

Rem åäÇ äÌÏ ÇáãáÝÇÊ ÇáãÊæÇÌÏå Ýì ÇáãÌáÏ áÊÍãíáåÇ Ýì ÇáÞÇÆãÉ

File1.Path = "d:\äÓÎ ÈÑäÇãÌ"

File1.Refresh

tabel.Rows = File1.ListCount + 1

For t = 0 To File1.ListCount - 1

tabel.TextMatrix(t + 1, 0) = File1.List(t)

tabel.TextMatrix(t + 1, 1) = FileLen(File1.Path & "\" & File1.List(t)) & " bytes"

tabel.TextMatrix(t + 1, 2) = FileDateTime(File1.Path & "\" & File1.List(t))

Next t

Rem ÊÑÊíÈ ÇáãáÝÇÊ ãä ÇáÞÏíã ááÍÏíË

tabel.Col = 2

tabel.Sort = 5

File1.Refresh

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

ms1 = MsgBox("ÓíÊã ÊäÙíã æÖÛØ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÓíÓÊÛÑÞ Ðáß ÈÚÖ ÇáæÞÊ", 524288 + 52, "ÑÓÇáÉ ÃäÐÇÑ ÈÈÏÁ ÇáÊäÙíã")

If ms1 = 7 Then

m = MsgBox("Êã ÅíÞÇÝ ÚãáíÉ ÊäÙíã æÖÛØ ÞÇÚÏÉ ÇáÈíÇäÇÊ", 524288 + 16, "Êã ÅíÞÇÝ ÚãáíÉ ÇáÊäÙíã")

Exit Sub

End If

If ms1 = 6 Then

Bmake.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

'1 - ÊÛííÑ ãÄÔÑ ÇáÝÃÑÉ

MousePointer = vbHourglass

MyPath = App.Path + "\"

MyDBF = MyPath + "tables.mdb"

' ÇáÊÇßÏ ãä ÚÏã æÌæÏ ÇáãáÝ ÇáãÄÞÊ æ ÍÏÝå Ýí ÍÇáÉ æÌæÏå

If Dir(MyPath + "Temp.Mdb", vbHidden) <> "" Then Kill MyPath + "Temp.Mdb"

' ÖÛØ ãáÝ ÞÇÚÉ ÇáÈíÇäÇÊ æÇÕáÇÍ æ ÊäØíã ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ æÖÚå Ýí ÇáãáÝ ÇáãÄÞÊ

CompactDatabase MyDBF, MyPath + "Temp.Mdb", dbLangArabic, , ";pwd=" & "shaimaa"

' ÍÏÝ ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ

If Dir(MyDBF, vbHidden) <> "" Then Kill MyDBF

' ÇÓÊÈÏÇá ÇÓã ÇáãáÝ ÇáãÄÞÊ Çáì ÇÓã ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ

Name MyPath + "Temp.Mdb" As MyDBF

'3 - ÇÚÇÏÉ ÇáãÄÔÑ ááÍÇáÉ ÇáØÈíÚíÉ

MousePointer = vbNormal

Bmake.Enabled = True

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

u = MsgBox("ÊãÊ ÚãáíÉ ÊäÙíã æÖÛØ ãáÝ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈäÌÇÍ ", 524288 + 64, "äÌÇÍ ÇáÚãáíå")

End If

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Form_Load()

tabel.Col = 0: tabel.Row = 0

tabel.Text = "ÃÓã ÇáãáÝ "

tabel.Col = 1: tabel.Row = 0

tabel.Text = " ÍÌã ÇáãáÝ "

tabel.Col = 2: tabel.Row = 0

tabel.Text = " ÊÇÑíÎ ææÞÊ ÃäÔÇÁ ÇáãáÝ "

tabel.ColWidth(0) = 2300

tabel.ColWidth(1) = 2490

tabel.ColWidth(2) = 2550

Rem Úãá ÇáãÌáÏ ÇáÐì ÓíÊã ÃäÔÇÁ ÇáãáÝÇÊ ÈÏÇÎáå

If Dir$("d:\äÓÎ ÈÑäÇãÌ", vbDirectory) = "" Then

MkDir "d:\äÓÎ ÈÑäÇãÌ"

Else

GoTo mk:

Exit Sub

End If

If Dir$("d:\äÓÎ ÈÑäÇãÌ", vbDirectory) = "" Then MkDir "d:\äÓÎ ÈÑäÇãÌ"

mk:

Rem åäÇ äÌÏ ÇáãáÝÇÊ ÇáãÊæÇÌÏå Ýì ÇáãÌáÏ

File1.Path = "d:\äÓÎ ÈÑäÇãÌ "

File1.Refresh

tabel.Rows = File1.ListCount + 1

For t = 0 To File1.ListCount - 1

tabel.TextMatrix(t + 1, 0) = File1.List(t)

tabel.TextMatrix(t + 1, 1) = FileLen(File1.Path & "\" & File1.List(t)) & " bytes"

tabel.TextMatrix(t + 1, 2) = FileDateTime(File1.Path & "\" & File1.List(t))

Next t

Rem ÊÑÊíÈ ÇáãáÝÇÊ ãä ÇáÞÏíã ááÍÏíË

tabel.Col = 2

tabel.Sort = 5

If File1.ListCount = 0 Then tabel.Rows = 9

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set kaada = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\tables.mdb", True, False, ";pwd=" & "shaimaa")

Unload Me

End Sub

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

اخوانى الاعزاء

اشكر اولا كل من ساهم فى بناء هذا الصرح العظيم

الذى لاشك اننا نستفاد منه جميعا

سؤالى هو اننى استخدم تقنية الــ DAO فى ربط قواعد البيانات وقواعد بيانات 97

ماذا افعل لتشغيل الكود التالى على نسخ قواعد الاكسيس97 حيث انه لا يعمل الا على قواعد البيانات اكسيس 2000 وما بعدها الكود كالتالى