alt form denetimi - Baskı Önizleme

alt form denetimi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: alt form denetimi (/konu-alt-form-denetimi.html)

Sayfalar: 1 2

alt form denetimi - fox35 - 11/03/2010

saygıdeğer arkadaşlar;
altformlarla ilgili kodları yazmakta biraz zorlanıyorum.daha doğrusu alt formu tanımlamada.ekteki örnekte alt formdaki tel no yazılmadan adres kutusuna geçmemesi için nasıl bir kod önerirsiniz.
saygılar.

Cvp: alt form denetimi - ercansahin - 11/03/2010

Lütfen İnceleyiniz..

Eğer ekediğim örnekteki formun kodunu;

Kod:

Private Sub Form_Current()

If IsNull([TEL_NO]) Then

Me.Metin8.Locked = True

Else

Me.Metin8.Locked = False

End If

End Sub

olarak değiştirirseniz, bu kez mesaj almak yerine Tel No alanı boş ise Adres metin kutusunun kilitlenmesini sağlarsınız.

Cvp: alt form denetimi - fox35 - 11/03/2010

teşekkürler sayın şahin.sorun halloldu.

Cvp: alt form denetimi - ercansahin - 11/03/2010

Sevindim..Kolay gelsin..

Cvp: alt form denetimi - ercansahin - 12/03/2010

Sn fox35, eğer form açıldığında son kaydın seçili olmasını istiyorsanız altformun koduna;

Kod:

Private Sub Form_Current()

DoCmd.GoToRecord , , acLast

End Sub

yazınız..

Cvp: alt form denetimi - fox35 - 12/03/2010

alt formu
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoCmd.GoToRecord , , acLast
End Sub
şeklinde yazınca oldu sayın şahin.alt formdan ayrılınca alt formda son kayda gidiyor dolayısıyla metin kutusu boş kalmamış oluyor.

teşekkürler.