การแก้ไข code ของ visual basic ที่ design form
กระทู้เก่าบอร์ด อ.Yeadram

 2,223   3
URL.หัวข้อ / URL การแก้ไข code ของ visual basic ที่ design form

ผมต้องการแก้ไข code ใน event click ของ button1 เช่น

sub button1_click
    ...
    ...
    me.txt1.value = "ABC"
    ...
    ...
end sub

1. ผมจะไปแก้ไข ค่า "ABC" เป็น "XYZ" ในบรรทัดที่ 3 ได้ไหมครับ

2. ถ้าได้ผมจะแทรกบรรทัด เข้าไปบรรทัดที่ 4 โดยอาจจะเพิ่ม code เข้าไปเองได้ไหมครับ

ไม่รู้คำถามนี้โดนไหมครับ โดยเฉพาะคุณ U&ME
โดย: man เมื่อ: 7 มี.ค. 2554 , 21:09

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

1 @R08449
ตอบคร่าว ๆ ไว้่ก่อนเพื่อให้มีความหวัง
------------------------------------------
เคยเจอเหตุการณ์แบบนี้ครับ ประมาณว่าเราเขียนโค้ดไว้แล้ว
แต่ในตอนรันโปรแกรมอยากให้มันเปลี่ยนบรรทัดคำสั่งที่เราเขียนเอาไว้ไปเป็นอย่างอื่น
โดยไม่ต้องเข้าไปแก้ไขใน Editor (หรือพูดง่าย ๆ ก็คือสั่งให้ เพิ่ม ลบ แทรก แก้ไข โค้ดใน Module ว่างั้น)

เคยอ่านเจอใน Help ของ MS Access แหละครับถ้าจำไม่ผิด แต่ผมเองก็ไม่ได้เอาไปใช้ จึงตอบตอนนี้ไม่ได้

ไม่งั้นก็เอาวิธีแก้คันไปก่อน โดยการกำหนดในส่วนของ "ABC" ให้อยู่ในรูปของตัวแปร ซึ่งตัวแปรจะเท่ากับอะไรก็ได้ที่เราอยากให้มันเป็น
ตัวอย่างเ่ช่น ถ้าวันนี้เลขที่บิลขึ้นต้นด้วยอักขระ ABC แต่วันพรุ่งนี้อยากให้มันเป็น XYZ ก็กำหนดให้มันไปอ่านค่าจากที่ที่เราเก็บไว้ก็ได้
โดย: U&ME เมื่อ: 7 มี.ค. 2554 , 21:28
2 @R08450
งั้นรอแล้วกันนะครับ เผอิญต้องแก้ตรงๆที่โค้ดเลยครับ

โดย: man เมื่อ: 7 มี.ค. 2554 , 23:24
3 @R08453
ผมไปค้นจากที่ผมเคยเขียนไว้ในโค้ด เพิ่มคอนโทรล

แล้วเอามาประยุกต์ดูให้ครับ
ลองดูว่าไปต่อได้ไหม

Sub testfo()
Dim frm As Form
Dim mdl As Module
Dim mdlLine As Long

'DoCmd.OpenForm "Form1", acDesign
Set frm = Forms("Form1")
Set mdl = frm.Module

mdlLine = mdl.ProcStartLine("Command0_Click", 0)
mdl.DeleteLines mdlLine + 3, 1
mdl.InsertLines mdlLine + 3, "msgbox ""Insert Line 4"""
mdl.InsertLines mdlLine + 4, "me.text1 = ""ABC"""
DoCmd.Close acForm, frm.Name, acSaveYes

Set frm = Nothing
Set mdl = Nothing
End Sub
โดย: yeadram เมื่อ: 8 มี.ค. 2554 , 07:27
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3311s