Hi,
I am in serious need of some help. I have been trying how to fix the code in access and I am coming up with no resolution. I am new to this, so any help will greatly be appreciated.
Private Sub UpdatePubName()
' UPDATE RECORD FOR Tbl_PubName
' execute sql to update record in Tbl_PubName using form data
' PubName, Spanish, PubType
Dim UpdatePubNameSQL As String
UpdatePubNameSQL = "UPDATE Tbl_PubName SET " & _
"PubName = '" & Replace("TextPubName", "'", "''") & "', " & _
"Spanish = '" & CheckSpanish & ", " & _
"PubType = '" & ComboPubType & "' " & _
"WHERE PK_pubData = " & LkpPK_PubData & ";"
CurrentDb.Execute UpdatePubNameSQL
The CurrentDb.Execute UpdatePubNameSQL is highlighted.
I am in serious need of some help. I have been trying how to fix the code in access and I am coming up with no resolution. I am new to this, so any help will greatly be appreciated.
Private Sub UpdatePubName()
' UPDATE RECORD FOR Tbl_PubName
' execute sql to update record in Tbl_PubName using form data
' PubName, Spanish, PubType
Dim UpdatePubNameSQL As String
UpdatePubNameSQL = "UPDATE Tbl_PubName SET " & _
"PubName = '" & Replace("TextPubName", "'", "''") & "', " & _
"Spanish = '" & CheckSpanish & ", " & _
"PubType = '" & ComboPubType & "' " & _
"WHERE PK_pubData = " & LkpPK_PubData & ";"
CurrentDb.Execute UpdatePubNameSQL
The CurrentDb.Execute UpdatePubNameSQL is highlighted.