burda activex leri kullanma hakkında bilgi vermeyi düşünüyorum o nedenden dolayı bu bölüme haftada bir activex in kullanımını ekleyecem fakat bunu bir tek benim yapmam mantıklı değil eğer arkadaşlada yardımcı olur ve bildikleri activex leri koyarlarsa daha kısa zamanda yeni girenleri bilgilendirmiş oluruz
öncelikle
ekle activex denetimi ordan Microsoft progres bar 6.0 seç
ismini aaa diye değiştir
yanına bir kaydet butonu ve şekillendir
sonra kaydet butonun tıklatıldığında olayına
Private Sub Komut94_Click()
Dim a
aaa.DisplayWhen = "2"
Me.aaa.value = 1
If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then
Dim X
For X = 1 To 1000
Me.aaa.value = X
Next X
End If
If Me.aaa.Max = "1000" Then
aaa.DisplayWhen = "1"
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
progres barda iki çşit ilerleme ve iki çeşit görünüm var 1 ilerleme standart tane tane ilerleyen birde düz ilerleyen çeşitse bir yatay bir de dikey ilerleme progres barın özelliklerinden diğer ordan özele tıklayıp gerekli değişiklikleri yapabilirsiniz
öncelikle
ekle activex denetimi ordan Microsoft progres bar 6.0 seç
ismini aaa diye değiştir
yanına bir kaydet butonu ve şekillendir
sonra kaydet butonun tıklatıldığında olayına
Private Sub Komut94_Click()
Dim a
aaa.DisplayWhen = "2"
Me.aaa.value = 1
If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then
Dim X
For X = 1 To 1000
Me.aaa.value = X
Next X
End If
If Me.aaa.Max = "1000" Then
aaa.DisplayWhen = "1"
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
progres barda iki çşit ilerleme ve iki çeşit görünüm var 1 ilerleme standart tane tane ilerleyen birde düz ilerleyen çeşitse bir yatay bir de dikey ilerleme progres barın özelliklerinden diğer ordan özele tıklayıp gerekli değişiklikleri yapabilirsiniz