Excel Forum

ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/

รับค่าวันที่ที่ไม่มีในปฎิทินแล้ว Error

https://snasui.com/viewtopic.php?t=14372

Page 1 of 1

รับค่าวันที่ที่ไม่มีในปฎิทินแล้ว Error

Posted: Mon Nov 05, 2018 9:05 am
by apforever
สวัสดีครับ
ผมเขียนให้ Textbox รับค่าเข้ามาเป็นวันที่แล้ว ที่นี้ติดปัญหาตรงที่ว่าเวลารับค่าวันที่ที่ไม่มีในปฎิทิน เช่น 32/10/2018 เป็นต้น โปรแกรมจะขึ้น Error อยากทราบมีมีวิธีแก้ได้อย่างไรครับ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy") Then
MsgBox "please input format : dd/mm/yyyy"
TextBox2.Text = ""
TextBox2.SetFocus
Else
    Dim date1 As Date
    date1 = TextBox2.Text
    If date1 < Date Then
    MsgBox "Part Number : " & TextBox1 & " is expire"
    TextBox2.Text = ""
    TextBox2.SetFocus
    Else
    MsgBox "Part Number : " & TextBox1 & " is not expire"
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox1.SetFocus
    End If
End If
End Sub

Re: รับค่าวันที่ที่ไม่มีในปฎิทินแล้ว Error

Posted: Mon Nov 05, 2018 12:37 pm
by puriwutpokin
apforever wrote: Mon Nov 05, 2018 9:05 am สวัสดีครับ
ผมเขียนให้ Textbox รับค่าเข้ามาเป็นวันที่แล้ว ที่นี้ติดปัญหาตรงที่ว่าเวลารับค่าวันที่ที่ไม่มีในปฎิทิน เช่น 32/10/2018 เป็นต้น โปรแกรมจะขึ้น Error อยากทราบมีมีวิธีแก้ได้อย่างไรครับ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy") Then
MsgBox "please input format : dd/mm/yyyy"
TextBox2.Text = ""
TextBox2.SetFocus
Else
    Dim date1 As Date
    date1 = TextBox2.Text
    If date1 < Date Then
    MsgBox "Part Number : " & TextBox1 & " is expire"
    TextBox2.Text = ""
    TextBox2.SetFocus
    Else
    MsgBox "Part Number : " & TextBox1 & " is not expire"
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox1.SetFocus
    End If
End If
End Sub
ลองแทรกตัวนี้ใต้ หัวโค้ด

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
'Other Code...

Re: รับค่าวันที่ที่ไม่มีในปฎิทินแล้ว Error

Posted: Mon Nov 05, 2018 1:10 pm
by apforever
puriwutpokin wrote: Mon Nov 05, 2018 12:37 pm
apforever wrote: Mon Nov 05, 2018 9:05 am สวัสดีครับ
ผมเขียนให้ Textbox รับค่าเข้ามาเป็นวันที่แล้ว ที่นี้ติดปัญหาตรงที่ว่าเวลารับค่าวันที่ที่ไม่มีในปฎิทิน เช่น 32/10/2018 เป็นต้น โปรแกรมจะขึ้น Error อยากทราบมีมีวิธีแก้ได้อย่างไรครับ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy") Then
MsgBox "please input format : dd/mm/yyyy"
TextBox2.Text = ""
TextBox2.SetFocus
Else
    Dim date1 As Date
    date1 = TextBox2.Text
    If date1 < Date Then
    MsgBox "Part Number : " & TextBox1 & " is expire"
    TextBox2.Text = ""
    TextBox2.SetFocus
    Else
    MsgBox "Part Number : " & TextBox1 & " is not expire"
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox1.SetFocus
    End If
End If
End Sub
ลองแทรกตัวนี้ใต้ หัวโค้ด

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
'Other Code...
ได้แล้วครับ ขอบคุณครับ
ความหมายของโค้ดนี้คือทำงานต่อไปโดยที่ไม่สนใจ error ใช่มั้ยครับ

Re: รับค่าวันที่ที่ไม่มีในปฎิทินแล้ว Error

Posted: Mon Nov 05, 2018 1:21 pm
by puriwutpokin
apforever wrote: Mon Nov 05, 2018 1:10 pm
puriwutpokin wrote: Mon Nov 05, 2018 12:37 pm
apforever wrote: Mon Nov 05, 2018 9:05 am สวัสดีครับ
ผมเขียนให้ Textbox รับค่าเข้ามาเป็นวันที่แล้ว ที่นี้ติดปัญหาตรงที่ว่าเวลารับค่าวันที่ที่ไม่มีในปฎิทิน เช่น 32/10/2018 เป็นต้น โปรแกรมจะขึ้น Error อยากทราบมีมีวิธีแก้ได้อย่างไรครับ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy") Then
MsgBox "please input format : dd/mm/yyyy"
TextBox2.Text = ""
TextBox2.SetFocus
Else
    Dim date1 As Date
    date1 = TextBox2.Text
    If date1 < Date Then
    MsgBox "Part Number : " & TextBox1 & " is expire"
    TextBox2.Text = ""
    TextBox2.SetFocus
    Else
    MsgBox "Part Number : " & TextBox1 & " is not expire"
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox1.SetFocus
    End If
End If
End Sub
ลองแทรกตัวนี้ใต้ หัวโค้ด

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
'Other Code...
ได้แล้วครับ ขอบคุณครับ
ความหมายของโค้ดนี้คือทำงานต่อไปโดยที่ไม่สนใจ error ใช่มั้ยครับ
ใช่ครับ

Re: รับค่าวันที่ที่ไม่มีในปฎิทินแล้ว Error

Posted: Mon Nov 05, 2018 1:23 pm
by apforever
puriwutpokin wrote: Mon Nov 05, 2018 1:21 pm
apforever wrote: Mon Nov 05, 2018 1:10 pm
puriwutpokin wrote: Mon Nov 05, 2018 12:37 pm

ลองแทรกตัวนี้ใต้ หัวโค้ด

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
'Other Code...
ได้แล้วครับ ขอบคุณครับ
ความหมายของโค้ดนี้คือทำงานต่อไปโดยที่ไม่สนใจ error ใช่มั้ยครับ
ใช่ครับ
ขอบคุณครับ :thup:

Re: รับค่าวันที่ที่ไม่มีในปฎิทินแล้ว Error

Posted: Mon Nov 05, 2018 1:45 pm
by apforever
เอาโค้ดมาแชร์ครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox2.Text = "" Then
MsgBox "please input format : dd/mm/yyyy"
TextBox2.Text = ""
TextBox2.SetFocus
Else
    If TextBox2.Text <> Format(TextBox2.Text, "dd/mm/yyyy") Then
    MsgBox "please input format : dd/mm/yyyy"
    TextBox2.Text = ""
    TextBox2.SetFocus
    Else
        On Error GoTo error1
        Dim date1 As Date
        date1 = TextBox2.Text
        If date1 < Date Then
        MsgBox "Part Number : " & TextBox1 & " is expire"
        TextBox2.Text = ""
        TextBox2.SetFocus
        Exit Sub
        Else
        MsgBox "Part Number : " & TextBox1 & " is not expire"
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.SetFocus
        Exit Sub
error1: MsgBox "not today in calendar"
        TextBox2.Text = ""
        TextBox2.SetFocus
        End If
    End If
End If
End Sub
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited