Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

ASP and Access Update Records Issue

Posted on 2009-04-20
12
Medium Priority
?
712 Views
Last Modified: 2013-11-28
I am trying to edit a particular record in a database through and ODBC connection and an ASP page. When I go to update the record I keep getting this error.

Microsoft OLE DB Provider for ODBC Drivers error '80040e57'

[Microsoft][ODBC Microsoft Access Driver]Invalid string or buffer length

/editponumber.asp, line 46

I have looked at the design of the database and I am not finding the issue. I will attach a screen shot of the database in design view and my code for the update page. Thanks for any suggestions.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Connections/Purchase_Orders.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
 
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd
 
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Purchase_Orders_STRING
    MM_editCmd.CommandText = "UPDATE PO SET ID = ?, [Date Issued] = ?, [Billing Target] = ?, [Ordered By] = ?, [Vendor Name] = ?, [Date Invoiced] = ?, [Description of Purchase] = ?, [PO Amount] = ?, [AP Processor] = ?, Notes = ?, Approved = ? WHERE ID = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("ID"), Request.Form("ID"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(Request.Form("Date_Issued"), Request.Form("Date_Issued"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("Billing_Target")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("Ordered_By")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("Vendor_Name")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 135, 1, -1, MM_IIF(Request.Form("Date_Invoiced"), Request.Form("Date_Invoiced"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("Description_of_Purchase")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("PO_Amount"), Request.Form("PO_Amount"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("AP_Processor")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("Notes")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("Approved"), 1, 0)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
 
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "/allponumbers.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim update__MMColParam
update__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  update__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim update
Dim update_cmd
Dim update_numRows
 
Set update_cmd = Server.CreateObject ("ADODB.Command")
update_cmd.ActiveConnection = MM_Purchase_Orders_STRING
update_cmd.CommandText = "SELECT * FROM PO WHERE ID = ?" 
update_cmd.Prepared = true
update_cmd.Parameters.Append update_cmd.CreateParameter("param1", 5, 1, -1, update__MMColParam) ' adDouble
 
Set update = update_cmd.Execute
update_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Edit PO# </title>
</head>
 
<body>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
    <td align="center"><img src="/images/USAKBIT_greyPO.gif" width="200" height="145" alt="PO Logo" /></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td align="center">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
 
