ผมเขียนย้าววววววว ยาว แต่พอกด โพสต์แล้วมัน error ข้อความผมหายจ้อยหมดเลย 555 มันเป็นที่อะไรกันล่ะเนี่ย เฮ้อ จะเขียนใหม่ยังไงดีนะ

1 ผมว่า msgbox เราไม่สามารถแก้ขนาด ด้วยโค้ด หรือด้วยอะไรๆ ใน vba ได้ (ยกเว้นการทำผ่าน ฟังก์ชั่น API ซึ่งผมไม่รู้จัก)
ถ้าคุณใช้ window เป็นระบบปฎิบัติการ ค่ารุปแบบและขนาดของตัวหนังสือบน msgbox จะตั้งค่าได้ที่
- คลิ๊กขวาพื้นที่ว่าง Desktop>properties>Appearance>advance>เลือกตัวเลือกในกล่องคอมโบเป็น message box แล้วทำการตั้งค่า

2 ทำฟอร์มขึ้นมาใช้เองครับ มีหน้าที่โผล่ขึ้นมาแจ้ง message อย่างเดียวล้วนๆ เลย แต่งรูปแบบได้ตามใจชอบ เวลาเรียกฟอร์ม ก็ส่งค่า openargs เข้าไปด้วย
Private Sub Form_Open(Cancel As Integer)
label0.caption=OpenArgs
if isnull(OpenArgs) then cancel=true
End sub

เอาแค่นี้ก่อนนะครับ ฮือๆ ยังเสียใจไม่หายเลยรอบแรกพิมพ์ยาว ขั้นตอนละเอียดกว่านี้เยอะเลย

หนูก็เจอปัญหานี้ค่ะ

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/functions/functions_filters.asp, line 37

หนูก็เจอปัญหานี้ค่ะ

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/functions/functions_filters.asp, line 37

ถ้าใช้ 2007 ไป download ตัวอย่างได้ที่
http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/

ถ้าใช้ 2003 กำหนดให้เป็นตัวหนา
สร้าง formatedMsgBox แทน MsgBox (MsgBox จะใช้ไม่ได้นะครับต้องให้ formatedMsgBox แทนทุกตัว)

ผมสร้าง ปุ่มขึ้นมา 1 ปุ่มแล้วใส่

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
FormattedMsgBox "Wrong button!@This button doesn't work.@Try Another.", vbOKOnly + vbExclamation, "My Application"
Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    FormattedMsgBox Err.Description
    Resume Exit_Command0_Click
    
End Sub

Function FormattedMsgBox( _
Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
    If IsMissing(HelpFile) Or IsMissing(Context) Then
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
        """, " & Buttons & ", """ & Title & """)")
    Else
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
        """, " & Buttons & ", """ & Title & """, """ & _
        HelpFile & """, " & Context & ")")
    End If
End Function

โห... ดูแล้วงานใหญ่มากสำหรับหนูนะคะเนี่ย คงต้องใช้แบบเดิมๆต่อไปดีกว่า
แบบว่าไม่กล้าเสี่ยงนะค่ะ

ตอนนี้ยังไม่ได้ใช้ แต่ลองแล้วใช้ได้จริง ๆ ขอบคุณความรู้ดี ๆที่มอบให้ครับ

อาจารย์คะ ถ้าเรานำไปใช้กับ Access ที่ต่างรุ่นกันจะเกิดปัญหาอะไรไหม

ที่นี่มี ให้ download ครับ อาจจะเป็นประโยชน์บ้าง ต้องสมัครสมาชิกก่อนนะครับ
http://www.access-training.org/mainpage/index.php

ลองโหลดมาดูแล้วแต่มันเปิดไม่ได้ค่ะแจ้งประมาณว่าไม่มีแฟ้ม dao2535.tlb ค่ะ

ลองดูตามนี้นะครับไม่แน่ใจเหมือนกัน

ไปที่ Menu-->Macro-->Visual Basic Editor
จะมี Window ของ Visual Basic ขึ้นมาให้
ไปที่ Menu-->Tools-->references
จะมีหน้าต่างใหม่เล็กๆขึ้นมาให้
เอาเครื่องหมาย ถูก ออกจากหัวข้อ "Missing"
เลื่่อนลงไปหา "Microsoft DAO 3.6 Object library"   Clickที่ box ให้ขึ้นเครื่องหมายถูก
ปิด window ทั้งหมด แล้วเปิด program Msg ขึ้นใหม่ครับ

ไปที่ Menu-->Macro-->Visual Basic Editor
จะมี Window ของ Visual Basic ขึ้นมาให้
ไปที่ Menu-->Tools-->references

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

หนูเดาว่า ให้เราใส่ข้อความในช่อง Title และ ในช่อง Message แล้วเลือกส่วนประกอบอื่นที่ต้องการ
จากนั้นระบบจะสร้างประโยคคำสั่งต่างๆ ในช่องด้านล่าง เราก็เพียงแต่ Copy ปะโยคที่ได้ ไปวางไว้ใน Message ของเรา หนูเข้าใจได้ถูกต้องไหมคะ หนทดูลองดูแล้ว มันได้ค่ะ แต่ที่หนูอยากทราบคือว่าเราสามารถปรับขนาดอักษรได้จากตรงไหนคะ เพราลองหาดูแล้วไม่มีค่ะ
แต่เพียงเท่านี้ก็นับมีประโยชน์มากเลยสำหรับมือใหม่อย่างหนู และมือให่ทั่วไปค่ะ
ขอขอบคุณอาจารย์มากๆค่ะ

แฮะๆๆๆ ผมก็เพิ่ง download มาครับยังไม่ได้ลองเลย ถ้าให้ดีไป post ถามใน board
ที่ไป download มาด้วยจะได้คนช่วยเยอะขึ้นนะครับ