Skip to main content

AccessTr.neT


Ön Muhasebe Programı ve Birçok Özellik

Ön Muhasebe Programı ve Birçok Özellik

#7
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
Cevapla
#8
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.....
Cevapla
#9
access 2016 açmıyor. hata veriyor.
Cevapla
#10
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
Photo #11
(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.

[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.
Son Düzenleme: 16/08/2016, 11:14, Düzenleyen: sentiere.
Cevapla
#12
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da