محسن 2017

جزاك الله خيرا أخي أسامة..

لكن عند فتح اكسس باستخدام اكسس 2007 - 2010 تظهر مثل هذه الرسالة

اقتباس

This database is in an unrecognized format.
The database may have been created with a later version of Microsoft Office Access than the one you are using. Upgrade your version of Microsoft Office Access to the current one, and then open this database.

فما سببها ؟؟

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

أشكر الجميع على تفاعلهم في هذا المجمع الرائع:

سؤالي من شقين:

الأول: صممت برنامج بالأكسس 2013 32bit وحفظته بصيغة ACCDE لكن واجهتني مشكلة في (فتح البرنامج بإصدارات اكسس أقدم 2007 - 2010 ) وكذلك عند فتحه بنسخة 64bit. 

فما الحل السليم لهذه الاشكاليات عند تسليمه للعميل..

الثاني: بعد تسليم البرنامج للعميل .. وعند الرغبة في تحديث البرنامج ( تصحيح اخطاء أو إضافة مزايا جديدة) كيف يمكن التحديث مع الحفاظ على البيانات في قاعدة البيانات ؟؟

حفظكم الله 

ألا يوجد حل؟؟  

يا ليت توضح المشكلة بشكل أفضل.. وترفق نسخة من قاعدة البيانات لديك للتعديل عليها.. 

بإنتظار رد المبدعين الكرام.. 

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

بارك الله في جهود الاخوة في هذا الموقع الرائع..

لدي قاعدة بيانات (لغرض التعلم) في المرفقات

بها جدولين:

1- جدول المستخدمين ( رقم المستخدم (تلقائي) - اسم المستخدم - الايميل - تاريخ الانضمام)

2- جول الحسابات (رقم الحساب - اسم الحساب - اسم المستخدم - نوع الحساب)

أنشأت نموذج لإدخال اسماء المستخدمين.. لكن أرغي فيما يلي:

1- عند اضافة مستخدم في جدول المستخدمين يضاف له بشكل (تلقائي) 3 حسابات في جدول الحسابات بالشكل التالي:

- نوع الحساب : اشتراكات - ادخارات - مصروفات

- رقم الحساب = (رقم المستخدم + (1000) إذا كان نوع الحساب اشتراكات) أو (رقم المستخدم + (2000) إذا كان نوع الحساب ادخارات) أو (رقم المستخدم + (3000) إذا كان نوع الحساب مصروفات)

- اسم الحساب= (اسم المستخدم + A إذا كان نوع الحساب اشتراكات) أو (اسم المستخدم + B  إذا كان نوع الحساب ادخارات) أو (اسم المستخدم + C  إذا كان نوع الحساب مصروفات)

2- لا يتم حفظ بيانات المستخدم أو حساباته إلا بعد الضغط على زر الحفظ في النموذج..

اقتباس

Public Sub batchAdd()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim A As String
    Dim B As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("accounts")
    
    i = 1
    
    
    Do While i <= 3
    
        If = 1 Then
            A = "A"
            B = "اشتراكات"
        ElseIf = 2 Then
            A = "B"
            B = "ادخارات"
        ElseIf = 3 Then
            A = "C"
            B = "مصروفات"
        Else
            A = "N"
            B = "N"
        End If
    
    
        rs.AddNew
        rs!AccountNo = (1000 * i) + ([Forms]![Users]![UserNO])
        rs!AccountName = ([Forms]![Users]![UserName]) & " - " & A
        rs!UserName = [Forms]![Users]![UserName]
        rs!AccountType = B
        rs.Update
        i = i + 1

    Loop
      
    
    rs.Close
    
    Set rs = Nothing
    Set db = Nothing

End Sub

db.rar