حل مشكلة ملف اكسس مصمم على 64 بت ولا يعمل على 32 بت

[محمود القيسي]

يعطيكم العافية 

اخواني بدي حل للمشكلة باسرع وقت بعد اذنكم طبعا 

عملت برنامج على 64 بت اكسس

وأموره تمام بس لما اجيت احطه ع الاجهزة الاخرى ما قدرت انزل اوفيس 64 بت 

واضطريت انزل 32 

واجهتني مشكلة انه بس يفتح الفورم ما بنفذ اي امر 

 

 

رابط البرنامج 

https://drive.google.com/file/d/1F0X3m0jva0hnJSNw7HHArPydxjZ2TO9o/view?usp=sharing

تم تعديل ديسمبر 29, 2024 بواسطه محمود القيسي

[Foksh]

امامك عدة حلول ،

1. تحويل البرنامج ليعمل على إصدار 32 بت بأن تقوم بحفظ النسخة الجديدة من اصدار 32 بت .

2. تعديل الأكواد لتكون متوافقة مع الإصدارين 32 و 64 .

3. تثبيت نسخة 64 بت على الأجهزة الثانية .

4. وهناك حل آخر وهو استخدام Access Runtime (32 بت) ، بأن يتم تثبيته على الاجهزة التي تريدها .

[kanory]

26 دقائق مضت, محمود القيسي said:

واجهتني مشكلة انه بس يفتح الفورم ما بنفذ اي امر 

 

 

[محمود القيسي]

https://drive.google.com/file/d/1F0X3m0jva0hnJSNw7HHArPydxjZ2TO9o/view?usp=sharing

[Foksh]

1. حجم قاعدة البيانات الخلفية ( الجداول ) أكثر من 20 ميجا  ، وهي تحتوي فقط 7 جداول . يجب أولاً عمل ضغط و إصلاح لمشروعك .
2. قاعدة البيانات الرئيسية اشتغلت معي على اصدار 32 ما في مشكلة ، المشكلة التي ستواجهك عند تحويل المشروع الى Accde 
3. من الناحية البرمجية ، وجدت ما يلي في أكواد الـ VBA :-

• في النموذج VPA ، لديك مشاكل في عدم العثور على بعض العناصر ، مثل :-
  ( في الحدث Ctl1_GotFocus :- العنصر Ctl1 غير موجود وما يتبعه في الجملة الشرطية )
  ( في الحدث أمر4_Click :- العنصر أمر4 غير موجود ايضاً وما يتبعه في الجملة الشرطية )
• المشكلة التي قد تواجهك حالياً في مديول اخفاء واجهة آكسيس لديك ، حاول استبدل الكود السابق بهذا التعديل ، وقم بتجربته .
   

Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

#If VBA7 Then
    Private Declare PtrSafe Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hWnd As LongPtr, _
    ByVal nCmdShow As Long) As Long
#Else
    Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hWnd As Long, _
    ByVal nCmdShow As Long) As Long
#End If

Function fSetAccessWindow(nCmdShow As Long)
    Dim loX As Long
    Dim loForm As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm

    If Err <> 0 Then
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
    End If

    If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
        MsgBox "Cannot minimize Access with " _
        & (loForm.Caption + " ") _
        & "form on screen"
    ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
        MsgBox "Cannot hide Access with " _
        & (loForm.Caption + " ") _
        & "form on screen"
    Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End If
    fSetAccessWindow = (loX <> 0)
End Function

وهذه نسخة محفوظة من إصدار 32 بت ، جربه

sader warid- form 32x.zip

هذا رأيي وغير ملزم ، والله أعلم 

تم تعديل ديسمبر 29, 2024 بواسطه Foksh