การกำหนดรูปแบบวันที่ Textbox เพื่อบันทึกลง Datebase
Posted: Sat Jan 09, 2016 6:33 pm
ผมสร้าง 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
ลองปรับ Code ด้านล่างครับ