- ปัจจุบันนี้ Router แทบจะทุกยี่ห้อ,ทุกรุ่นจะมีให้เปิดใช้งาน Dynamic DNS และ Forward Port ได้หมดครับ

- เมื่อ IP ของ Router มีการเปลี่ยนแปลง DDNS Service จะทำการตรวจสอบและเปลี่ยนแปลงให้เองโดยอัตโนมัติครับ(ประมาณ 5-10นาที / NoIP แบบฟรี)
ปล.บางครั้ง IP ที่ Router อาจจะไม่ตรงกับที่ออกเน็ตจริง(ผู้ให้บริการดักใว้)เราต้องติดต่อผู้ให้บริการที่เราใช้แล้วแจ้งว่าเลขไอพีไม่ตรงให้เขาทำการแก้ด้วยครับ(แนวว่าเราจะทำลิ้งดูกล้องวงจรปิด)

- IP ที่ Router ได้รับสามารถเข้าไปดูที่ตัว Router ของเราเช่นในหน้าต่าง Status > WAN Information
- IP ที่ออกเน็ตจริงหาตรวจสอบจากเว็บเช่น https://checkip.thaiware.com/ ครับ

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

ขอมีส่วนร่วมด้วยครับ...ผมขอซื้อ Access 2010 The Missing Manual 1 เล่มครับ...ขอบคุณครับ

ขอจอง 2. ความทรงจำสีแดง 100 บาท ครับผม

ภาพชุดแรกมีหนังสือดังนี้

1. 3 เล่มบนเป็นหนังสือต่างประเทศ ขายเล่มละ 100 บาท
2. ความทรงจำสีแดง 100 บาท
3. After Earth 140 บาท
4. เลโมนี สนิกเก็ต 100 บาท
5. ชิโกะกุ 90 บาท
6. รูจ รักหลงเงา 85 บาท
7. พาราไซต์อีฟ 110 บาท
8. สไปรัล 100 บาท
9. การตูนเรื่อง Orange พันธุ์เตะเลือดสีส้ม ขายยกชุด 130 บาท

ราคาทั้งหมดไม่รวมค่าส่งนะครับ
รายได้ทั้งหมด (หักค่าส่งแล้ว) จะส่งให้กับ Web Master เมื่อปิดการขายแล้ว

ท่านใดสนใจเล่มไหน ชุดไหน สามารถสั่งซื้อได้ในกระทู้นี้ครับ

โดยปกตินั้นเราจะใช้ Query ในการเชื่อมหรือผูกชุดข้อมูลถึงกันเช่น เราเชื่อมรหัสลูกค้าจากใบสั่งซื้อ --> รหัสลูกค้าจากบัญชีรายชื่อ ก็จะได้ข้อมูลเป็นเลขที่ใบสั่งซื้อ,ชื่อ-ที่อยู่ผู้ซื้อ,ราคา,ฯลฯ เป็นต้น(ข้อมูลต่อกันในแนวนอน)

กลับไปที่หัวข้อการใช้ UNION Query นั้นจะเป็นการนำข้อมูลมารวมต่อกันในแนวตั้งลงมาตัวอย่างเช่น เราอยากรู้ว่าทัั้งรายชื่อผู้ขาย(เซล),รายชื่อผู้ซื้อ(ลูกค้า),รายชื่อติดต่ออื่นๆนั้นมีใครบ้างนั้นเราก็ใช้ UNION Query จับมารวมกัน หรือถ้าอย่างผมมีตารางเก็บใบสั่งซื้อแยกปีแต่อยากรู้ว่าตั้งแต่ปี 59,60,61,62 ถ้ารวมกันแล้วมีค่าเท่าไหร่ หรือมากรองว่าลูกค้าคนนี้ทั้งหมดแล้วซื้ออะไรไปบ้างทั้งที่ข้อมูลอยู่คนล่ะตารางกันเป็นต้นครับ

อธิบายมาซะยาวมาถึงวิธีการนำไปใช้งานนั้นสามารถชมคลิปตัวอย่างจากทาง microsoft ได้เลยครับผม -->Watch an example of building a union query


ที่มา Use a union query to combine multiple queries into a single result

