เรียนอาจารย์

         ผมต้องการทำปุ่มCMD  เพื่อลบข้อมูลที่พิว F1 ลบทุกRecord คือลบเฉพาะพิวนี้นะครับ ที่ตาราง T1 จะเขียนคำสั่งยังไงครับ
เข้าใจว่าน่าจะเป็น SQL  Update หรือเปล่าครับ ลบกวนแนะนำด้วยครับ

ขอบคุณมากครับ

สอบถามอาจารย์ครับ
ผมจะทำการเลือกข้อมูลจากตารางT1 ไปยัง T2 ดังรูปครับ
โดยมีเงื่อนไขว่า
ให้เอาชื่อที่ไม่ซ้ำกัน  หากซ้ำกันให้เอา ID ล่าสุดหรือ IDที่มากที่สุดครับ

ขอบคุณครับ

เรียนท่านอาจารย์

กระผมมีตาราง T1  มีฟิวชื่อ F1
ที่ F1 มีค่าดังนี้

AB01
AB02
BC01
BC02
AB03
AB06
CA01
CA02

ประมาณนี้ คือถ้าผมต้องการหาค่าโดยมากที่สุดที่ ขึ้นต้นด้วย AB จะเขียนสูตรยังไงครับ
เดิมผมใช้ Query กรองออกมาก่อนทีละหมวด แล้วค่อยแยกเอาตัวหนุงสือ ออกจากตัวเลข แลัวค่อยคำนวณหาค่ามากครับ
พอจะ Code เรียกหาค่ามากแบบมีเงื่อนไขหรือไม่ครับ
ขอบคุณครับ

เรียนอาจารย์
              ผมเขียน Insert Into มี Form หลัก และ Form ย่อย และผมเขียน Codeที่SubForm ครับ แต่มัน Error 2465 ดูจาก Error คนหาดูเขาว่าผมเรียกใช้ที่ SubForm แต่ประกาศที่ Form หลัก ถ้าผมจะใช้จะแก้อย่างไรครับ น่าจะเปลี่ยนตรงนี้Me.Name แต่จะเขียนเช่นไรครับ

DoCmd.SetWarnings False
DoCmd.GoToRecord acDataForm, Me.Name, acFirst
DoCmd.RunSQL "Insert into TB_Main2([CodeID], [CalibrationDate],[NaxtDateCalibration],[Frequency],[LocationCalibration]) values('" & CodeID & "', '" & CalibrationDate & "','" & NaxtDateCalibration & "','" & Frequency & "','" & LocationCalibration & "')"
DoCmd.SetWarnings True


ขอบคุณมากครับ

สวัสดีอาจารย์ทุกท่านครับ

            ผมขอสอบถามอาจารย์เรื่องเช็คบ๊อก(Checkbox)ครับว่าจะสามารถให้ใส่ค่า True False อัตโนมัติได้หรือไม่ครับ
เช่นที่ตาราง TB1 มีพิวส์ 3 พิวส์   
         Tx1  เก็บค่า 1 และ 2 
         Ch1  เป็น CheckBox เก็บค่าเมื่อ Tx1="1" ให้=True ถ้าไม่ใช่ให้ = False
         Ch2  เป็น CheckBox เก็บค่าเมื่อ Tx1="2" ให้=True ถ้าไม่ใช่ให้ = False

ให้ในตาราง หรือ Query ก็ได้ครับ
ผมมองออกใกล้เคียงที่Criterir ตรง Query ใส่ Iff([Tx1],True,False) แต่ตรง True,False ใส่อะไรครับมันไม่ยอมติดถูกให้

ปกติผมให้รับค่าจาก Form เลย แต่อยากให้เปลี่ยนค่าเองเพราะกรณีผมเข้าไปแก้ที่ตารางตรงๆ
อยากให้มันเปลี่ยนเองเลยครับ เพราะบางทีลืมเปลี่ยนทำให้ค่ามัน Error ครับ
ขอบคุณครับ

สวัสดีครับอาจารย์ และพี่ๆทุกท่าน

          ผมอยากสอบถามการบวกปี พ.ศ.ตาม Format ครับ
รายละเอียดดังนี้ครับ
         
ผมมี Text1 รับค่าวันที่ตาม Format(Date(),"mm-yy")  จะได้ ก.พ.61 ตามวันที่เครื่องผมครับ
1.ผมอยากให้เวลาไปใช้เครื่องไหนก็ได้ที่ไม่ใช่ Format เหมือนที่เครื่องผมแต่ก็ยังใช้งานได้ครับ
2.ผมมี Text2 และจะบวกค่า1 เข้าไปที่ปี พ.ศ. จะบวกยังไงครับ ก.พ.61 ก็จะเป็น ก.พ.62

ขอบคุณครับ

ขอขอบคุณเช่นกันครับ หลายครั้งที่สอบถาม แล้วได้คำตอบกลับมา หลายครั้งที่เข้ามาดูกระทู้เก่าๆ แล้วได้เอามาใช้งาน

ขอบคุณครับ

สวัสดีครับอาจารย์
ผมแนบตัวโปรแกรมมาให้ด้วยครับ จากเบื่องต้นมันเหมือนไม่พบ พิวใน Query QR_Reprint ครับ
จากโปรแกรมผม Default ค่าไว้ให้แล้วครับ กดค้นหาได้เลยแล้วกด Clone ได้เลยครับ จะเกิด Error ตามที่แจ้งครับ
จุดประสองของตัวโปรแกรมครับ
กรองข้อมูลจาก Query QR_Reprint แล้ว Clone ที่ได้ทั้งหมดไปเพิ่มไว้ที่ TB_Reprint ครับ
ขอบคุณครับ

http://upload.i4th.in.th/th/download.php?id=5A6164D71


ผมขอรบกวนอาจารย์ช่วยดูหน่อยครับผม
ขอบคุณอีกครับ

โค๊ตครับ

CurrentDb.Execute "insert into TB_Reprint(ITEM_NUMBER, PART_NUMBER, BOX_NUM, Barcode, PART_NAME, DT, Remark) Select ITEM_NUMBER, PART_NUMBER, BOX_NUM, Barcode, PART_NAME, '" + CStr(Me.Tx5) + "', '" + CStr(Me.Tx6) + "' From QR_Reprint ", dbFailOnError

คือผมจะ Clone ตาราง QR_Reprint ไป TB_Reprint ชื่อฟิวในตารางเหมือนกันครับ และเก็บค่าจาก Tx5 ลง DT และ Tx6 ลง Remark ครับ
หรือมันไม่ยอด Clone ชื่อพิวที่เหมือนกันครับ
มัน Error syntax error 3134 insert into statement

เบื่องต้นผมตรวจสอบเรื่องชื่อพิวแล้วตรงกันหมดครับ Tx5 และ DT เป็น Datetime ตรงกันครับ ส่วน Tx6 และ Remark เป็น Text เหมือนกันครับ
รบกวนด้วยครับ ขอบคุณครับ