AccessTr.neT

Tam Versiyon: Form Üzerindeki Alanların Sırayla Dolması Hk.
Ş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
Merhaba,

Evet arkadaşlar ben, şirketime ekte sunmuş olduğum avans talep formunu hazırladım fakat, bu formdaki alanlar isimden başlayıp sonuna kadar doldurulmasını istiyorum. Bir önceki alan dolmadan diğerine geçilmesin. Alanların hepsi doldurulduğunda gönder seçeneği ile raporu outlooka Excel yada pdf olarak nasıl gönderebilirim ? Yardımlarınızı bekliyorum. Teşekkür ederim.
Görevi alanının girildiğinde olayına

Private Sub Görevi_Enter()
If IsNull(Me.AdiSoyadi) Then
MsgBox ("Adı Soyadı Alanı Boş Bırakılamaz.")
DoCmd.GoToControl "AdiSoyadi"
End If
End Sub
şeklinde kod yaz.
diğer alanlar için girildiğinde olayına benzeri kodun yazılması gerekli, mantık aynı.

Excele göndermek için
Accessten excel'e seçmeli veri gönderme
Pdf'ye göndermek için
Access Raporları Pdf Olarak Görüntüleme
linklerini incele

Yardımlarınızdan dolayı çok teşekkür ederim. Bir aydır çok uğraştım bunun için. İyi çalışmalar. Saygılar.
Tekrar Merhabalar,

Üstadım sizin vermiş olduğunuz kodları uyguladım, fakat istenen yerleri doldurduğumuz zamanda bir sonraki satıra geçiş yapmıyor. Uygulamayı ekleyemedim. Site izin vermiyor. Benim Access bilgim sadece 1 aylık sizin kadar tecrübeli değilim acaba ben mi yanlış yaptım. Bir daha bakabilirseniz sevinirim. Teşekkürler
2. mesajdaki kodda değişiklik yaptım. Tekrar dene.
(14/12/2010, 16:19)murguc yazdı: [ -> ]Tekrar Merhabalar,

Üstadım sizin vermiş olduğunuz kodları uyguladım, fakat istenen yerleri doldurduğumuz zamanda bir sonraki satıra geçiş yapmıyor. Uygulamayı ekleyemedim. Site izin vermiyor. Benim Access bilgim sadece 1 aylık sizin kadar tecrübeli değilim acaba ben mi yanlış yaptım. Bir daha bakabilirseniz sevinirim. Teşekkürler

Dostum Syn sledgeab un verdiği kodları uygulamanızdaki 2 alana ekledim ve gayet sağlıklı çalışıyor.


Private Sub Departmani_Enter()
If IsNull(Me.Görevi) Then
MsgBox ("Görevi Alanı Boş Bırakılamaz.")
DoCmd.GoToControl "görevi"
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
www_access (forumlari_com)
End Sub
Private Sub Görevi_Enter()
If IsNull(Me.AdiSoyadi) Then
MsgBox ("Adı Soyadı Alanı Boş Bırakılamaz.")
DoCmd.GoToControl "AdiSoyadi"
End If
End Sub
kodlarınızı bu matığa göre diğerlerinede uygularsanız sorun çıkmadan çalışacaktır iyi çalışmalar dilerim.
Sayfalar: 1 2