AccessTr.neT

Tam Versiyon: alt form denetimi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
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.
teşekkürler sayın şahin.sorun halloldu.
Sevindim..Kolay gelsin..
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..
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.
Sayfalar: 1 2