الأخوة الأفاضل
السلام عليكم ورحمة الله
قمت بمحاولة تعديل الكود الخاص بالنسخ الإحتياطى والموجود فى قاعدة البيانات 3in1 لطارق حنيدق و محمد طاهر فى المنتدى وذلك لعمل ملف جديد من قاعدة بيانات mde
المشكلة أن ناتج النسخ هو قاعدة بيانات mde ولكن بإمتداد mdb فما هو الخطأ فى هذا الكود أم أن الطريقة غير صححيحة
Private Sub Newtender_Click() On Error GoTo errsub Dim ofn As OPENFILENAME ofn.lStructSize = Len(ofn) ofn.lpstrFilter = "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0) ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 ofn.lpstrInitialDir = CurDir ofn.lpstrTitle = " Title " ofn.flags = 0 Dim a a = GetOpenFileName(ofn) If (a) Then Me![File Name] = ofn.lpstrFile Else Exit Sub End If Dim SrcName, NewName, Msg As String SrcName = "c:PApa318.mde" NewName = Forms![menu]![File Name] ' غير مرتبط DBEngine.CompactDatabase SrcName, NewName Exit Sub
