กระทู้เก่าบอร์ด อ.Yeadram
1,105 2
URL.หัวข้อ /
URL
รบกวนช่วยดูโค้ด IF ด้วยครับ
คือผมมีฟอร์มอยู่แล้วต้องการเมื่อกด SAVE RECORD แล้วก็ทำการ SAVE RECORD แต่ถ้าเราไม่กรอกรหัสพนักงานมันจะไม่SAVEให้
ในปุ่มSAVE ผมเขียนโค้ดนี้ไว้ครับ
Dim nr 'จำนวนที่นับได้
Dim sa 'รหัสที่ป้อนลงในฟิลด์
sa = Me.TxtCode
DoCmd.RunCommand acCmdSaveRecord
nr = DCount("[Code]", "Data", sa & "=[Code]") >>>> Erorตรงนี้ครับ
If nr >= 1 Then
MsgBox "จำนสนที่บันทึก" & nr & "ครั้ง"
End If
รูปนี้เป็นตารางของฟอร์มข้างบนครับ
ที่ผมต้องการคือช่วยแก้โค้ดข้างบนให้มันสามารถที่กด SAVE ได้ แม้ว่าเราไม่ได้กรอกรหัสพนักงานกับชื่อพนักงานอ่ะครับ
ขอบคุร่วงหน้าครับ
ในปุ่มSAVE ผมเขียนโค้ดนี้ไว้ครับ
Dim nr 'จำนวนที่นับได้
Dim sa 'รหัสที่ป้อนลงในฟิลด์
sa = Me.TxtCode
DoCmd.RunCommand acCmdSaveRecord
nr = DCount("[Code]", "Data", sa & "=[Code]") >>>> Erorตรงนี้ครับ
If nr >= 1 Then
MsgBox "จำนสนที่บันทึก" & nr & "ครั้ง"
End If
รูปนี้เป็นตารางของฟอร์มข้างบนครับ
ที่ผมต้องการคือช่วยแก้โค้ดข้างบนให้มันสามารถที่กด SAVE ได้ แม้ว่าเราไม่ได้กรอกรหัสพนักงานกับชื่อพนักงานอ่ะครับ
ขอบคุร่วงหน้าครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R16371
รูปฟอร์มผิดครับ รแก้ไขรูปภาพอันแรกครับ
2 @R16376
ไม่เข้าใจความต้องการคุณนะครับ แต่ที่เห็นๆคือ
nr = DCount("[Code]", "Data", sa & "=[Code]")
น่าจะต้องเปลี่ยนเป็น
nr = DCount("[Code]", "Data", "[Code] = " & sa)
nr = DCount("[Code]", "Data", sa & "=[Code]")
น่าจะต้องเปลี่ยนเป็น
nr = DCount("[Code]", "Data", "[Code] = " & sa)
Time: 0.2823s