+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayfa Yönlendirme (/konu-sayfa-yonlendirme.html)
Sayfalar:
1
2
Sayfa Yönlendirme - Serkan ERDUGAN - 16/10/2019
Bir Progress bar inceledim üstünde Değişiklik yaptım Fakat İstediğime Ulaşamadım
Şu an Test Butonu ile Çalışıyor ve İşlem sonunda Ana Form u açtırmak istiyorum İlgili Kodlar hakkında yardımınızı istiyorum
Örnek Yükledim inceleyip Bana yardım edebilirseniz çok sevinirim Saygı Sevgiler Serkan
Cvp: Sayfa Yönlendirme - ozanakkaya - 16/10/2019
Merhaba,
TSC_PF_Simple isimli modülde
Private Sub Class_Terminate()
If Not mFrm.bCancelled Then
'Record time since close request
Dim lngCloseRequested As Long
lngCloseRequested = GetTickCount
'In case of very short tasks, we don't want the progress meter to only show for a millisecond.
'Therefore a minimum visible time is set.
Do While GetTickCount - mLoadTime < mMinumumVisibleTime
'Form has not yet been open for minimum time.
Sleep 50
RepaintForm
Loop
'Form has been open for minimum time, but how long was it since it reached 100% and close was requested?
Do While GetTickCount - lngCloseRequested < mTimeToClose
'Form has not yet been open for minimum time.
Sleep 50
RepaintForm
Loop
End If
'Ready to close. clear form object
Set mFrm = Nothing
End Subbu kod içerisindeki
'Ready to close. clear form object metninin hemen altına
DoCmd.OpenForm "Ana Form", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "frm_Test"kodu ekle.
Ayrıca, Ana Form isminde form olmaz. Formun ismi frm_anaform olmalı.
Cvp: Sayfa Yönlendirme - Serkan ERDUGAN - 16/10/2019
hocam form u açtırdım fakat üst teki kodları girdiğimde hata alıyorum
Cvp: Sayfa Yönlendirme - murat dikme - 16/10/2019
Windows sürümünüz 64 bit ise Private Declare den sonra PtrSafe ekleyerek deneyiniz
Cvp: Sayfa Yönlendirme - ozanakkaya - 16/10/2019
Merhaba, benim yazdığım kodun tamamını girmeyeceksiniz. Bu kod zaten modülde mevcut. Siz sadece modülde bulunan
Ready to close. clear form object metninin hemen altına
DoCmd.OpenForm "Ana Form", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "frm_Test"kodu eklenecek.
Cvp: Sayfa Yönlendirme - Serkan ERDUGAN - 16/10/2019
Tamam Şimdi Anlaşıldı Çok Teşekkür ederim Test Butonu yerine login giriş butonu ile yapabilirmiyiz sesli düşündüm