สมัครสมาชิก

แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - PNR

หน้า: 1 2 3 [4] 5 6 7 ... 10
49
ลองเพิ่มเติมนิดหน่อยเป็นแบบนี้ครับ

โค๊ด: [Select]
Dim strMSG As String
Dim Mbody As String
strMSG = "ข้อความที่จะแสดง"
Mbody = "<p style=""font-size:32px;""><marquee behavior=""scroll"" direction=""left""> " & strMSG
Me.WebBrowser1.Object.Document.write Mbody

ตรง font-size:32px  กำหนดขนาดได้เลยครับ
ถ้าอยากเพิ่มเติมอะไรเข้าไปเช่นสีของตังอักษรก็ใส่

หรืออยากใส่ลูกเล่นให้เยอะกว่านั้นเช่นกำหนดสีตัวอักษร กำหนดชื่อตัวอักษร กำหนดสีแบลคกราว ก็ใส่

Dim strMSG As String
Dim Mbody As String
strMSG = "ข้อความที่จะแสดง"
Mbody = "<html><head><script language=""javascript"">function noScroll(){document.body.scroll=""no"";}" & _
"</script><STYLE>BODY { border-style:none;}</STYLE></head><body onload=javascript:noScroll(); topmargin=""0"" leftmargin=""0"">" & _
"<body bgcolor=""#ffaeae""><p style=""font-size:32px;color:#FF0000;font-family: courier new"" ><marquee behavior=""scroll"" direction=""left"">" & _
strMSG & _
"</marquee></body></html>"

Me.WebBrowser1.Object.Document.write Mbody


ส่วนสีตัวอักษรอยากได้สีัไหนไปดู Color Hex มาใส่แทนได้เลยที่
https://www.color-hex.com/color/ff0000 link

50
แบบนี้เปล่าครับ

51
ลองดูครับได้ไหม
แก้ชื่อ Control เป็นภาษาอังกฤษดีกว่าครับ

52
ตรง Sub Calcucalte แก้ใหม่เป็นแบบนี้ครับ

โค๊ด: [Select]
Sub Calculate()
Me.Text5 = CDbl(Nz(Me.Text2, 0)) + CDbl(Nz(Me.Text3, 0)) + CDbl(Nz(Me.Text4, 0))
If Val(Me.Text5) > Val(Me.Text1) Then
Me.Text6 = CDbl(Nz(Me.Text1, 0))
Me.Text7 = CDbl(Nz(Me.Text5, 0)) - CDbl(Nz(Me.Text1, 0))
Else
Me.Text6 = CDbl(Nz(Me.Text5, 0))
Me.Text7 = "0"
End If
End Sub

53
text6 ได้จากการคำนวนตรงส่วนไหนครับ

ส่วน text5 โค้ดตามนี้ครับ

โค๊ด: [Select]
Sub Calculate()
Me.Text5 = CDbl(Nz(Me.Text1, 0)) + CDbl(Nz(Me.Text2, 0)) + CDbl(Nz(Me.Text3, 0)) + CDbl(Nz(Me.Text4, 0))
End Sub

Private Sub Text1_AfterUpdate()
Call Calculate
End Sub
Private Sub Text2_AfterUpdate()
Call Calculate
End Sub
Private Sub Text3_AfterUpdate()
Call Calculate
End Sub
Private Sub Text4_AfterUpdate()
Call Calculate
End Sub

54
มีเมนู แบบนี้ไหม

กด ที่ File > ตัวเลือกของ Access > ฐานข้อมูลปัจจุบัน

มันมีให้ตั้งค่า Ribbon และตัวเลือกแถบเครื่องมือ

เอาติ๊ก อนุญาติให้ใช้เมนูแบบเต็ม ออก
เอาติ๊ก อนุญาติให้ใช้เมนูทางลัดเริ่มต้น ออก

ถ้าเมนูภาษาอังกฤษ ลองกด
Office button -> Access Options -> Current Database -> Ribbon and Toolbar Options.
เอาติ๊ก  "Allow Full Menus", "Allow Default Shortcut Menus" และ "Allow Built-In Toolbars" ออกครับ

55
ตรง Menu ทางลัดกำหนดเป็น ไม่ใช่ ก็จะไม่สามารถคลิ๊กขวาได้อีกครับ


File > ตัวเลือกของ Access > ฐานข้อมูลปัจจุบัน

มันมีให้ตั้งค่า Ribbon และตัวเลือกแถบเครื่องมือ

เอาติ๊ก อนุญาติให้ใช้เมนูแบบเต็ม ออก
เอาติ๊ก อนุญาติให้ใช้เมนูทางลัดเริ่มต้น ออก

