המרת קוד VBA מ-32bit ל- 64 bit

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
יש מישהו שיכול לעזור לי עם זה גיגלתי הרבה ולא מצאתי את הפיתרון הסופי לחידה.
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
איזה קוד צריך המרה?
 

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
קוד VBA למשל מה שהיה כאן בעבר והוא הדין לכל סוגי הקודים השונים כדוגמתו.

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

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

קבצים מצורפים

  • ‏‏TimerApi - עותק .accdb.txt
    KB 844 · צפיות: 17

moishy

משתמש סופר מקצוען
מנוי פרימיום

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
#If VBA7 Then Declare PtrSafe Sub... #Else Declare Sub... #EndIf

גם אני מצאתי את הקוד הזה אך זה לא עוזר...

אם למישהו יש איזשהו קוד שיעזור אני אודה לו מאד.
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
תנסה
קוד:
#If VBA7 Then
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _
    ByVal nDEvent As Long) As Long
#Else
Declare Function SetTimer Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal nIDEvent As Long) As Long
#End If
 

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
תנסה
#If VBA7 Then
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nDEvent As Long) As Long
#Else
Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
#End If

הוא מחזיר את אותה שגיאה.

סתם כך מהחלק Declare Function הראשון כבר יש לי בקוד.

אם יש למישהו רעיון או קוד אחר שיעזור אודה לו מאד.
 

FullTime

משתמש מקצוען
אם זכור לי טוב, אם לא מוישי ימחה בי..

זה שהוא אדום זה לא תמיד שגיאה.
הIF עם הסולמית מראה את זה באדום, אבל עובד.
 

moishy

משתמש סופר מקצוען
מנוי פרימיום

moishy

משתמש סופר מקצוען
מנוי פרימיום
אם זכור לי טוב, אם לא מוישי ימחה בי..

זה שהוא אדום זה לא תמיד שגיאה.
הIF עם הסולמית מראה את זה באדום, אבל עובד.
צודק לגמרי. המהדר מתעלם מכל מה שכתוב בתנאי שלא רלוונטי עבורו. תוכל לכתוב שם מה שתרצה ולא תהיה בעיה למרות שזה יהיה אדום.
 

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
מוישי תודה רבה אין עליך...

הכל עובד.
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
מה בכל זאת היתה הבעיה?
 

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
מה בכל זאת היתה הבעיה?

העברתי את הקוד הנ"ל לקובץ אחר ואז הוא הציג לי שגיאה על השורה האחרונה:

Global iCounter As Integer

מה זה אומר ?
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
העברתי את הקוד הנ"ל לקובץ אחר ואז הוא הציג לי שגיאה על השורה האחרונה:

Global iCounter As Integer

מה זה אומר ?
שורה אחרונה?!
זה הבעיה זה צריך להיות לפני הכל.
 

>השראה<

מיתוג | אסטרטגיה | עיצוב, אפיון, וקידום אתרים
מנוי פרימיום
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
פרסום וקופי
מוזיקה ונגינה
עימוד ספרים
הדמיות בתלת מימד
UX UI
D I G I T A L
עימוד ספרים
אתה צודק לא שמתי לב.
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  12  פעמים

לוח מודעות

למעלה