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