[Yardım]  Userformun Windows7 x86 ve Office x86 da çalışmaması

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Userformun Windows7 x86 ve Office x86 da çalışmaması

İleti#1)  beyfendi » 24 Oca 2023 15:24

Merhaba üstadlarım,

Yapmış olduğum yıllık izin takip projem normalde Windows 10 x64 ve Office 2016 x64 ile Office 365 x86 da sıkıntısız çalışıyor fakat yeni başladığım işyerinde Windows 7 x86 ile Office 365 x86 kurulu projemi burada kullanmak istedim ama bana "çok zararlı hata ... " ile "out memory" hatası verip döngüye girip programın kodlama kısmını açıyor. Benim tahminimce işletim sisteminin ve officenin x64 olmamasından kaynaklandığını düşündüm ve aşağıdaki kodları ekledim ama genede aynı sorunla karşılaşmaya devam ediyorum siz değerli üstadlar dan ricam bana bir yardımcı olsanız.

UserForm1 içine

Kod: Tümünü seç
Private Sub UserForm_Activate()
Module1_x86.MaxMinButton (Me.Caption)
Module2_x64.MaxMinButton (Me.Caption)
End Sub



Modül1_x86 için

Kod: Tümünü seç
Option Explicit
Public Const MinBox = &H10000
Public Const MaxBox = &H20000
Public Const Style = (-16)
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Public Sub MaxMinButton(ByVal FormCaption As String)
Dim hWnd As Long
Dim IngStyle As Long

hWnd = FindWindow(vbNullString, FormCaption)
IngStyle = GetWindowLong(hWnd, Style)

IngStyle = IngStyle Or MinBox
IngStyle = IngStyle Or MaxBox

SetWindowLong hWnd, Style, IngStyle
DrawMenuBar hWnd

End Sub



Modül2_x64 için

Kod: Tümünü seç
Option Explicit
Public Const MinBox = &H10000
Public Const MaxBox = &H20000
Public Const Style = (-16)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Public Sub MaxMinButton(ByVal FormCaption As String)
Dim hWnd As Long
Dim IngStyle As Long

hWnd = FindWindow(vbNullString, FormCaption)
IngStyle = GetWindowLong(hWnd, Style)

IngStyle = IngStyle Or MinBox
IngStyle = IngStyle Or MaxBox

SetWindowLong hWnd, Style, IngStyle
DrawMenuBar hWnd

End Sub


Eklediğim bu kodları x86 ve x64 göre değiştirerek kullandığım halde aynı hatayı almaya devam ettim.

Rica ediyorum bana bir yardımcı olun.
Kullanıcı avatarı
beyfendi
Siteye Alışmış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 13:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 42
İleti: 168
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Yıllık Maaş Bordrosu Hesaplama 2022

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe