AccessTr.neT

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

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

access 2016 açmıyor. hata veriyor.

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.

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.

(15/08/2016, 13:25)atoz112 yazdı: [ -> ]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.

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.



sonra ok basinca verdigi hata tekrardan aynisi olarak geliyor.



akabinde bu sekilde gorunuyor.



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....




Ö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.

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