ทำยังไงให้พิมพ์ข้อมูลแล้วไม่ต้อง enter บ้างครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,938   11
URL.หัวข้อ / URL
ทำยังไงให้พิมพ์ข้อมูลแล้วไม่ต้อง enter บ้างครับ

คือตอนนี้ผมทำ ช่องค้นหาข้อมูลโดยใช้โค้ดนี้

If IsNull(Me![SearchB]) Or (Me![SearchB]) = "" Then
        MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"
        End If
Me.Filter = "MemberID = '" & Me.SearchB & "'"
Me.FilterOn = True
Me.Requery
Me.SearchB = ""


โค้ดนี้ใช้กับปุ่มกด [ค้นหา]

แต่อยากให้มันค้นหาเองเลยโดยไม่ต้องกดปุ่มบ้างครับผม

11 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R20371
ลอง copy code ไปใส่ใน event On Update ของ SearchB
แล้วลองปรับดูครับ
2 @R20372
ภาษาไทยคือ เปลี่ยนแปลงเนื้อหา ใช่ไหมครับ

ผมลองเอาไปไว้แล้วครับ แค่พิมพ์ไปตัวเดียวมันขึ้นข้อความเตือนเฉยเลยครับ

MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"


3 @R20373
ลืมบอกครับ ช่องนี้ผมใช้การคีย์ด้วยการยิงบาร์โค้ดครับผม ต้องมากดปุ่มเองทุกครั้งที่สแกนเลยครับ
4 @R20375
ใช้มาโครช่วยจะได้หรือเปล่าครับ เช่น ผูกมาโครที่ After Update โดยอาจจะสั่งให้ Gotorecord เป็น New หรือถ้าต้องการให้ไปที่ฟิวด์อื่นก่อน ก็ใช้มาโคร Gotocontrol เพื่อให้ไปที่ไหนก่อนก็ได้
5 @R20377
ถ้าทำเหมือนเดิมที่เอาโค้ดไว้ที่ On Update ไม่ว่าจะทำอะไรในช่องมันจะขึ้นเตือน อย่างที่บอกเลยครับผม
6 @R20378
ที่ผมเคยทำช่อง Search โดยใช้วิธียิง Barcode นั้น ผมผูกมาโครไว้ที่ After update ที่ช่อง Search แล้วใช้มาโคร Gotocontrol (ไปฟิวด์ที่ต้องการค้นหาก่อน) แล้วตามด้วยมาโคร Find Record (Find what) ให้เท่ากับ Name ของช่อง Search
7 @R20380
คุณสมชายครับ พอดีผมมือใหม่ พอมีตัวอย่าง โค้ดไหมและวิธีไหมครับผม
8 @R20383
ทำที่ Event > On Change ครับ

แก้โค๊ดเป็นประมาณนี้ครับ

    If IsNull(Me![SearchB].Text) Or (Me![SearchB].Text) & "" = "" Then
        MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"
    End If
    Me.Filter = "MemberID = " & Me.SearchB.Text
    Me.FilterOn = True
    Me.Requery
    Me.SearchB = ""

ย้ำว่า ตัวช่อง Textbox ที่ใส่คำต้องต่อด้วย Property .Text มันถึงจะอ่านค่าที่ยังไม่ได้บันทึกให้
ลองปรับใช้ดูครับ
9 @R20384
ขอบคุณ TTT มากๆครับผม ปรับนิดนึงครับได้ดังนี้ครับ

If IsNull(Me![SearchB].Text) Or (Me![SearchB].Text) & "" = "" Then
        MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"
    End If
   Me.Filter = "MemberID = '" & Me.SearchB.Text & "'"
    Me.FilterOn = True
    Me.Requery
    Me.SearchB = ""


10 @R20385
รบกวนอีกนิดครับ

ตอนที่ผมลองผมก็อบ ตัวเลขทั้งหมดมาวาง มันใช้งานได้นะครับ
แต่พอผมใช้เครื่องยิงบาร์โค้ด มันใช้ไม่ได้ครับ มันกลายเป็นรับตัวเลขที่ละตัว

เช่น ผมก็อบวาง
123456789
แบบนี้ทีเดียวได้

แต่ยิงบาร์โค้ด มันรับค่าแบบนี้ครับ
1
2
3
4
5
6
7
8
9

คือยิงปุบรับค่าและเปลี่ยนแปลงทันที ไม่เหมือนก็อปวางครับผม พอมีวิธีแก้ไหมครับ
11 @R20387
ได้แล้วครับ ผมจับโยกไปที่ after update ครับผม

ขอบคุณทุกๆท่านมากๆครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2525s