Şartlı Form Açma

[teknik]

Arkadaşlar benim sorum:
Bir form açıkken link ile başka bir formu açmak istiyorum. ama formu açmadan önce mevcut açık formda kişininin numarası ve adı soyadı bölümleri girilmemişse açılmasın ve eksik bölümlerin girilmesi için uyarsın eğer No ve Ad Soyad bölümleri doluysa yani girilmişse linkini verdiğim diğer formu açsın
kod istiyorum
yardımcı olursanız sevinirim

 

[xorion]

İlgili alanların özelliklerinden "im" ya da "tag" kısmına belirli bir veri girin örneğin "gerekli" kelimesini girin ve sonra şağıdaki kodu forma ekleyin.
'----------------------------------------------------------------
Function CheckValidate() As Integer
Dim currctl As Integer
Dim numctls As Integer
Dim ctl As Control
numctls = Me.Count
CheckValidate = 0
For currctl = 0 To numctls - 1
Set ctl = Me(currctl)
If ctl.Tag = "gerekli" Then
If IsNull(ctl) Or ctl = "" Or ctl = Empty Then
MsgBox "Lütfen boş alanları doldurun", _
48, " Alanları boş bırakmayın!!"
ctl.SetFocus

CheckValidate = 1

Exit Function
Else

End If
End If
Next currctl
End Function
'-----------------------------------------------------------------

Daha sonra da koyduğunuz butonun her ne butonu olursa kayıt veya sonraki kayıt butonun click olayına da şu kodu yazın,

'-----------------------------------------------------
Private Sub buton_ismi()
If CheckValidate = 0 Then
MsgBox "Artık formu açabilirsiniz.."
DoCmd.OpenForm "açılacak_form_ismi"
End If
End Sub
'------------------------------------------------
Kolay gelsin...

 

[teknik]

Sayın Xorion ilginize teşekkürler fakat badit bir form ile ek olarak verebirlimisiniz
veya ilk kodu hangi forma yazılacak açık olana mı yoksa açılacak olana mı bu nu ek dosya olarak eklerseni sevineceğim iyi çalışmalar

 

[xorion]

Peki örneği ekliyorum.. Ayrıca doldurulması gereken boş alana oto olarak gitmektedir..
İyi Çalışmalar..

 

[teknik]

çok teşekkürler xorion ilginize ve ciddiyetinize
peki düğme veya komut form değilde makro çalıştırması gerekirse
komut düğmesindeki

Private Sub Komut141()
If CheckValidate = 0 Then
MsgBox "Artık formu açabilirsiniz.."
DoCmd.OpenForm "form_ismi"
End If
End Sub

DoCmd.OpenForm
kısmına ne yazmak gerekiyor
DoCmd.OpenMakro"Makrı_ismi" mi olacak

yani komut makroyu çalıştıracak çünkü benim istediğim komut makroya bağlıymış yani form ile birlikte başka işlemleri de çalıştırıyor. ama yine yukarıdaki şartlerı taşırsa makroyu çalıştıracak

 

[xorion]

DoCmd.RunMacro "makro_adi"

Bu şekilde çalıştırabilirsiniz istediğiniz makroyu..

İyi Çalışmalar...