กระทู้เก่าบอร์ด อ.Yeadram
945 4
URL.หัวข้อ /
URL
Clear Content หน้าฟอร์ม
เมื่อกรอกข้อมูลลงในฟอร์มเสร็จและบันทึก หนูตั้งค่าให้บางค่าในฟอร์มยังค้างอยู่หน้าฟอร์ม ทำให้ปิดหน้าฟอร์มไม่ได้ จึงต้องกดปุ่ม Esc ก่อนเพื่อให้ฟอร์มว่างหลังจากนั้นจึงกดปิดได้ จึงอยากทราบว่ามีวิธีไหนที่จะ clear content โดยไม่ต้องกดปุ่ม Esc มั้ยค่ะ ขอบคุณค่ะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R20242
ให้กำหนดค่าที่ค้างบนฟอร์ม ด้วยการเซ็ท .DefaultValue ของคอนโทรล เช่น Me.Text01.DefaultValue = "123ABC"
2 @R20245
ไม่ได้อ่ะค่ะ มีวิธีอื่นอีกมั้ยค่ะ
หนูใช้สูตรนี้ทำให้ค่าค้างอ่ะค่ะ
Private Sub Command50_Click()
Dim lot, dates, inputs, shifts As String
lot = Me.LOTNR
dates = Me.Date
shifts = Me.SHIFT
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord acDataForm, "Defect_Summary", acNewRec
Me.LOTNR = lot
Me.Date = dates
Me.SHIFT = shifts
End Sub
แล้วพอใช้สูตรที่ให้แล้วมันไม่เคลียร์อ่ะค่ะ
หนูใช้สูตรนี้ทำให้ค่าค้างอ่ะค่ะ
Private Sub Command50_Click()
Dim lot, dates, inputs, shifts As String
lot = Me.LOTNR
dates = Me.Date
shifts = Me.SHIFT
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord acDataForm, "Defect_Summary", acNewRec
Me.LOTNR = lot
Me.Date = dates
Me.SHIFT = shifts
End Sub
แล้วพอใช้สูตรที่ให้แล้วมันไม่เคลียร์อ่ะค่ะ
3 @R20246
ที่ผมให้ไป มันไม่ได้เคลียร์ให้หรอกครับ แต่คุณจะปิดหน้าฟอร์มได้โดยที่มันไม่ฟ้องอะไร
4 @R20247
Private Sub Command50_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.LOTNR.DefaultValue = Me.LOTNR
Me.Date.DefaultValue = Me.Date
Me.SHIFT.DefaultValue = Me.SHIFT
DoCmd.GoToRecord acDataForm, "Defect_Summary", acNewRec
End Sub
DoCmd.RunCommand acCmdSaveRecord
Me.LOTNR.DefaultValue = Me.LOTNR
Me.Date.DefaultValue = Me.Date
Me.SHIFT.DefaultValue = Me.SHIFT
DoCmd.GoToRecord acDataForm, "Defect_Summary", acNewRec
End Sub
Time: 0.3331s