AccessTr.neT
araç takip programı 64 bit açılma sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: araç takip programı 64 bit açılma sorunu (/konu-arac-takip-programi-64-bit-acilma-sorunu.html)

Sayfalar: 1 2

araç takip programı 64 bit açılma sorunu - IceMan7 - 23/06/2016

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

[Resim: do.php?imgf=60294b83fbeb2.png]
3.Hata

[Resim: do.php?imgf=c59292f1e1523.png]
4.Hata

[Resim: do.php?imgf=6f72fa609ee31.png]
5.Hata

[Resim: do.php?imgf=7fa32e1896c62.png]
6.Hata

[Resim: do.php?imgf=fed9fa9b24693.png]
7.Hata
[Resim: do.php?imgf=e6b91fb499d01.png]

8.Hata
[Resim: do.php?imgf=3f1ac61126d12.png]

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

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

Cvp: araç takip programı 64 bit açılma sorunu - ozanakkaya - 23/06/2016

Ö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-yapilan-programlarin-64-bit-x64-calistirilmasi.html bağlantısındaki konuyu inceleyiniz.

Cvp: araç takip programı 64 bit açılma sorunu - atoz112 - 23/06/2016

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.

Cvp: araç takip programı 64 bit açılma sorunu - atoz112 - 26/06/2016

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.

Cvp: araç takip programı 64 bit açılma sorunu - IceMan7 - 26/06/2016

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.

Cvp: araç takip programı 64 bit açılma sorunu - atoz112 - 26/06/2016

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.