ติด error เวลาจะ Delete ค่ะ
ตัวอย่าง Code คำสั่งค่ะ
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
ติด error เวลาจะ Edit ค่ะ
ตัวอย่าง Code คำสั่งค่ะ
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
หน้าจอเขียนด้วย MS Access Database เป็น SQL Server
เดิมเขียนด้วย MS Access ทั้งหน้าจอกับ database คำสั่งใช้งานได้ปรกติค่ะ
รบกวนแนะนำด้วยค่ะ