56
ในคิวรี่ หรือบนฟอร์มครับการนำไปเรียกใช้ทำแบบไหน ถ้าใช้ Dmax วันที่ และ GroupBy รหัสสินค้าก็ได้เหมือนกันครับ
ลองดูตัวอย่างด้านล่างนะครับ เป็นการแสดงผลในคิวรี่ โดยเลือกข้อมูลวันที่ล่าสุด ของกลุ่มรหัส มาแสดง

57
จากกระทู้56 คือชี้ตำแหน่งใน map ได้พิกัด  ในทางกลับกันที่ผมกระทู้คือ ถ้ามีข้อมูลพิกัดของลูกค้าอยู่ใน table แล้ว  เอาพิกัดไป POT ใน google map ดึงพิกัดไปจาก table ไปปักมุด

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

58
ห้อง MS Access / : DLookup บนฟอร์มโดยใช้โค้ด
« เมื่อ: 22 ต.ค. 62 , 14:10:53 »
ผมชื่นชมการตั้งกระทู้แบบนี้ครับ
มีการตั้งโจทย์สอบถามเป็นขั้นเป็นตอนมีการยกตัวอย่างด้วยรูป
และบอกถึงปัญหาที่พบ หรือ ผลลัพธ์ที่อยากได้ อย่างชัดเจนง่ายต่อการตอบมากๆ ครับ  :grin: :grin:
ท่านอื่นถ้าสะดวก ตั้งกระทู้แบบนี้จะดีต่อผู้ตอบและคนตอบจะได้คำตอบที่รวดเร็วครับ

59
เดี่ยวผมลองสร้างตัวอย่างให้ครับ

60
ห้อง MS Access / : DLookup บนฟอร์มโดยใช้โค้ด
« เมื่อ: 22 ต.ค. 62 , 10:27:02 »
แก้เป็น
โค๊ด: [Select]
Me.PackPerPallet = DLookup("[PackQuantity]", "[Packing]", "Number='" & [SizeOfCarton] & "'")

61
ห้อง MS Access / : Access Runtime 2013ติดปัญหาครับ
« เมื่อ: 17 ต.ค. 62 , 15:49:20 »
อ้างถึง
เราจะเช็ค Reference library ของ VBA ได้อย่างไรครับ
กดเข้าหน้าเขียนโค้ด กด Alt+F11 เลือก Tool > Reference




อ้างถึง
และจะ Enable All Macro ตรง Trust Center Setting ได้อย่างไรครับ
ลองดูกระทู้นี้ครับ วิธีเปิด macro
https://www.thai-access.com/index.php?topic=375.msg1562#msg1562

62
เจอ กระทู้ที่ 98 ของ อจ.PNR ใช้แบบกำหนด tag เป็นกลุ่ม click แล้ว in-visible ถ้าจะให้ visible เหมือนเดิม ต้องให้ true ตรงไหน
Private Sub Command321_Click()
 Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "Group1" Then
                ctl.Visible = False
     
        End If
        Next ctl
End Sub

แก้เป็นแบบนี้ครับ ถ้าแสดงอยู่ก็ให้ซ่อน ถ้าซ่อนอยู่ก็ให้แสดง Group1 คือชื่อของ Tag สามารถตั้งชื่อได้ตามความต้องการ
โค๊ด: [Select]
Private Sub Command6_Click()
 Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "Group1" And ctl.Visible = False Then
                ctl.Visible = True
        ElseIf ctl.Tag = "Group1" And ctl.Visible = True Then
                ctl.Visible = False
        End If
        Next ctl
End Sub

หรือจะสร้าง Toggle แบบไอเดียคุณ nonc31 ก็น่าจะสะดวกดีครับเช่น
ผมสมมุติ ชื่อ Toggle ชื่อ Toggle13

โค๊ด: [Select]
Private Sub Toggle13_Click()
    Dim ctl As Control
    For Each ctl In Me
If ctl.Tag = "Group1" And Me.Toggle13 Then
                ctl.Visible = True
        ElseIf ctl.Tag = "Group1" And Not Me.Toggle13 Then
                ctl.Visible = False
        End If
        Next ctl
End Sub

63
ใช้การป้อนข้อมูลจาก Combobox แล้ว แสดง ListBox มาเลือกรายการให้กับ Combobox มันจะสามารถใช้ Scroll Mouse ได้

64
ไม่มีไฟล์ที่แนบมาครับ ลองตรวจเช็คดู

หน้า: 1 2 3 [4] 5 6 7 ... 10