update table records from form

[Jon_H]

I am trying to update the records in particular fields(table=Issues,
Field=Status) on a form but keep getting the following compile error.
"Method or Data member not found" when the following is started from a
button on the form.

Private Sub update_Click()
Dim conDatabase As ADODB.Recordset
Dim strSQL As String
Set conDatabase = CurrentProject.Connection
strSQL = "UPDATE Issues SET Status = " & Status
conDatabase.Execute strSQL
conDatabase.close
Set conDatabase = Nothing
Exit_update_Click:
Exit Sub
End Sub

any help would be greatly appreciated.
cheers
Jon_H

 

[Stefan Hoffmann]

I am trying to update the records in particular fields(table=Issues,
Field=Status) on a form but keep getting the following compile error.
"Method or Data member not found" when the following is started from a
button on the form.

Private Sub update_Click()
Dim conDatabase As ADODB.Recordset
Dim strSQL As String
Set conDatabase = CurrentProject.Connection
strSQL = "UPDATE Issues SET Status = " & Status
conDatabase.Execute strSQL
conDatabase.close
Set conDatabase = Nothing
Exit_update_Click:
Exit Sub
End Sub

any help would be greatly appreciated.
cheers
Jon_H

mfG
--> stefan <--

 

[Stefan Hoffmann]

hi,

Private Sub update_Click()
Dim conDatabase As ADODB.Recordset

You declaration is incorrect. Try
Dim conDatabase As ADODB.Connection

Dim strSQL As String
Set conDatabase = CurrentProject.Connection

strSQL = "UPDATE Issues SET Status = " & Status
conDatabase.Execute strSQL
conDatabase.close
Set conDatabase = Nothing
Exit_update_Click:
Exit Sub
End Sub

mfG
--> stefan <--

 

[Jon_H]

hi,


You declaration is incorrect. Try
Dim conDatabase As ADODB.Connection



mfG
--> stefan <--

what does mfG mean

cheers
Jon_H

 

[Stefan Hoffmann]

hi,

what does mfG mean

mit freundlichen Gruessen: means with kind regards.

cheers
Jon_H

mfG
--> stefan <--

 

[Jon_H]

I have fixed it with this but found I had to include the close command as it
only updates when the form is closed ???


Private Sub update_Click()
Dim ctl As Control
On Error GoTo Err_Update_Click
' The Dirty property is True if the record has been changed.
If Me.Dirty Then
' Prompt to confirm the save operation.
If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
"Save Record") = vbNo Then
Me.Undo
End If
End If
Exit_update:
DoCmd.close
Exit Sub
Err_Update_Click:
MsgBox Err.Number & " " & Err.Description
Resume Exit_update
End Sub

Cheers
Jon_H

and mfG 2u2 Stefan

 

[Stefan Hoffmann]

hi,

I have fixed it with this but found I had to include the close command as it
only updates when the form is closed ???

You have to change the dirty state of your form.

Private Sub update_Click()
Dim ctl As Control
On Error GoTo Err_Update_Click
' The Dirty property is True if the record has been changed.
If Me.Dirty Then
' Prompt to confirm the save operation.
If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
"Save Record") = vbNo Then
Me.Undo
End If
End If
Exit_update:
DoCmd.close

Drop the Close, try:
Me.Dirty = False

Exit Sub
Err_Update_Click:
MsgBox Err.Number & " " & Err.Description
Resume Exit_update
End Sub

mfG
--> stefan <--