ดูผลลัพธ์ loop ไม่ทัน


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

26 เม.ย. 65 , 16:30:02
อ่าน 167 ครั้ง

WISSANU

ดูผลลัพธ์ loop ไม่ทัน
« เมื่อ: 26 เม.ย. 65 , 16:30:02 »
อยากดูผลลัพธ์ ในการ loop เช่น ผมมี text1 เป็นจำ 1000 ครั้งของการทำงาน คือผมใช้
me.text1=1000
Do Until me.text1<=0
me.Refresh
me.text1=me.text1-1
loop
 คืออยากเห็นค่าที่ลบออกทีละ 1 ในช่อง text1 ทำไงดีครับอาจารย์

« แก้ไขครั้งสุดท้าย: 26 เม.ย. 65 , 22:58:26 โดย WISSANU »

 

26 เม.ย. 65 , 17:43:37
ตอบกลับ #1

OddyWriter

: ดูผลลัพธ์ loop ไม่ทัน
« ตอบกลับ #1 เมื่อ: 26 เม.ย. 65 , 17:43:37 »
ใช้คำสั่ง MsgBox เข้าไปใน Loop ครับ
วิกฤติโควิดทำให้ร้อนเงิน
ใครอยากจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 

26 เม.ย. 65 , 21:56:20
ตอบกลับ #2

WISSANU

: ดูผลลัพธ์ loop ไม่ทัน
« ตอบกลับ #2 เมื่อ: 26 เม.ย. 65 , 21:56:20 »
ขอบคุณครับที่ตอบ  แต่ผิด วัตถุประสงค์ ครับ คืออยากให้ text1 เป็นตัวแสดงผลครับ

 

26 เม.ย. 65 , 22:35:19
ตอบกลับ #3

OddyWriter

: ดูผลลัพธ์ loop ไม่ทัน
« ตอบกลับ #3 เมื่อ: 26 เม.ย. 65 , 22:35:19 »
me.text1=1000
Do Until me.text1<=0
me.Refrech
me.text1=me.text1-1
msgbox me.text1
loop
วิกฤติโควิดทำให้ร้อนเงิน
ใครอยากจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: Max

26 เม.ย. 65 , 22:57:27
ตอบกลับ #4

WISSANU

: ดูผลลัพธ์ loop ไม่ทัน
« ตอบกลับ #4 เมื่อ: 26 เม.ย. 65 , 22:57:27 »
อาจารย์ครับ Me.Text1=1000 อันนี้คือยกตัวอย่างครับ บางที Me.Text1=100,000 ครั้ง
ถ้าใช้ msgbox me.text1 ก็ต้องนั่งกด enter นิ้วล๊อคแน่ครับ มีวิธีอื่นไหมครับ

 

27 เม.ย. 65 , 00:07:51
ตอบกลับ #5

nonc31

: ดูผลลัพธ์ loop ไม่ทัน
« ตอบกลับ #5 เมื่อ: 27 เม.ย. 65 , 00:07:51 »
เหมือนอยากนับถอยหลัง (ไม่รู้ตรงใจป่าว) น่าจะใช้ TimerInterval

 

27 เม.ย. 65 , 04:46:28
ตอบกลับ #6

TTT

: ดูผลลัพธ์ loop ไม่ทัน
« ตอบกลับ #6 เมื่อ: 27 เม.ย. 65 , 04:46:28 »
ลองใส่ DoEvents ในลูปดูว่าตรงตามต้องการป่าว
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator
 
โพสต์นี้ได้รับคำขอบคุณจาก: Max

27 เม.ย. 65 , 07:50:56
ตอบกลับ #7

WISSANU

: ดูผลลัพธ์ loop ไม่ทัน
« ตอบกลับ #7 เมื่อ: 27 เม.ย. 65 , 07:50:56 »
me.text1=1000
Do Until me.text1<=0
me.Refresh
DoEvents
me.text1=me.text1-1
loop

ใช่เลยครับ อาจารย์ ใช้ DoEvents ขอบคุณครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: nonc31, Max


บอร์ดเรียนรู้ Access สำหรับคนไทย