1. ผมต้องการทำเลขบอกลำดับด้านหน้า Record บนคล้าย Continuous Form คล้ายๆกับ Running Sum บน Report จะมีวิธีการทำอย่างไร? (ตามภาพ)

ขั้นตอนที่ 1 สร้าง Module เอา โค้ดนี้ใส่เข้าไป
Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
   
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
   
Exit_RowNum:
    Exit Function
   
Err_RowNum:
    If Err.Number <> 3021& Then
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function
ขั้นตอนที่ 2 สร้าง textbox ชื่อ No ที่ ControlSource ใส่ ว่า =RowNum([Form])


ลำดับก็จะรันอัตโนมัติครับ

2. ผมทำช่องให้กรอกช่วงเวลาที่ต้องการค้นหา Record(Search by Date Rage) เอาไว้ครับ(ตามภาพ)

แก้โค้ดเป็นแบบนี้ดูครับ ใช้การกำหนด Sql แทน แก้ชื่อ Form1 เป็นชื่อฟอร์มของคุณด้วยนะครับ
Sub Search()
Dim Sql As String
 If IsNull(Me.txtDateFrom) Or IsNull(Me.txtDateTo) Then
    MsgBox "Please enter the date range", vbInformation, "Date Range Required"
    Me.txtDateFrom.SetFocus
    Sql = "SELECT * FROM qryTransactions ORDER BY qryTransactions.TransactionsDate;"
        Else
    Sql = "SELECT * FROM qryTransactions  WHERE (((qryTransactions.[TransactionsDate]) Between forms!Form1!txtDateFrom And forms!Form1!txtDateTo)) ORDER BY qryTransactions.TransactionsDate;"       
End If
        Me.Form.RecordSource = Sql       
End Sub

3. ผมต้องการให้แสดงผลลัพธ์ทั้งหมดที่ค้นหาได้ ตามภาพด้านบน จะมีแนวทางเขียนโค้ดอย่างไร

ผมสมมัติสร้าง textbox ไว้เก็บจำนวน Record ชื่อ txt_TotalRecordSearch
เวลาเราจะเรียกใช้ก็นำไปรวมกับ คำสั้งค้นหาวันที่ แบบนี้คับ
Sub Search()
Dim Sql As String
Dim FormRecCount  As Long
 If IsNull(Me.txtDateFrom) Or IsNull(Me.txtDateTo) Then
    MsgBox "Please enter the date range", vbInformation, "Date Range Required"
    Me.txtDateFrom.SetFocus
    Sql = "SELECT * FROM qryTransactions ORDER BY qryTransactions.TransactionsDate;"
        Else
    Sql = "SELECT * FROM qryTransactions  WHERE (((qryTransactions.[TransactionsDate]) Between forms!Form1!txtDateFrom And forms!Form1!txtDateTo)) ORDER BY qryTransactions.TransactionsDate;"       
End If
        Me.Form.RecordSource = Sql
        Me.txt_TotalRecordSearch.ControlSource = "=Count(No)"
End Sub
ตัวอย่างด้านล่างนะครับ

อื่ม! ผมว่าส่วนสำคัญคือ scorebar Vertical ที่หายไป ทำไมหายไป กำหนด Property แล้วไม่ขึ้น? ต้องแก้ไขให้มันแสดงขึ้นมาดีกว่าครับ เพราะมันเป็นส่วนสำคัญของซับฟอร์มเลย ถ้าไม่มีจะใช้งานยาก

เสริมนิด เป็นทางเลือกนะครับ ถ้าเป็น VBA7 (ต่ำกว่านี้ไม่รู้ว่ามีป่าวนะ) ใช้คำสั่ง FileCopy("พาธชื่อไฟล์ต้นฉบับ", "พาธชื่อไฟล์ปลายทาง") ในการก๊อปปี้ไฟล์แบบง่ายๆ ได้เหมือนกัน
ข้อเสียคือ
1. ไม่มีตัวเลือกก๊อปปี้ทับไฟล์ชื่อซ้ำกันหรือไม่ จะเป็นการทับอย่างเดียว (หากเป็นงานที่ทับไฟล์เดิมอยู่แล้วก็ใช้ได้เลย)
2. ไม่รองรับอักษร Grave Accent เช่น è, à, Juné.jpg อย่างนี้คำสั่งจะไม่พบไฟล์