Private Sub Resim44_Click()
ProgressBar1.Visible = True
For I = 1 To 10000
ProgressBar1.Value = (I / 10000) * 100
Next I
ProgressBar1.Visible = False
Docmd.openform "açılacak formun adı"
End Sub

Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Bilgisayar Programcısı (1989'dan beri)

