Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
18/05/2013 08:28
Konu Sahibi
vstural75
Yorumlar
9
Okunma
5231
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
14/12/2016,14:01
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ı: 104)
Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
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.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
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
14/12/2016,14:01
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.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
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
14/12/2016,14:01
tesekkurler


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  alt Formu Tek Tuşla Gizleme karam 14 5.210 22/07/2017, 18:34 pfilcik
  Alt formları butonla gösterme gizleme simendifer 1 1.797 14/04/2013, 11:26 mesut58580
  Access makro uyarısını otomatik kapatan uygulama (Access ile) mehmetdemiral 28 14.750 04/11/2012, 02:51 mehmetdemiral
  Access Pencerelerini Gizleme life_exciting 9 5.230 30/07/2011, 19:51 rüzgar54
  Ana Formda Alt formu Onay Kutusuyla Gizleme Uygulaması HandSword 8 3.600 18/03/2011, 17:52 kadirdursun

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.