Mas, mungkin logika rutin program ini dapat membantu (disesusikan dengan
kebutuhan)
'-------------------------------------------------------------------------------------
'property Form: KeyPreView harus diset TRUE
'------------------------------------------------------------------------------------
Dim i As Long, j As Long, n As Long
Dim Terus As Boolean
Private Sub Form_KeyPress(KeyAscii As Integer)
'jika tombol Escape ditekan maka variable Terus menjadi FALSE
If KeyAscii = vbKeyEscape Then Terus = False
End Sub
Private Sub LoopBerhentiSementara( )
j = 10 'posisi berhenti pertama
i = 0
n =100 'banyaknya looping utama
Do Until i >= n
If i = j Then
j = j + 10 'menentukan posisi berhenti berikutnya
Terus = True
Do While Terus
DoEvents 'rutin ini menunggu tombol
Loop
End If
i = i + 1
Loop
End Sub
Barangkali ada cara lain? semoga membantu
--- Pada Ming, 6/9/09, syafruddin abubakar <syafruddin2...@yahoo.com> menulis:
Dari: syafruddin abubakar <syafruddin2...@yahoo.com>
Judul: [Programmer-VB] Menghentikan looping sementara
Kepada: Programmer-VB@yahoogroups.com
Tanggal: Minggu, 6 September, 2009, 3:48 AM
DH,
saya mau membuat looping untuk melihat nilai recordset. tapi saya mau melihat
per record. Misalnya saya mau lihat record pertama dulu trus loopingnya
berhenti sementara, setelah dicek dan saya tekan tekan tombol Space atau enter
baru beralih ke record selanjutnya. Jadi mohon pencerahanya bagaimana caranya
menghentikan looping sementara tadi dan setelah tekan sesuatu tombol baru
muncul record selanjutnya
Terima kasih
Udin
Akses email lebih cepat. Yahoo! menyarankan Anda meng-upgrade browser ke
Internet Explorer 8 baru yang dioptimalkan untuk Yahoo! Dapatkan di sini!
http://downloads.yahoo.com/id/internetexplorer
