Arkadaşlar Aslında sorunum çok basit. ben daha öncden yazdığım bi programa yeni 1-2 şey ekledim. ama önceden girdiğim verilerde de aynı kodları çalıştırmalıyım. onun için for-next döngüsüyle bi nevi güncelleştirme butonu yaptım. programın mantığı şu:
Private Sub Komut120_Click()
Dim Sayac, sayac2 As Integer
For Sayac = 1 To 100
Me.uretim_miktari.Value = Me.onay222.Value
Me.iscilik.Value = Me.iscilik1.Value
Me.dogalgaz.Value = Me.dogalgaz1.Value
Me.hammadde.Value = Me.hammadde1.Value
Me.elektrik.Value = Me.elektrik1.Value
Me.poset.Value = Me.poset1.Value
Me.bant.Value = Me.bant1.Value
Me.strec.Value = Me.strec1.Value
Me.palet.Value = Me.palet1.Value
Me.koli.Value = Me.koli1.Value
DoCmd.GoToRecord , , acNext
Next Sayac
End Sub
bu şekilde verileri tabloya yazıyo sonra sonraki kayda gidiyo ordaki verileride tabloya yazıyo....
bunda bi sorun yok. sorun bunları çok hızlı yapması. hesaplattığım değerler 2-3 saniye sonra geliyor. ama komut bu arada çalıştığı için veri görmüyo ve hata veriyo. benim isteğim bekletme komutu kullanmak. çok aradım ama bulamadım. eğer visual basicde delay komutu veya benzeri varsa beni bilgilendirirseniz sevinirim. şimdiden saolun
Private Sub Komut120_Click()
Dim Sayac, sayac2 As Integer
For Sayac = 1 To 100
Me.uretim_miktari.Value = Me.onay222.Value
Me.iscilik.Value = Me.iscilik1.Value
Me.dogalgaz.Value = Me.dogalgaz1.Value
Me.hammadde.Value = Me.hammadde1.Value
Me.elektrik.Value = Me.elektrik1.Value
Me.poset.Value = Me.poset1.Value
Me.bant.Value = Me.bant1.Value
Me.strec.Value = Me.strec1.Value
Me.palet.Value = Me.palet1.Value
Me.koli.Value = Me.koli1.Value
DoCmd.GoToRecord , , acNext
Next Sayac
End Sub
bu şekilde verileri tabloya yazıyo sonra sonraki kayda gidiyo ordaki verileride tabloya yazıyo....
bunda bi sorun yok. sorun bunları çok hızlı yapması. hesaplattığım değerler 2-3 saniye sonra geliyor. ama komut bu arada çalıştığı için veri görmüyo ve hata veriyo. benim isteğim bekletme komutu kullanmak. çok aradım ama bulamadım. eğer visual basicde delay komutu veya benzeri varsa beni bilgilendirirseniz sevinirim. şimdiden saolun