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
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 Sub
bu 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ı.
hocam form u açtırdım fakat üst teki kodları girdiğimde hata alıyorum
Windows sürümünüz 64 bit ise Private Declare den sonra PtrSafe ekleyerek deneyiniz
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.
Tamam Şimdi Anlaşıldı Çok Teşekkür ederim Test Butonu yerine login giriş butonu ile yapabilirmiyiz sesli düşündüm