مشكلة في الكود مع نظام وندوز 64

[الطـاير]

السلام عليكم 

 

اخواني عندي برنامج يعمل على اوفيس 2007 و 2010 وندوز 32 

 

امس حاولت اشغله على نظام 64 طلعت لي هذا الرسالة 

 

فهل من حل لتعديل الكود جزاكم الله خير 

 

[أبو عبير 2005]

أخي الغالي 

جرب أستبدل 

 Declare Function SetTimer Lib

 

بـهذا

 

 Declare PtrSafe Function SetTimer Lib

[Bakry63]

هذه المشكلة تصيبني كثيرا ، ولم يصلح هذا الحل ، فبرجاء المساعدة

[الطـاير]

أخي الغالي 

جرب أستبدل 

 Declare Function SetTimer Lib

 

بـهذا

 

 Declare PtrSafe Function SetTimer Lib

 

جزاك الله على المساعدة 

 

حاولت استخدمها ولكن الاكسس ما يقبل الكود 

 

 

Option Compare Database
Declare PtrSafe SetTimer Lib "user32" (ByVal hwnd _As Long, ByVal nIDEvent As Long, ByVal uElapse _Declare PtrSafe KillTimer Lib "user32" _As Long, ByVal lpTimerFunc As Long) As Long (ByVal hwnd As Long, ByVal nIDEvent As Long) _Alias "FindWindowExA" (ByVal hwndParent As _As Long Declare PtrSafe FindWindowEx Lib "user32" _ Long, ByVal hWndChildAfter As Long, ByVal _Lib "user32" Alias "SendMessageA" (ByVal _lpClassName As String, ByVal lpWindowName _ As String) As Long Declare PtrSafe Sendmessagebynum _
hwnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) _ As Long Const EM_SETPASSWORDCHAR = &HCC Public str_Title$, TimerId&

تم تعديل مارس 8, 2015 بواسطه الطـاير

[الطـاير]

ملاحظة هامة جدا :

 

البرنامج يعمل على شبكة المشكلة فيها انظمة 32 او 64 واكسس 2007 او 2010 ، ظهرت المشكلة على جهاز واحد فقط حتى الآن نظام 64 اكسس 2010 جربت البرنامج على جهاز اخر نظام 64 واكسس 2010 واشتغل بشكل سليم ؟؟ فما هي المشكلة في الجهاز الاولي ؟؟؟

[yms12]

اواجه نفس المشكلة الويندوز 7 64 بت واالاوفيس2007

[أبو عبير 2005]

أخي الحبيب بارك الله فيك 

 

بالنسبة لنظام windows 7 64bit 

 

يركب عليه office 32 أو office 64  ل 2007 و 2010 . 

 

أما نظام windows 7 32 bit

 

 لا يركب عليه سوى office 32  سواءً 2007 أو 2010 

 

تأكد من أنظمة الأوفس لديك . 

 

 

أخي ما عليك أمر جرب هذا الكود حسب ما في مشاركتك الأخيرة 

 

Option Compare Database
Declare PtrSafe Function SetTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long

Public Declare PtrSafe Function KillTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long

Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWndParent As Long, _
ByVal hWndChildAfter As Long, _
ByVal lpszClassName As String, _
ByVal lpszWindowName As String _
) As Long

Declare PtrSafe Function SendMessageByNum Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Const EM_SETPASSWORDCHAR = &HCC
Public str_Title$, TimerId&

تم تعديل مارس 8, 2015 بواسطه أبو عبير 2005

[yms12]

انا عامل برنامج باوفيس2003 وشغال ممتاز مع ويندوز7  32 بت واوفيس 2007 و2010

ولكن المشكلى عندما حاولت تنزيله عند عميل كان الويندوز7 64 بت واوفيس 2007 ولكن لم اعرف 64 او 32

لم يعمل 

سؤالى اين اضع هذا الكود

والمشكلة اني لا يوجد لدي ويندوز64 للتجربة

الله المستعان

تم تعديل مارس 8, 2015 بواسطه yms12

[yms12]

سوف اقوم بتحميل ويندوز 7 64 بت ولكن لا ادري الجهاز قديم شوية

الله المستعان

[الطـاير]

بعد معانة اشتغلت على نفس الجهاز ولكنها لا تعمل على بقية الاجهزة ؟؟؟؟ حاجة غريبة ، تشغلها في مكان تقف في مكان اخر 

[yms12]

نريد حل لهذا المشكلة