قاعدة بيانات عسكرية معدله

[احمد فضيله]

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

الحمد لله على كل حال

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

[حمادة عمر]

السلام عليكم

رااااااااااااائع استاذ احمد

دائما للامام ايها الرائع

جزاك الله خيرا

[احمد فضيله]

السلام عليكم

رااااااااااااائع استاذ احمد

دائما للامام ايها الرائع

جزاك الله خيرا

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

الاخ الفاضل الاستاذ / حماده عمر

شكراً لحضرتك اخي العزيز

كلماتك الطيبة الرقيقه اكبر مني بكثييييييييييييييير جداً جداً جداً

جزاك الله كل خير

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

[يوسف احمد]

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

[مهند الواسطي]

اخي العزيز ممكن مساعدتي بقاعدة عسكرية في حالة قبولك مساعدتي سوف ارسل اليك موقف ومطاليبه يحفظك الله

[احمد فضيله]

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

[ابو راكان العودة]

جزاك الله خير 

ممكن الملف الذي يقبل 64 بت 

وشكرا

[ياسر خليل أبو البراء]

قاعدة بيانات عسكرية HaNcOcK Version 3.rar

[ابو راكان العودة]

جزاك الله خير  استاذ ياسر

تواجهني كثيرا هذه المشكلة في بعض ملفات الاكسل  فماهو الحل لجعلها تقبل نظام 64 بت

والله يحفظكم ويرعاكم

[ياسر خليل أبو البراء]

إذا واجهتك مشكلة أخي الكريم أبو راكان فاطرح المشكلة

التعامل مع نظام 64 بت يحتاج لممارسة ولا يوجد قواعد ثابتة بشكل كبير ..أنا أجتهد في التعديل إلى أن يتم الأمر (لأنني بدأت التعامل مع 64 بت منذ فترة)

تقبل تحياتي

[ابو راكان العودة]

الله يسعدك استاذي ويكثر خيرك

هذا الملف يهمني اشغله على نظام 64

اذا تكرمت بالمساعدة وشكرا

Example.ZIP

[ياسر خليل أبو البراء]

'In Standard Module
'-----------------

#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long
#Else
    Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long
#End If

Sub RemoveCaption(objForm As Object)
    Dim lStyle          As Long
    Dim hMenu           As Long
    Dim mhWndForm       As Long
    
    If Val(Application.Version) < 9 Then
        mhWndForm = FindWindow("ThunderXFrame", objForm.Caption)
    Else
        mhWndForm = FindWindow("ThunderDFrame", objForm.Caption)
    End If
    
    lStyle = GetWindowLong(mhWndForm, -16)
    lStyle = lStyle And Not &HC00000
    SetWindowLong mhWndForm, -16, lStyle
    DrawMenuBar mhWndForm
End Sub

Sub ShowForm()
    UserForm1.Show False
End Sub

'In UserForm Module
'------------------
Private Sub UserForm_Initialize()
    Call RemoveCaption(Me)
End Sub

تفضل أخي الكريم

 

 

[ابو راكان العودة]

استاذي الغالي / ياسر

جزاك الله خير وبارك الله لك في عمرك 

[احمد فضيله]

اخي الحبيب الاستاذ : ياسر خليل ( أبو البراء )

جزاك الله كل خير 

 

[ياسر خليل أبو البراء]

وجزيت خيراً بمثله أخي الغالي احمد فضيله (هانكوك)

تقبل تحياتي