AccessTr.neT

Bul · 10/02/2022, 19:26

Örneği İncelermisin.

Bul · 10/02/2022, 21:16

Hocam ellerinize sağlık, aynen istediğim buydu çok teşekkür ederim.
Form sadece ayrıntı bölümü için düzenlemişsiniz kodu zannedersem, diğer alanlar içinde uygulanabiilirmi acaba.
aşağıdaki kodu her formun Fare tuşuna basılırken olayına eklersem diğer formlarıda aynı şekilde kullanabilirim değilmi.
Emeğinize sağlık.

Bul · 10/02/2022, 22:12

Merhaba

Hangi Formda kullanıcaksanız formun Kod Görünümde (ALT+F11) herhangi bir boş alana aşağıdaki kodu yapıştırın

Kod:

Sub moveform(frm As Form)



Dim ReturnVal As Long

ReleaseCapture

ReturnVal = SendMessage(frm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

If ReturnVal = 0 Then

End If



End Sub

Daha sonra hangi nesne yardımı ile formu taşıyacaksanız o nesnenin FARE TUŞUNA BASILIRKEN olayına aşağıdaki kodu yapıştırdığınız çalışacaktır.

Kod:

If Button = 1 Then moveform Me

Daha önceki yorumumda gönderdiğim linkin içerisinde ki örnekte de bu mevcuttu.

İyi çalışmalar dilerim.

Bul · 11/02/2022, 08:23

Çok teşekkür ederim hocam,
Tekrar elinize emeğinize sağlık.
Konu çözülmüştür.

Bul · 15/02/2022, 13:26

Nerede hata yapıyorum üstad bakmanız mümkün mü?

[img]

[/img]

Bul · 15/02/2022, 19:55

Kırmızı yazıyla yazılmış alanda hata yapıyorsunuz orayı çekip atınız.

AccessTr.neT

Acces Penceresi Gizleme Problemi

Acces Penceresi Gizleme Problemi

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

Giriş yap

Hesap oluştur

Konu Linkleri