<form action="<%=MM_editAction%>" method="POST" name="form1" id="form1">
  <input name="ID" type="hidden" id="ID" value="<%=(update.Fields.Item("ID").Value)%>" />
  <table align="center">
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">ID:</td>
      <td><input name="POID" type="text" disabled="disabled" id="POID" value="<%=(update.Fields.Item("ID").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Date Issued:</td>
      <td><input name="Date_Issued" type="text" value="<%= Server.HTMLEncode((update.Fields.Item("Date Issued").Value)) %>" size="32" maxlength="10" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Billing Target:</td>
      <td><input type="text" name="Billing_Target" value="<%=(update.Fields.Item("Billing Target").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Ordered By:</td>
      <td><input type="text" name="Ordered_By" value="<%=(update.Fields.Item("Ordered By").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Vendor Name:</td>
      <td><input type="text" name="Vendor_Name" value="<%=(update.Fields.Item("Vendor Name").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Date Invoiced:</td>
      <td><input name="Date_Invoiced" type="text" value="<%= DoDateTime((update.Fields.Item("Date Invoiced").Value), 2, 7177) %>" size="32" maxlength="10" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Description of Purchase:</td>
      <td><textarea name="Description_of_Purchase" cols="32" rows="5"><%=(update.Fields.Item("Description of Purchase").Value)%></textarea></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">PO Amount:</td>
      <td><input type="text" name="PO_Amount" value="<%= FormatCurrency((update.Fields.Item("PO Amount").Value), 2, -2, -2, -2) %>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">AP Processor:</td>
      <td><input type="text" name="AP_Processor" value="<%=(update.Fields.Item("AP Processor").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Approved:</td>
      <td><input <%If (CStr((update.Fields.Item("Approved").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="Approved" value="1" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">&nbsp;</td>
      <td><input type="submit" value="Update record" /></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1" />
  <input type="hidden" name="MM_recordId" value="<%= update.Fields.Item("ID").Value %>" />
</form>
<p>&nbsp;</p>
</body>
</html>
<%
update.Close()
Set update = Nothing
%>

Open in new window

poDB.png
0
Comment
Question by:mhorner0224
  • 6
  • 5
12 Comments
 
LVL 11

Expert Comment

by:Sven
ID: 24191234
Seems that some value(s) you enter and want to store is/are longer than the specified field length in database.
0
 
LVL 22

Expert Comment

by:neeraj523
ID: 24192035
One issue i can see is you are trying to insert a value in Autonumber field which is not allowed
0
 

Author Comment

by:mhorner0224
ID: 24194176
I'm using the autonumber filed just to identify the record.
 <input name="ID" type="hidden" id="ID" value="<%=(update.Fields.Item("ID").Value)%>" />
It doesn't actually get updated. Could that still be the problem?

I've edited the code some. Here are my changes. Additionally when I go to fill out the form originally it doesn't give me these errors Only when I go to update them.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Connections/Purchase_Orders.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
 
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd
 
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Purchase_Orders_STRING
    MM_editCmd.CommandText = "UPDATE PO SET ID = ?, [Date Issued] = ?, [Billing Target] = ?, [Ordered By] = ?, [Vendor Name] = ?, [Date Invoiced] = ?, [Description of Purchase] = ?, [PO Amount] = ?, [AP Processor] = ?, Notes = ?, Approved = ? WHERE ID = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("ID"), Request.Form("ID"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(Request.Form("Date_Issued"), Request.Form("Date_Issued"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("Billing_Target")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("Ordered_By")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("Vendor_Name")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 135, 1, -1, MM_IIF(Request.Form("Date_Invoiced"), Request.Form("Date_Invoiced"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("Description_of_Purchase")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("PO_Amount"), Request.Form("PO_Amount"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("AP_Processor")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("Notes")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("Approved"), 1, 0)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
 
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "/allponumbers.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim update__MMColParam
update__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  update__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim update
Dim update_cmd
Dim update_numRows
 
Set update_cmd = Server.CreateObject ("ADODB.Command")
update_cmd.ActiveConnection = MM_Purchase_Orders_STRING
update_cmd.CommandText = "SELECT * FROM PO WHERE ID = ?" 
update_cmd.Prepared = true
update_cmd.Parameters.Append update_cmd.CreateParameter("param1", 5, 1, -1, update__MMColParam) ' adDouble
 
Set update = update_cmd.Execute
update_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Edit PO# </title>
</head>
 
<body>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
    <td align="center"><img src="/images/USAKBIT_greyPO.gif" width="200" height="145" alt="PO Logo" /></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td align="center">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
 
<form action="<%=MM_editAction%>" method="POST" name="form1" id="form1">
  <input name="ID" type="hidden" id="ID" value="<%=(update.Fields.Item("ID").Value)%>" />
  <table align="center">
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">ID:</td>
      <td><input name="POID" type="text" id="POID" value="<%=(update.Fields.Item("ID").Value)%>" size="10" readonly="readonly" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Date Issued:</td>
      <td><input name="Date_Issued" type="text" value="<%= Server.HTMLEncode((update.Fields.Item("Date Issued").Value)) %>" size="10" maxlength="10" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Billing Target:</td>
      <td><input type="text" name="Billing_Target" value="<%=(update.Fields.Item("Billing Target").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Ordered By:</td>
      <td><input type="text" name="Ordered_By" value="<%=(update.Fields.Item("Ordered By").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Vendor Name:</td>
      <td><input type="text" name="Vendor_Name" value="<%=(update.Fields.Item("Vendor Name").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Date Invoiced:</td>
      <td><input name="Date_Invoiced" type="text" value="<%= DoDateTime((update.Fields.Item("Date Invoiced").Value), 2, 7177) %>" size="32" maxlength="10" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Description of Purchase:</td>
      <td><textarea name="Description_of_Purchase" cols="32" rows="5"><%=(update.Fields.Item("Description of Purchase").Value)%></textarea></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">PO Amount:</td>
      <td><input type="text" name="PO_Amount" value="<%= FormatCurrency((update.Fields.Item("PO Amount").Value), 2, -2, -2, -2) %>" size="10" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">AP Processor:</td>
      <td><input type="text" name="AP_Processor" value="<%=(update.Fields.Item("AP Processor").Value)%>" size="32" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">Approved:</td>
      <td><input <%If (CStr((update.Fields.Item("Approved").Value)) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="checkbox" name="Approved" value="1" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td nowrap="nowrap" align="right">&nbsp;</td>
      <td><input type="submit" value="Update record" /></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1" />
  <input type="hidden" name="MM_recordId" value="<%= update.Fields.Item("ID").Value %>" />
</form>
<p>&nbsp;</p>
</body>
</html>
<%
update.Close()
Set update = Nothing
%>

Open in new window

0
Restore individual SQL databases with ease

Veeam Explorer for Microsoft SQL Server delivers an easy-to-use, wizard-driven interface for restoring your databases from a backup. No expert SQL background required. Web interface provides a complete view of all available SQL databases to simplify the recovery of lost database

 
LVL 22

Accepted Solution

by:
neeraj523 earned 2000 total points
ID: 24194219
Replace this

MM_editCmd.CommandText = "UPDATE PO SET ID = ?, [Date Issued] = ?, [Billing Target] = ?, [Ordered By] = ?, [Vendor Name] = ?, [Date Invoiced] = ?, [Description of Purchase] = ?, [PO Amount] = ?, [AP Processor] = ?, Notes = ?, Approved = ? WHERE ID = ?"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("ID"), Request.Form("ID"), null)) ' adDouble

with

MM_editCmd.CommandText = "UPDATE PO SET [Billing Target] = ?, [Ordered By] = ?, [Vendor Name] = ?, [Date Invoiced] = ?, [Description of Purchase] = ?, [PO Amount] = ?, [AP Processor] = ?, Notes = ?, Approved = ? WHERE ID = ?"
    MM_editCmd.Prepared = true
0
 

Author Comment

by:mhorner0224
ID: 24194328
Now it gives me the following error

icrosoft VBScript runtime error '800a000d'

Type mismatch: 'FormatCurrency'

/editponumber.asp, line 169

That line looks like

<td><input type="text" name="PO_Amount" value="<%= FormatCurrency((update.Fields.Item("PO Amount").Value), 2, -2, -2, -2) %>" size="16" /></td>

This was working before. Additionally the two other remaining fields do not show up nor does the update record button.
po.png
0
 
LVL 22

Expert Comment

by:neeraj523
ID: 24194355
dont try to format the currency field.. it may not getting validated from the form input..
0
 

Author Comment

by:mhorner0224
ID: 24194382
The currency is now resolved. The new issue after submitting the form is this error.

ADODB.Command error '800a0d5d'

Application uses a value of the wrong type for the current operation.

/editponumber.asp, line 37

That line reads...

 MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 135, 1, -1, MM_IIF(Request.Form("Vendor_Name"), Request.Form("Vendor_Name"), null)) ' adDBTimeStamp
0
 
LVL 22

Expert Comment

by:neeraj523
ID: 24194436
all is this because of the invalid inputs from the form.. u need to validate inputs before inserting in db
0
 

Author Comment

by:mhorner0224
ID: 24194448
Here's a look at the vendor Name field. Something I don't recognize is the format of "@" . Could it be causing the problem?
vendor.png
0
 

Author Comment

by:mhorner0224
ID: 24194509
It gives an error the wrong type for the "Vendor Name" but it already has this value in the database and is just displaying it on the screen. It wasn't actually changed.
0
 

Author Closing Comment

by:mhorner0224
ID: 31572546
This was the key to figuring out my issue. I saw here that you simply ignored the ID field. In seeing this I ran into other issues and now see that within Dreamweaver when I setup the Update Record query I could choose to ignore certain fields. This would allow for them to be viewable but they would not get updated. Additionally I set the fields to read-only to keep them from even being editable. But, when I went to changed fields to be ignored I saw that I had the "Vendor Name" field updating the "Date Invoiced" record in the database. Once I corrected this it began working. Had it not been for your help I would not have been able to figure this out and grow from what you showed me. I am still just a beginner learning and I really do appreciate your help. I saw where you'd helped others with similar issues and was hoping you'd give me a hand as well. So, while I can't say thank you enough I hope it is rewarding to know you solved another one. Thanks again. Marcus
0
 
LVL 22

Expert Comment

by:neeraj523
ID: 24195723

it is nice to know that i was able to help you out.. Thank you for the appreciation.. we experts at EE are just for few words of appreciation :)

all the best
neeraj
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Traditionally, the method to display pictures in Access forms and reports is to first download them from URLs to a folder, record the path in a table and then let the form or report pull the pictures from that folder. But why not let Windows retr…
Windows Explorer lets you open cabinet (cab) files like any other folder. In VBA you can easily handle normal files and folders, but opening and indeed creating cabinet files takes a lot more - and that's you'll find here.
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Look below the covers at a subform control , and the form that is inside it. Explore properties and see how easy it is to aggregate, get statistics, and synchronize results for your data. A Microsoft Access subform is used to show relevant calcul…
Suggested Courses
Course of the Month20 days, 17 hours left to enroll

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question