14-05-2013, 14:13
Merhaba,
Forumda paylaştığınız konulardan yararlanarak iyi bilmememe rağmen bir veri giriş programı tasarlamaya çalıştım. Rapor önizlemede hata alıyorum. Yardımcı olabilir misiniz? Teşekkür ederim.
Private Sub Komut13_Click()
Call YetkiDugmeTrz(Form, "Komut13")
If KodDurdur = 0 Then Exit Sub
'Üstteki iki satırı silmeyiniz. Trz..
DoCmd.Close
DoCmd.OpenForm "FKullaniciGiris"
End Sub
Private Sub Komut18_Click()
DoCmd.Quit
End Sub
Private Sub Komut19_Click()
DoCmd.OpenReport "Rpr_KONTROL_RAPORU", acViewPreview
End Sub
Private Sub Komut2_Click()
DoCmd.OpenForm "fKONTROL RAPORU"
End Sub
Private Sub Komut20_Click()
Call RaporYazdirma("Rpr KONTROL RAPORU")
End Sub
Private Sub Komut22_Click()
DoCmd.OpenForm "DenemeFormCasus"
End Sub
Private Sub Komut3_Click()
DoCmd.OpenForm "fSİSTEMSEL AKIL"
End Sub
Private Sub Komut4_Click()
DoCmd.OpenForm "fSORUN-ÇÖZÜM HAVUZU"
End Sub
Forumda paylaştığınız konulardan yararlanarak iyi bilmememe rağmen bir veri giriş programı tasarlamaya çalıştım. Rapor önizlemede hata alıyorum. Yardımcı olabilir misiniz? Teşekkür ederim.
Private Sub Komut13_Click()
Call YetkiDugmeTrz(Form, "Komut13")
If KodDurdur = 0 Then Exit Sub
'Üstteki iki satırı silmeyiniz. Trz..
DoCmd.Close
DoCmd.OpenForm "FKullaniciGiris"
End Sub
Private Sub Komut18_Click()
DoCmd.Quit
End Sub
Private Sub Komut19_Click()
DoCmd.OpenReport "Rpr_KONTROL_RAPORU", acViewPreview
End Sub
Private Sub Komut2_Click()
DoCmd.OpenForm "fKONTROL RAPORU"
End Sub
Private Sub Komut20_Click()
Call RaporYazdirma("Rpr KONTROL RAPORU")
End Sub
Private Sub Komut22_Click()
DoCmd.OpenForm "DenemeFormCasus"
End Sub
Private Sub Komut3_Click()
DoCmd.OpenForm "fSİSTEMSEL AKIL"
End Sub
Private Sub Komut4_Click()
DoCmd.OpenForm "fSORUN-ÇÖZÜM HAVUZU"
End Sub

