AccessTr.neT

Bul · 23/06/2016, 04:14

Sayın hocalarım;

Kolay gelsin Simendifer arkadaşımızın yazmış olduğu araç takip programı iş yerimdeki windows 7 32 bit işletim sistemi microsoft office 2010 profesyonel full 32bit ofis programında sorunsuz çalışıyor.Hatta üzerinde baya değişiklik yaptım. Fakat evimde kendi şahsi bilgisayarımda çalışmıyor. Access uyugulamasına tıkladığımda aldığım hataların resimlerini sırasıyla ekledim. Her hataya tamam butonuna basarak bir sonraki hataya geçiyor. Şahsi bilgisayarım windows 7 64 bit işletim sistemi microsoft office 2010 profesyonel full 64bit.

1.Hata
[Resim: do.php?imgf=bf9c7a8221641.png]

2.Hata

3.Hata

4.Hata

5.Hata

6.Hata

7.Hata

8.Hata

8.HATA AÇILINCA BU EKRAN GELİYOR.

[Resim: do.php?imgf=3bf7b7f983321.png]

Bul · 23/06/2016, 04:29

Örneği inceleyen arkadaşlar net çözüm sunabilir.

Modülde ' eklediğin satırlar olmaz ise modül çalışmaz.

Uygulamayı 64 bitte çalışacak şekilde modüldeki kodları düzeltmelisin. Kodlara ptrsafe eklemelisin.

https://accesstr.net/konu-32-bit-x86-yap...lmasi.html bağlantısındaki konuyu inceleyiniz.

Bul · 23/06/2016, 11:44

sayın IceMan7,

bahsettiğiniz talebinize yönelik olarak;

Module1 adlı modülün içeriğini,öncesinde SHIFT tuşuna basılı tutarak uygulamayı açınız ve kod sayfasına geçerek (ALT + F11),

Kod:

Option Compare Database



#If VBA7 Then



Dim dwReturn As Longptr

Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3





Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Longptr) As Longptr





Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Longptr, _

ByVal nCmdShow As Longptr) As Longptr



#Else



Dim dwReturn As Long



Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3



Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long



Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long





#End If





Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean

If Procedure = "Hide" Then

dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)

End If

If Procedure = "Show" Then

dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)

End If

If Procedure = "Minimize" Then

dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)

End If

If SwitchStatus = True Then

If IsWindowVisible(hWndAccessApp) = 1 Then

dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)

Else

dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)

End If

End If

If StatusCheck = True Then

If IsWindowVisible(hWndAccessApp) = 0 Then

fAccessWindow = False

End If

If IsWindowVisible(hWndAccessApp) = 1 Then

fAccessWindow = True

End If

End If

End Function

tüm kodları yukarıdaki kodlar ile olduğu gibi değiştirerek kullanmayı deneyiniz.

son olarak;
kod sayfasında DEBUG - COMPILE kontrolü yapılması akabinde herhangi bir soruna rastlanılmamıştır.

bilginize...iyi çalışmalar,saygılar.

Bul · 26/06/2016, 02:16

sayın IceMan7,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

Bul · 26/06/2016, 13:07

Sayın Atoz112;
Evet dün deneyebildim evde değildim. Dün denedim çalıştı. 64 bit de çalıştı fakat elimdeki stok takip programında da denedim fakat olmadı ... ona bakamadım tam olarak eksik olan kısmı nerde ona bakıp size bilgi vermek isterim sizce de sakıncası yoksa.

Bul · 26/06/2016, 13:56

sayın IceMan7,

konu başlığına dair sorunuza çözüm olması adına önerilen 3.mesajdaki kodları

Alıntı:Dün denedim çalıştı. 64 bit de çalıştı

ifadenizden anlaşıldığı üzere,olumlu yönde çözüm elde ettiğinizi beyan etmektedir.ardından,

Alıntı:fakat elimdeki stok takip programında da denedim fakat olmadı

ifadenize yönelik olarak da;
bir ihtimal kullandığınız ofis sürümünden kaynaklı veya yanlış yazılmış bir kod satır veya satırlarından dolayı da olma ihtimal mevcut görülmekte.

elbette ki,bu diğer kullanımlarda çalışan kodları denemeniz ve akabinde eğer yine olumsuz bir durum olursa bunun için gerek ayrıntılı açıklamada bulunmanız ve olası maruz kaldığınız hata söz konusu ise bunu içeren ekran görüntüsünü konunuza dahil etmeniz yerinde olacaktır kanısındayım.

bilginize...iyi çalışmalar,saygılar.

AccessTr.neT

araç takip programı 64 bit açılma sorunu

araç takip programı 64 bit açılma sorunu

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri