Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/06/2016 17:09
Konu Sahibi
dayko
Yorumlar
64
Okunma
19173
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
simendifer

simendifer

Onursal Üye
23
Ek.... ÇE....
 61
 93
 954
 30/10/2008
339
 Çankırı
 emekli
 Ofis 2007
 Dün,23:58
atoz hocam sizin şu uslubunuza  hayranım bu kelimeleri nereden buluyorsunuz sanırım edebiyat veya memuriyette yüksek bir makamda idiniz insanları kırmadan sabırla uzunca izah ve bilgilendiriyorsunuz
allah emeklerinizi zayi etmesin sağlıcakla kalın saygılarımla




dayko

dayko

Destek
2655
On.... KA....
 38
 17
 92
 31/01/2009
12
 Manisa
 Bilgisayar Mühendisi
 Ofis 2010 32 Bit
 Bugün,09:26
görüşleriniz için teşekkür ederim atoz112 üstadım inceleyip sorunlu gördüklerinizi yazarsanız bende düzeltmeye çalışayım hem kendimi geliştirme açısından hemde düzgün çalışması açısından.

saygılarımla


Ege Web Ajans
Bilgi Güçtür.....

...........
sentiere

sentiere

Üye
83948
 41
 0
 6
 15/08/2016
0
 Bursa
 
 Diğer
 19/08/2016,00:29
access 2016 açmıyor. hata veriyor.



atoz112

atoz112

Onursal Üye
8839
 49
 9
 5.716
 04/08/2009
 İstanbul
 
 Ofis 2007
 09/12/2017,11:02
Sayın sentiere,

Alıntı:hata veriyor.

Öncelikle;ifadenize yönelik olarak;
Daha ayrıntılı bilgilendirmelerde bulunmanız yerinde olur.çünkü;hangi işlem gerçekleştiği anda veya olay yordamı söz konusu olduğunda nasıl bir hata aldığınıza dair,bu hatanın oluştuğu esnayı gösteren ekran görüntüsünü dahil etmeniz faydalı olurdu yorumların ve yönlendirmelerin paylaşılması adına.

Tahmini olarak bir ihtimal,şu husustan kaynaklı olduğunu düşünüyorum,kendi adıma naçizane.

Module1 adlı modül içeriğinde yer alan ve 32 Bit / 64 Bit ayrımı olmaksızın hazırlanan uygulamanın sürümüne dair ilk etapta oluşturulduğu için dahil edilmemiş olabilir düşüncesi ile,bu modüldeki DECLARE edilmiş olan Fonksiyonların bu ayrıma göre yeniden düzenlenmesi gerekmektedir.


Sizin de yapabileceğiniz şu işlemi gerçekleştiriniz lütfen.

1) Uygulamayı,SHIFT tuşuna basılı tutup tam olarak açılana kadar bırakmaksızın bu şekilde açınız.

2) Uygulama açıldıktan sonra,ALT + F11 tuşları ile kod sayfasına geçiniz ve Modüle1 adlı modülü aktifleştiriniz.

3) Bu modüldeki tüm kodları iptal edip (temizleyip) yerine aşağıdaki kodları olduğu gibi dahil ediniz ve üzerine kaydediniz.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Option Compare Database
Option Explicit

'**********************************************************
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

#If Win64 Then
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As LongLong, _
ByVal nCmdShow As LongLong) As LongLong
#Else
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
#End If



#If VBA7 Then
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As LongPtr, _
ByVal nCmdShow As LongPtr) As LongPtr
#Else
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
#End If
'**********************************************************


' This function is to be called as such:
' Call fSetAccessWindow (argument)
' The arguments are as follows;
' SW_HIDE - this hides the access database window
' SW_SHOWMAXIMIZED - this maximizes the window
' SW_SHOWMINIMIZED - this minimizes the window
' SW_SHOWNORMAL - this just shows (as normal) the window


Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function


Bilginize…iyi çalışmalar,saygılar.




...........
sentiere

sentiere

Üye
83948
 41
 0
 6
 15/08/2016
0
 Bursa
 
 Diğer
 19/08/2016,00:29
Photo 
(15/08/2016 13:25)atoz112 Adlı Kullanıcıdan Alıntı: Sayın sentiere,

Alıntı:hata veriyor.

Öncelikle;ifadenize yönelik olarak;
Daha ayrıntılı bilgilendirmelerde bulunmanız yerinde olur.çünkü;hangi işlem gerçekleştiği anda veya olay yordamı söz konusu olduğunda nasıl bir hata aldığınıza dair,bu hatanın oluştuğu esnayı gösteren ekran görüntüsünü dahil etmeniz faydalı olurdu yorumların ve yönlendirmelerin paylaşılması adına.

Tahmini olarak bir ihtimal,şu husustan kaynaklı olduğunu düşünüyorum,kendi adıma naçizane.

