กระทู้เก่าบอร์ด อ.Yeadram
1,221 5
URL.หัวข้อ /
URL
insert เข้า field เดียว num_sort
Private Sub Label15_Click()
DoCmd.SetWarnings False
If (IsNull(Me![txtnum]) And IsNull(Me![txtlevel])) Then
Cancel = True
MsgBox "fail"
Else
DoCmd.RunSQL "insert into tbl_edu_level(num_sort, edu_level) values('" & Me![txtnum] & "', '" & Me![txtlevel] & "')"
Me.sub_edu_level.Form.Requery
Me.txtnum.Value = Null
Me.txtlevel.Value = Null
End If
End Sub
---
insert เข้า field เดียว num_sort
ช่วยหน่อยครับ
DoCmd.SetWarnings False
If (IsNull(Me![txtnum]) And IsNull(Me![txtlevel])) Then
Cancel = True
MsgBox "fail"
Else
DoCmd.RunSQL "insert into tbl_edu_level(num_sort, edu_level) values('" & Me![txtnum] & "', '" & Me![txtlevel] & "')"
Me.sub_edu_level.Form.Requery
Me.txtnum.Value = Null
Me.txtlevel.Value = Null
End If
End Sub
---
insert เข้า field เดียว num_sort
ช่วยหน่อยครับ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R04495
มีโค้ดมาให้ แล้วมีประโยคบอกเล่าสั้นๆ อ่านไม่รู้เรื่องเลยครับว่า คำถามคืออะไร ?
โปรดเขียนอธิบายรายละเอียด ใช้ภาษาที่เหมาะสม การเขียนต่างจากการพูด เพราะการพูดยังสามารถมีน้ำเสียง ถ้าเห็นตัวด้วย ก็จะมีภาษากายเพิ่มมาอีก ทำให้การสื่อสารระหว่างกันสามารถเข้าใจได้มากขึ้น แต่การเขียนอย่างเดียว จะให้คนอื่นเข้าใจ ต้องมีรายละเอียดนะครับ เขียนเองแล้วลองอ่านเอง ถามตัวเองว่าถ้าเป็นคนอื่นที่ไม่รู้ที่มาที่ไปของปัญหานี้เลย เมื่ออ่านแล้วจะเข้าใจไหม
โปรดเขียนอธิบายรายละเอียด ใช้ภาษาที่เหมาะสม การเขียนต่างจากการพูด เพราะการพูดยังสามารถมีน้ำเสียง ถ้าเห็นตัวด้วย ก็จะมีภาษากายเพิ่มมาอีก ทำให้การสื่อสารระหว่างกันสามารถเข้าใจได้มากขึ้น แต่การเขียนอย่างเดียว จะให้คนอื่นเข้าใจ ต้องมีรายละเอียดนะครับ เขียนเองแล้วลองอ่านเอง ถามตัวเองว่าถ้าเป็นคนอื่นที่ไม่รู้ที่มาที่ไปของปัญหานี้เลย เมื่ออ่านแล้วจะเข้าใจไหม
3 @R04574
insert ได้แล้วครับ
ขอบคุณครับ
ขอบคุณครับ
4 @R04575
Private Sub Command18_Click()
If IsNull(Text0.Value) Then
Cancel = True
MsgBox "¡ÃسҡÃÍ¡¢éÍÁÙÅãËé¶Ù¡µéͧ...", vbOKOnly, "check data.."
DoCmd.GoToControl "Text0"
Else
Dim frm As Form, ctl As Control, sfrm As Form
Dim curY As Currency
Dim t1 As Currency
DoCmd.SetWarnings False
curY = DMax("[num_sort]", "tbl_edu_level")
txt_num = curY + 1
DoCmd.RunSQL "insert into tbl_edu_level(num_sort,edu_level) values(txt_num,Text0)"
Set frm = Forms("frm_edu_level")
Set ctl = frm.Controls("sub_edu_level")
Set sfrm = ctl.Form
sfrm.Requery
Me.Text0.Value = Null
curY = DMax("[num_sort]", "tbl_edu_level")
Me.txt_num.Value = curY + 1
End If
End Sub
พอดีลองมาประยุกต์ใหม่นิดหน่อยครับ
If IsNull(Text0.Value) Then
Cancel = True
MsgBox "¡ÃسҡÃÍ¡¢éÍÁÙÅãËé¶Ù¡µéͧ...", vbOKOnly, "check data.."
DoCmd.GoToControl "Text0"
Else
Dim frm As Form, ctl As Control, sfrm As Form
Dim curY As Currency
Dim t1 As Currency
DoCmd.SetWarnings False
curY = DMax("[num_sort]", "tbl_edu_level")
txt_num = curY + 1
DoCmd.RunSQL "insert into tbl_edu_level(num_sort,edu_level) values(txt_num,Text0)"
Set frm = Forms("frm_edu_level")
Set ctl = frm.Controls("sub_edu_level")
Set sfrm = ctl.Form
sfrm.Requery
Me.Text0.Value = Null
curY = DMax("[num_sort]", "tbl_edu_level")
Me.txt_num.Value = curY + 1
End If
End Sub
พอดีลองมาประยุกต์ใหม่นิดหน่อยครับ
5 @R04576
Time: 0.3962s
ถ้าช่อง num เป็นค่าว่าง และ ช่อง level เป็นค่าว่าง จะยกเลิกการทำงาน
แล้วถ้า ช่อง num เป็นค่าว่าง แต่ ช่อง level เป็นค่า ไม่ ว่าง คุณคิดว่ามันจะยังทำงานหรือเปล่า?
แล้วถ้า ช่อง num ไม่เป็นค่าว่าง แต่ ช่อง level เป็นค่า ว่าง คุณคิดว่ามันจะยังทำงานหรือเปล่า?
คุณว่า ข้อมูลถูกบันทึกเข้าเฉพาะช่อง num แต่ช่อง level ไม่ได้ถูกบันทึก คุณแน่ใจแล้วหรือไม่ว่า ในช่อง level มันมีข้อมูลอยู่?
ในเงื่อนไขที่คุณสั่งให้มันตรวจ ควรใช้ And หรือ Or ?