64 bit de access penceresini gizleme
Tarih
18/05/2013 08:28
Konu Sahibi
vstural75
Yorumlar
9
Okunma
4160
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



vstural75
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... V.... T....
20
29/11/2008
0
Niğde
Ofis 2013 64 Bit
30/11/2016,23:16
herkese merhaba ,

32 bit bilgisayarlada asagida verdidim kodlari modulun icine koyunca basarili bir sekilde calisiyor, ancak sikintim 64 bit bilgisayarda calismiyor. calistigim is yerinde hem 32 hemde 64 bit bilgisayar var dolayisiyla hazirladigim veri tabani her yerde calismiyor.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
 
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
 
Function fSetAccessWindow(nCmdShow As Long)
Dim loX        As Long
Dim loForm     As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm
    If Err <> 0 Then
        If nCmdShow = SW_HIDE Then
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
            Err.Clear
        End If
    Else
 
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
 
    End If
    fSetAccessWindow = (loX <> 0)
End Function


Formun acilisina 

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (0)
End Sub

Pop up = yes
modal = yes



Ek Dosyalar
.rar   Database9.rar (Dosya Boyutu: 14,68 KB / İndirme Sayısı: 91)
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.732
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Dün,02:10
Ben de 64 bit windows7 kullanıyorum ama verdiğiniz örnek gayet güzel çalışıyor. Sorun ne anlamadım.

Yalnız şunu belirteyim office 2010 32 bit sürümü kuruludur. Sizde office de mi 64 bit?
İnadına, ille de Accesstr.net...
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.732
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Dün,02:10
Bu da resmi.


Ek Dosyalar Ekran Görüntüleri
   
İnadına, ille de Accesstr.net...
Cevapla


vstural75
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... V.... T....
20
29/11/2008
0
Niğde
Ofis 2013 64 Bit
30/11/2016,23:16
Mehmet bey,
oncelikle ilginiz icin tesekkur ederim,
cok emin degilim ama ofisde 64 bit bende verdigi hatanin resmini gonderiyorum


Ek Dosyalar Ekran Görüntüleri
   
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.732
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Dün,02:10
evet, kullandığınız api user32 apisi olduğu için 64bit'e uygun değil. Problem programı 32bit Access ile hazırlayıp 64bit ile çalıştırmanızdan kaynaklı. Microsoft bunun 64 bit kullanan bir Access'te düzenleme yaparak halledileceğini belirtmiş. Bunun yanında bir modül açarak aşağıdaki kodların modüle eklenmesinin de sorunu çözdüğünü belirtmişler:

Visual Basic Code
#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal ms as Long)
#End If


Bunun yanında utteraccess'ciler de hata veren şu kodların

Visual Basic Code
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpbuffer As String, nsize As Long) As Long


şu şekilde yazılması durumunda sorunun çözüldüğünü belirtmişler:

Visual Basic Code
Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpbuffer As String, nsize As Long) As Long


Bir diğer yol ise benim yaptığım gibi 32 bit Access kullanmaktır Img-grin))

İnadına, ille de Accesstr.net...
Cevapla


vstural75
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... V.... T....
20
29/11/2008
0
Niğde
Ofis 2013 64 Bit
30/11/2016,23:16
tesekkurler
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Alt formları butonla gösterme gizleme simendifer 1 1.543 14/04/2013, 11:26 mesut58580
  Access makro uyarısını otomatik kapatan uygulama (Access ile) mehmetdemiral 28 13.367 04/11/2012, 02:51 mehmetdemiral
  Access Pencerelerini Gizleme life_exciting 9 4.667 30/07/2011, 19:51 rüzgar54
  Ana Formda Alt formu Onay Kutusuyla Gizleme Uygulaması HandSword 8 3.150 18/03/2011, 17:52 kadirdursun
  Windows Admin Kontrolü İle Yetkilendirme ve Tablo Gizleme-Gösterme tdsharun 7 4.569 25/10/2010, 14:45 kadirdursun


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya