insert เข้า field เดียว num_sort
กระทู้เก่าบอร์ด อ.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
ช่วยหน่อยครับ

5 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R04494
คุณสั่งมันว่า..
ถ้าช่อง num เป็นค่าว่าง และ ช่อง level เป็นค่าว่าง จะยกเลิกการทำงาน

แล้วถ้า ช่อง num เป็นค่าว่าง แต่ ช่อง level เป็นค่า ไม่ ว่าง คุณคิดว่ามันจะยังทำงานหรือเปล่า?

แล้วถ้า ช่อง num ไม่เป็นค่าว่าง แต่ ช่อง level เป็นค่า ว่าง คุณคิดว่ามันจะยังทำงานหรือเปล่า?

คุณว่า ข้อมูลถูกบันทึกเข้าเฉพาะช่อง num แต่ช่อง level ไม่ได้ถูกบันทึก คุณแน่ใจแล้วหรือไม่ว่า ในช่อง level มันมีข้อมูลอยู่?

ในเงื่อนไขที่คุณสั่งให้มันตรวจ   ควรใช้ And หรือ Or ?
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

พอดีลองมาประยุกต์ใหม่นิดหน่อยครับ
5 @R04576
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3962s