(29/10/2019, 11:13)berduş yazdı: her konu/sorudan muhakkak bir şey öğrenilir bu nedenle de değerlidir)
iyi çalışmalar kolay gelsin
Not: projenizin amacını tam olarak bilmediğimden kesin bir şey söyleyemem ama bir kaç ufak değişiklikle belki bu çalışmanız da işinizi görebilir. çok kapsamlı ve ayrıntılı bir şey yapmaya çalışmıyorsanız bundan devam edebilirsiniz.
1-2 güne bitiririm, eksik kalan yerleri buraya yazarım,
bitirince paylaşırım.
Teşekkürler.
Selamlar.
Sql komutlarını kullanmadan, yeniden hazırladım.
Yaklaşık olarak düşündüğüm hale getirdim, altforma veri aktarma, altformdan veri alma, kayıt, düzeltme ve silme problemleri bitti, şartlara bağlı buton ve metin kutusu gösterme gizleme ekledim,rapor alma ekledim, tam bitirince tekrar paylaşırım.
Fikrinizi almak isterim.
Teşekkürler.
modülde kullandığınız aşağıdaki 2 yordam 64 bitlik bilgisayarlarda hataya sebep oluyor 64 bitliklerde
PtrSafe kodunu eklemek gerekiyor
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
yukardaki 2 kodu silip aşağıdaki gibi düzenlerseniz bence daha iyi olur böylece hem 64 hem de 32 bitlik bilgisayarlarda çalışır
#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
#Else '32 bit için
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
#End If