Module1 adlı modül içeriğinde yer alan ve 32 Bit / 64 Bit ayrımı olmaksızın hazırlanan uygulamanın sürümüne dair ilk etapta oluşturulduğu için dahil edilmemiş olabilir düşüncesi ile,bu modüldeki DECLARE edilmiş olan Fonksiyonların bu ayrıma göre yeniden düzenlenmesi gerekmektedir.


Sizin de yapabileceğiniz şu işlemi gerçekleştiriniz lütfen.

1) Uygulamayı,SHIFT tuşuna basılı tutup tam olarak açılana kadar bırakmaksızın bu şekilde açınız.

2) Uygulama açıldıktan sonra,ALT + F11 tuşları ile kod sayfasına geçiniz ve Modüle1 adlı modülü aktifleştiriniz.

3) Bu modüldeki tüm kodları iptal edip (temizleyip) yerine aşağıdaki kodları olduğu gibi dahil ediniz ve üzerine kaydediniz.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Option Compare Database
Option Explicit

'**********************************************************
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

#If Win64 Then
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As LongLong, _
ByVal nCmdShow As LongLong) As LongLong
#Else
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
#End If



#If VBA7 Then
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As LongPtr, _
ByVal nCmdShow As LongPtr) As LongPtr
#Else
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
#End If
'**********************************************************


' This function is to be called as such:
' Call fSetAccessWindow (argument)
' The arguments are as follows;
' SW_HIDE - this hides the access database window
' SW_SHOWMAXIMIZED - this maximizes the window
' SW_SHOWMINIMIZED - this minimizes the window
' SW_SHOWNORMAL - this just shows (as normal) the window


Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function


Bilginize…iyi çalışmalar,saygılar.


Merhaba,
programi tekrar indirdim, office 2016 da actim, ilk acilista verdigi hata asagidaki gibidir.

[Resim: do.php?imgf=147133473224311.jpg]

sonra ok basinca verdigi hata tekrardan aynisi olarak geliyor.

[Resim: do.php?imgf=147133473229142.jpg]

akabinde bu sekilde gorunuyor.

[Resim: do.php?imgf=147133473235313.jpg]

enable content demek icin programi kendi icindeki X isaretine basarak kapatiyorum, sifreyi felan girdiginizde o ekrani imkan yok gecmiyor. bu sekilde kaliyor.
dolayisiyla programi kapatip enable ediyorum.  sonrasinda ise bi ekran gelmiyor... bos. alt+F11 calismiyor.
kapatiyroum Access i/
tekrar ayni pogrami actigimda ise birinci hata tekrar geliyor ve ekran yine asagidaki gibi bos geliyor. programi ilk calistirmada ekran sadece o sirada geliyor. baska hic bir yerde gelmiyor, dedigim gibi ALT F11 calismiyor....

[Resim: do.php?imgf=147133502867971.jpg]


ÖNEMLİ >>>>
Bir de belirtmek isterim ki sitenizdeki bütü programlar aynı şekilde hata mesajı vermekte. Bilgisayara iki gün önce w10 kuruldu, ardından office 2016 kuruldu. eksik parçaları olduğunu sanmıyorum. sanıırm 2016 olması kaynaklı çalışmıyorlar. uyumlu olması mümkün müdür.



simendifer

simendifer

Onursal Üye
23
Ek.... ÇE....
 61
 93
 954
 30/10/2008
339
 Çankırı
 emekli
 Ofis 2007
 Dün,23:58
ofisi yeni kurdugunuza göre Access in makrolarını enable etmeniz gerekir bunun için accessi tararım görünümde acın 
dosya / secenekler /güvenlik merkezi/güvenlik merkezi ayarları/makro ayarlarından  tüm makroları etkinlertir kutusunu işaretleyin 
program acıldıgında missing hatası verirse  program tasarım görünümünde iken alt -f tusuna basarak visual basıc kodlarına ulaşırsınız ardan tools  referanslarda missing le başlayan kutuların işaretini kaldırınız ve ya eksik olan dll dosyasını  formun içinden veya internetten indirip c dizinindeki microsoft system32 klasörünün içine yapıştırın  program normal çalışır kolay gelsin



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Apartman Blok Gelir Gider Takip Programı metınaycıcek 12 384 Bugün, 10:05
Son Yorum: halily
  Personel Programı fascioğlu 78 34.969 06/05/2019, 12:42
Son Yorum: murat3300
  Jandarma Tahkikat Programı dılbermurat 26 21.390 24/04/2019, 16:04
Son Yorum: ozanakkaya
  Dernek Takip Programı GokhanTurna 83 54.873 24/04/2019, 13:28
Son Yorum: GokhanTurna
  personel takip programı p1er 16 20.513 24/04/2019, 10:08
Son Yorum: Erdem58

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.