(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

(29/10/2019, 14:01)berduş yazdı: 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

Çok teşekkür ederim.
Emeğinize sağlık.