Memnuniyet Anket Çalışması (Sorunsuz)

[hsntetik]

Iyi günlerde kullanmanız dilegi ile

d:\yedek\ dosyası oluşturmazsanız hata verir.

Excel sayfasına geçişte şifre 2722

ayrıca giriş ve vazgeç butonu arasında gizli kapat tuşu vardır

ilçe milli eğitim girişinde bilgisayar ortamında TSE çalışmaları kapsamında kullanılmak üzere hazırlanmıştır. soruları siz belirleyeceksiniz. biz dokun matik ekranla kullanacağız ziyaretçiler anlık olarak ayakta anketi doldurabilecekleri stand üzerinden işlem yapabilmektedirler.

 

[Mahir64]

Iyi günlerde kullanmanız dilegi ile

d:\yedek\ dosyası oluşturmazsanız hata verir.

Excel sayfasına geçişte şifre 2722

ayrıca giriş ve vazgeç butonu arasında gizli kapat tuşu vardır

Merhaba,

Eki göremedim.

 

[hsntetik]

pardon eklemeyi unutmuşum

Merhaba,

Eki göremedim.

eklemeyi unutmuşum ekledim şimdi

 

[NOKİ69]

İhsan Tank tarafından gönderildi
Şimdi anlaşıldı hata verme sebebi diğer userform açık kaldığı için hata veriyor bunun yerine
ya açtığınız userform'un unitalize olayına
Kod:
unload userform1bunu yazın. yada formu açtığınız butonun
Kod:
userform.show 0 Şeklinde değiştirin.

Bahsi geçen anket uygulamasında yukarda yazılan kodları kullandım

anket anasayfasından anket sayfasına geçişte hiç bir sorun yok 10 saniye sonrasında geri ana sayfaya dönüyor.

anasayfadan tekrar farklı bir anket sayfasına tıkladıkdak sonra ana sayfaya geçişte hata veriyor


örnek anasayfa + öğretmen anket sayfası (10 saniye sonra ana sayfa otomatikmen dönüyor) ana sayfa + vatandaş anket sayfası geri dönüşte sorun


modül alanında hata veriyor


Sub KapatForm1()
' zaman 10 saniye olarak ayarlandı
Application.OnTime Now + TimeValue("00:00:10"), "KF1"
End Sub
Sub KF1()
ANA_MENÜ.Show
End Sub

Sub KapatForm2()
' zaman 10 saniye olarak ayarlandı
Application.OnTime Now + TimeValue("00:00:10"), "KF2"
End Sub
Sub KF2()
ANA_MENÜ.Show
End Sub


Sub KapatForm3()
' zaman 10 saniye olarak ayarlandı
Application.OnTime Now + TimeValue("00:00:10"), "KF3"
End Sub
Sub KF3()
ANA_MENÜ.Show
End Sub


Sub KapatForm4()
' zaman 10 saniye olarak ayarlandı
Application.OnTime Now + TimeValue("00:00:10"), "KF4"
End Sub
Sub KF4()
ANA_MENÜ.Show
End Sub