Τασο μαλλον το ελυσα.
https://easyupload.io/kjrctf
-------------------------------
1)Στην δικια μου βαση οπως ειπα εχω βαλη την εφαρμογη απ οτο forum "diary" η οποια εχει μια φορμα
"frm_Entry_Main" οπου εχει μεσα την
Public Sub Sleep(sngTime As Single) και το module
"BasShared"
|
|
\/
Public Sub HotSpotClick(sControlName As String)
On Error GoTo PROC_ERR
Me.Controls(sControlName).SpecialEffect = 2
Sleep 1
Me.Controls(sControlName).SpecialEffect = 3
DoEvents
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox Err.Description
Resume PROC_EXIT
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
2)Επισης εχω βαλει στην βαση μου και την
"frm_login" και το module
"mdlGeneral".Στο module υπαρχει η function
"Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)" οπου εδω ειναι το προβλημα αν καταλαβα καλα οτι βρισκει 2 ιδια ονομα.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
Λυση:
πηγα και αλλαξα την Public Sub
Sleep(sngTime As Single) --> Public Sub
mySleep(sngTime As Single) και
Public Sub HotSpotClick(sControlName As String)
On Error GoTo PROC_ERR
Me.Controls(sControlName).SpecialEffect = 2
Sleep 1
Me.Controls(sControlName).SpecialEffect = 3
DoEvents...κλπ
---------->> Public Sub HotSpotClick(sControlName As String)[/B]
On Error GoTo PROC_ERR
Me.Controls(sControlName).SpecialEffect = 2
μυSleep 1
Me.Controls(sControlName).SpecialEffect = 3
DoEvents
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
Εκανα compile και δεν μου βγαζει το συγκεκριμενο error.