تعديل كود يعمل على اوفيس 32بت ولا يعمل على اوفيس 64 بت

[jo_2010]

الخبراء الافاضل

برجاء مساعدتى فلا حل هذة المشكلة

المطلوب فى الصورة الاولى

المشكلة التى اقابلها فى الصورة الثانية

Database1.accdb

[Foksh]

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

تفضل أخي جو التعديل كالآتي :-

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal Hwnd As LongPtr, ByRef rgb As Long)
#Else
    Private Declare Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal Hwnd As Long, ByRef rgb As Long)
#End If

Function DialogColor(ByVal InitialColor As Long) As Long
    Dim lngColor As Long
    lngColor = InitialColor
    Call ChooseColor(Application.hWndAccessApp, lngColor)
    DialogColor = lngColor
End Function

 

ملفك المرفق .. جربه وأخبرني

Database1.accdb