การกำหนดรูปแบบวันที่ Textbox เพื่อบันทึกลง Datebase

[imomotaro]

ผมสร้าง User form เพื่อบันทึกข้อมูล โดย TextBox1 เก็บข้อมูลวันที่ ผมต้องการบันทึกเป็นรูปแบบ วัน/เดือน/ปี พอบันทึกเป็นแล้ว จะเป็นรูปแบบ เดือน/วัน/ปี ตัวอย่างการพิมพ์ 4/1/2016 แต่ผลเป็น 1/4/2016 ผมต้องแก้ตรงไหนครับรบกวนด้วยครับ

Code: Select all

Private Sub CommandButton1_Click()
Dim r As Long
    With Sheets("fdata")
        r = .Range("a" & Rows.Count).End(xlUp).Row + 1
        If Len(TextBox3.Text) = 9 Then
            .Cells(r, 1) = Format(TextBox1.Value, "dd/mm/yyyy")
            .Cells(r, 2) = TextBox2.Text
            .Cells(r, 3) = TextBox3.Text
             MsgBox "ºÑ¹·Ö¡¢éÍÁÙÅáÅéÇ"
        Else
            MsgBox "Serial äÁè¶Ù¡µéͧ ¡ÃسҡÃÍ¡ãËÁè"
       End If
      End With
End Sub

[snasui]

ลองปรับ Code ด้านล่างครับ

จาก .Cells(r, 1) = Format(TextBox1.Value, "dd/mm/yyyy") ปรับเป็น .Cells(r, 1) = WorksheetFunction.Text(TextBox1.Value, "dd/mm/yyyy")

[imomotaro]

ได้แล้วครับ ขอบคุณมากครับ