109
ห้อง MS Access / : Error : Could not delete from specified tables
« เมื่อ: 16 เม.ย. 63 , 13:47:40 »ลองเปลี่ยนเป็น .... modifieddate = #" & format$(now(), "dd/mmm/yyyy hh:mm:ss") & "# " & _
ลองแล้วติด error เหมือนเดิมค่ะ ทั้งตอนลบและแก้ไข
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
ลองเปลี่ยนเป็น .... modifieddate = #" & format$(now(), "dd/mmm/yyyy hh:mm:ss") & "# " & _
ปรับใหม่ให้แบบนี้นะครับ ใช้การสร้าง Combobox แล้วกำหนดให้แสดงรายการแทน PK
Private Sub cmdEdit_Click()
If Me.txtID.Tag & "" = "" Then
MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
Else
CurrentDb.Execute "UPDATE dbo_CheckCaseMaster " & _
" SET dbo_CheckCaseMaster.CaseExamination='" & Me.comboCaseResult & "', dbo_CheckCaseMaster.CaseName='" & Me.comboResult & "', dbo_CheckCaseMaster.ModifiedBy='" & Me.txtLogin & "', dbo_CheckCaseMaster.ModifiedDate=Now()" & _
" WHERE dbo_CheckCaseMaster.ID=" & Me.txtID.Tag, dbSeeChanges
MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
FormCheckCaseViewSub.Form.Requery
End Sub
Private Sub cmdEdit_Click()
If Me.txtID.Tag & "" = "" Then
MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
Else
CurrentDb.Execute "UPDATE dbo_CheckCaseMaster " & _
" SET dbo_CheckCaseMaster.CaseExamination='" & Me.comboCaseResult & "', dbo_CheckCaseMaster.CaseName='" & Me.comboResult & "', dbo_CheckCaseMaster.ModifiedBy='" & Me.txtLogin & "', dbo_CheckCaseMaster.ModifiedDate=Now()" & _
" WHERE dbo_CheckCaseMaster.ID=" & Me.txtID.Tag, dbSeeChanges
MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
FormCheckCaseViewSub.Form.Requery
End Sub
ตรง Subform ใส่โค้ดนี้ที่ RecordSource ตามนี้ครับโค๊ด: [Select]SELECT Employee.ID, Employee.EmployeeCode, Employee.EmployeeName, Employee.EmployeeDivision, Employee.EmployeeLocation FROM Employee WHERE (((Employee.EmployeeDivision)=forms!form1!comboDivision) And ((Employee.EmployeeLocation)=forms!form1!comboLocation));
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ
ทำได้แล้วค่ะ ลองไป Copy code จากตัวอย่างที่ส่งมาแล้วไปแก้ไข สามารถใช้ได้แล้วค่ะ ขอบคุณมากๆนะคะ
สาเหตุที่เกิด ERROR นั้นเพราะ มีการใช้คำสั่ง Docmd.close เพื่อปิดฟอร์ม หน้าจอล๊อกอิน ครับ
ต่อมาพอเราต้องการอ้างอิง ข้อมูลจาก textbox หรือ combobox ของฟอร์มล๊อกอิน ก็ไม่สามารถทำได้แล้วเพราะเราสั่งปิดฟอร์มไปแล้วครับ
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ
ทำได้แล้วค่ะ ลองไป Copy code จากตัวอย่างที่ส่งมาแล้วไปแก้ไข สามารถใช้ได้แล้วค่ะ ขอบคุณมากๆนะคะ
สาเหตุที่เกิด ERROR นั้นเพราะ มีการใช้คำสั่ง Docmd.close เพื่อปิดฟอร์ม หน้าจอล๊อกอิน ครับ
ต่อมาพอเราต้องการอ้างอิง ข้อมูลจาก textbox หรือ combobox ของฟอร์มล๊อกอิน ก็ไม่สามารถทำได้แล้วเพราะเราสั่งปิดฟอร์มไปแล้วครับ
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ
ลองดูตัวอย่างนี้ครับ เป็นการกำหนดเงื่อนไขการแสดงรายการของ คอมโบบ๊อก โดยให้ดึงมาแสดงเฉพาะรายการที่เกี่ยวข้องกับส่วนอื่นๆ ที่ต้องอยู่ในกลุ่มเดียวกัน
คล้ายๆกับการกำหนด จังหวัด อำเภอ ตำบล หมู่บ้าน จากตัวอย่างก่อนๆ ครับ
ลองดูตัวอย่างนี้ครับ เป็นการกำหนดเงื่อนไขการแสดงรายการของ คอมโบบ๊อก โดยให้ดึงมาแสดงเฉพาะรายการที่เกี่ยวข้องกับส่วนอื่นๆ ที่ต้องอยู่ในกลุ่มเดียวกัน
คล้ายๆกับการกำหนด จังหวัด อำเภอ ตำบล หมู่บ้าน จากตัวอย่างก่อนๆ ครับ
ตรง Division กับ Location ผมไม่แน่ใจว่าสร้างความสัมพันธ์กันแบบไหน
ถ้าแบบดิบๆ เลยก็แบบนี้ครับ
ตรง Division กับ Location ผมไม่แน่ใจว่าสร้างความสัมพันธ์กันแบบไหน
ถ้าแบบดิบๆ เลยก็แบบนี้ครับ
Private Sub cmdEdit_Click()
If Me.txtID.Tag & "" = "" Then
MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
Else
CurrentDb.Execute "UPDATE dbo_Register " & _
" SET dbo_Register.CardID='" & Me.txtCardID & "', dbo_Register.Title='" & Me.comboTitle & "', dbo_Register.TitleEn='" & Me.comboTitleEn & "', dbo_Register.Name='" & Me.txtName & "', dbo_Register.NameEn='" & Me.txtNameEn & "', dbo_Register.Surname='" & Me.txtSurname & "', dbo_Register.SurnameEn='" & Me.txtSurnameEn & "', dbo_Register.Sex='" & Me.comboSex.Column(1) & "', dbo_Register.Sex_Ramco='" & Me.txtSex & "', dbo_Register.Blood='" & Me.comboBlood & "', dbo_Register.BirthDate='" & Me.txtBirthDate & "'" & _
", dbo_Register.ADDRNO='" & Me.txtADDRNO & "', dbo_Register.ADDRMU='" & Me.txtADDRMU & "', dbo_Register.ADDRTR='" & Me.txtADDRTR & "', dbo_Register.ADDRSOI='" & Me.txtADDRSOI & "', dbo_Register.ADDRRD='" & Me.txtADDRRD & "', dbo_Register.ADDRTB='" & Me.txtADDRTB & "', dbo_Register.ADDRAP='" & Me.txtADDRAP & "', dbo_Register.ADDRCW='" & Me.txtADDRCW & "', dbo_Register.ADDRZIPCODE='" & Me.txtADDRZIPCODE & "', dbo_Register.Age='" & Me.txtCalcAge & "'" & _
", dbo_Register.TrainingStartDate='" & Me.txtTrainingStartDate & "', dbo_Register.MaritalStatus='" & Me.txtMarital & "', dbo_Register.MilitaryStatus='" & Me.comboMilitary & "', dbo_Register.Disability='" & Me.comboDisability & "', dbo_Register.Ethnicity='" & Me.txtEthnicity & "'" & _
", dbo_Register.Country='" & Me.comboCountry & "', dbo_Register.HomeState='" & Me.txtHomeState & "', dbo_Register.ModifiedBy='" & Me.txtLogin & "', dbo_Register.ModifiedDate=Now()" & _
" WHERE dbo_Register.ID=" & Me.txtID.Tag
MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
frmRegistersubform.Form.Requery
End Sub
Tools >> Options >> Designers
ติ๊กออก Prevent Saving changes that require table re-creation
*คำอธิบาย การแก้ไขข้อมูลออกแบบตารางพวกนี้ มันจะดรอปและสร้างตารางขึ้นมาใหม่ในชื่อเดิม ซึ่งอาจจะส่งผลให้ข้อมูลสูญหายโดยไม่ได้ตั้งใจ เช่นเผลอลบคอลัมน์แล้วกดบันทึก ข้อมูลในคอลัมน์นั้นก็จะหายไปหมด
ถ้าแก้ไขเสร็จแล้ว ให้มาติ๊กกลับไว้เหมือนเดิมครับ
ไม่ค่อยเข้าใจคำถามครับ
หมายถึงปรับ Is Identity เป็น Yes แล้วกด save ไม่ได้หรอครับ ?
ได้กำหนด Primary Key ให้ ID รึยังครับ
และเวลาเพิ่มข้อมูล ID ห้ามเป็นค่าว่าง