Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Classic ASP ODBC Microsoft Access Update Problem

Posted on 2007-08-02
9
Medium Priority
?
310 Views
Last Modified: 2012-06-27
I'm trying to write an asp page that will allow me to update some records in an access database.  I can get it to query, and return values no problem.  I can not figure out how to get it to update the database with changes I want to make.  If anyone can help me with this I would greatly appreciate it.  Here is my code so far....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/PassPro.asp" -->

<%
Dim dd__MMColParam
dd__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
  dd__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim pp__MMColParam
pp__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
  pp__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim pp
Dim pp_numRows

Set pp = Server.CreateObject("ADODB.Recordset")
pp.ActiveConnection = MM_PassPro_STRING
pp.Source = "SELECT id, userid, username, password, Facility FROM pp WHERE id = " + Replace(pp__MMColParam, "'", "''") + ""
pp.CursorType = 0
pp.CursorLocation = 2
pp.LockType = 1
pp.Open()

pp_numRows = 0
%>

<html>
<head>
<title>Pass Pro Edit</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="301" border="0">
  <tr>
    <td width="295"><strong><font size="5">Pass Pro Edit Information</font></strong></td>
  </tr>
</table>
<p>&nbsp;</p>
 
<form method="post" action="<%=MM_editAction%>" name="form1">
  <table width="445" align="center">
    <tr valign="baseline">
      <td width="64" align="right" nowrap>ID:</td>
      <td width="192"> <p>
          <input name="id" type="text" value="<%=(pp.Fields.Item("id").Value)%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change!!!!!</strong></td>
    </tr>
    <tr valign="baseline">
      <td width="64" align="right" nowrap>Userid:</td>
      <td width="192"> <p>
          <input name="userid" type="text" value="<%Response.Write(Request.ServerVariables("AUTH_USER"))%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change!!!!!</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Username:</td>
      <td> <input type="text" name="username" value="<%=(pp.Fields.Item("username").Value)%>" size="32"> </td>
      <td><strong>&lt;Facility Username</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Password:</td>
      <td> <input type="text" name="password" value="<%=(pp.Fields.Item("password").Value)%>" size="32"> </td>
      <td><strong>&lt;Facility Password</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Facility:</td>
      <td> <input type="text" name="Facility" value="<%=(pp.Fields.Item("Facility").Value)%>" size="32"> </td>
      <td><strong>&lt;Facility</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td> <input type="submit" value="Update Record" id="Submit1"> </td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form3">
</form>

<p><a href="passpro.asp">Back to Viewer</a></p>
</body>
</html>

Here is my include file string...

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_PassPro_STRING
MM_PassPro_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("passwordprotect.mdb")
%>
0
Comment
Question by:dkraatz
  • 4
  • 3
  • 2
9 Comments
 
LVL 14

Expert Comment

by:_Stilgar_
ID: 19618004
Just construct a simple "UPDATE" statement and execute it with a DB Connection object (you can also use the recordset object for that). That is the easiest solution.

When using Access, make sure the mdb file or the directory it sits within have write permissions, otherwise the operation will fail.

Stilgar.
0
 
LVL 14

Expert Comment

by:_Stilgar_
ID: 19618027
small sample:

 strSQL = "UPDATE [table] SET [field]='text' WHERE [field2]=4"
 set Site_Conn = Server.CreateObject("ADODB.Connection")
 Site_Conn.Open MM_PassPro_STRING
 Site_Conn.Execute strSQL

Stilgar.
0
 
LVL 14

Expert Comment

by:bugs021997
ID: 19618048
update.asp:


<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
frm=Request.Form
strname=Request.Form ("name")
strlname=Request.Form ("lname")
strphone=Request.Form ("phone")
strid=Request.Form ("id")
a=Request.QueryString ("name")
b=Request.QueryString ("lname")
c=Request.QueryString ("phone")
set cn =server.CreateObject ("adodb.connection")
cn.Open "library"
sql="update test set name ='" & strname & "', lname ='" & strlname & "', phone ='" & strphone & "' where id ='" & strid & "'"
set rs = server.CreateObject ("Adodb.recordset")
rs.Open sql,cn,1,2
do while not rs.EOF
 if rs.EOF then
 rs.Movelast
 else
 rs.Update
 rs.Fields ("name")=strname
 rs.Fields ("lname")=strlname
 rs.Fields ("phone")=strphone
 end if
 rs.MoveNext
 loop
 
 Response.Write a & "    "
 Response.Write b & "    "
 Response.Write c & "    "
 Response.Write strid
 cn.Close
 set cn=nothing
 Response.Write "you made it"
%>
</BODY>
</HTML>

Reference to be found at

http://www.js-x.com/page/asp__update.html
http://www.bellaonline.com/articles/art7362.asp
http://www.codeproject.com/asp/checkboxesfordatabase.asp
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 14

Expert Comment

by:bugs021997
ID: 19618053
Detailed walkthrough on

http://www.devpapers.com/article/181
0
 

Author Comment

by:dkraatz
ID: 19621283
Ok I made some changes, and now I'm recieving this error...

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/passpro/edit.asp, line 102

Would you be able to look at this code, and tell me where I'm going wrong?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/PassPro.asp" -->

<%
Dim pp__MMColParam
pp__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
  pp__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim pp
Dim pp_numRows

Set pp = Server.CreateObject("ADODB.Recordset")
pp.ActiveConnection = MM_PassPro_STRING
pp.Source = "SELECT id, userid, username, password, Facility FROM pp WHERE id = " + Replace(pp__MMColParam, "'", "''") + ""
pp.CursorType = 0
pp.CursorLocation = 2
pp.LockType = 1
pp.Open()

pp_numRows = 0
%>

<%
' *** Update Record: set variables

If (CStr(Request("MM_Update")) = "form3") Then

  MM_editConnection = MM_PassPro_STRING
  MM_editTable = "pp"
  MM_editRedirectUrl = "passpro.asp"
  MM_fieldsStr  = "username|value|password|value|Facility|value"
  MM_columnsStr = "[username]|',none,''|[password]|',none,''|[Facility]|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_update")) <> "") Then

  ' create the sql update statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "update username, password, Facility FROM pp WHERE id = " + Replace(pp__MMColParam, "'", "''") + ""

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute                                                                                             <--------------Line 102
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>

<html>
<head>
<title>Pass Pro Edit</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="301" border="0">
  <tr>
    <td width="295"><strong><font size="5">Pass Pro Edit Information</font></strong></td>
  </tr>
</table>
<p>&nbsp;</p>
 
<form method="post" action="<%=MM_editAction%>" name="form1">
  <p><table width="447" border="0" align="center">
  <tr>
    <td width="50"><strong><font color="#999999">ID</font></strong></td>
    <td width="123" height="23"><div align="center"><font color="#666666"><strong>Facility</strong></font></div></td>
    <td width="128"><div align="center"><font color="#666666"><strong>Username</strong></font></div></td>
    <td width="128"><div align="center"><font color="#666666"><strong>Password</strong></font></div></td>
  </tr>
</table>
<table width="447" border="0" align="center">
  <tr>
    <td width="50"><strong><%=(pp.Fields.Item("id").Value)%></strong></td>
    <td width="123" height="23"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("Facility").Value)%></font></strong></div></td>
    <td width="128"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("username").Value)%></font></strong></div></td>
    <td width="128"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("password").Value)%></font></strong></div></td>
  </tr>
</table>&nbsp;</p>
  <table width="447" align="center">
    <tr valign="baseline">
      <td width="65" align="right" nowrap>ID:</td>
      <td width="193"> <p>
          <input name="id" type="text" value="<%=(pp.Fields.Item("id").Value)%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change</strong></td>
    </tr>
    <tr valign="baseline">
      <td width="64" align="right" nowrap>Userid:</td>
      <td width="192"> <p>
          <input name="userid" type="text" value="<%Response.Write(Request.ServerVariables("AUTH_USER"))%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Username:</td>
      <td> <input type="text" name="username" value="" size="32"> </td>
      <td><strong>&lt;Facility Username</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Password:</td>
      <td> <input type="text" name="password" value="" size="32"> </td>
      <td><strong>&lt;Facility Password</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Facility:</td>
      <td> <input type="text" name="Facility" value="" size="32"> </td>
      <td><strong>&lt;Facility</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td> <input type="submit" value="Update Record"> </td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form3">
</form>

<p><a href="passpro.asp">Back to Viewer</a></p>
</body>
</html>

Thanks for your help, and sorry if I'm making this more complicated than it should be.
0
 

Author Comment

by:dkraatz
ID: 19621393
Sorry my MM_editQuery statement reads as follows not what was posted.

MM_editQuery = "update " & " (" & MM_tableValues & ") values (" & MM_dbValues & ") WHERE id = " + Replace(pp__MMColParam, "'", "''") + ""
0
 

Author Comment

by:dkraatz
ID: 19622156
Ok so I just realized I was doing this entirely the hardest way possible.  Please help me with my updated code....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/PassPro.asp" -->
<%
Dim dd__MMColParam
dd__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
  dd__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim pp__MMColParam
pp__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
  pp__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim pp
Dim pp_numRows

Set pp = Server.CreateObject("ADODB.Recordset")
pp.ActiveConnection = MM_PassPro_STRING
pp.Source = "SELECT id, userid, username, password, Facility FROM pp WHERE id = " + Replace(pp__MMColParam, "'", "''") + ""
pp.CursorType = 0
pp.CursorLocation = 2
pp.LockType = 1
pp.Open()

pp_numRows = 0
%>
<html>
<head>
<title>Pass Pro Edit</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="301" border="0">
  <tr>
    <td width="295"><strong><font size="5">Pass Pro Edit Information</font></strong></td>
  </tr>
</table>
<p>&nbsp;</p>
 
<form method="post" action="<%=MM_editAction%>" name="form1">
  <p><table width="447" border="0" align="center">
  <tr>
    <td width="50"><strong><font color="#999999">ID</font></strong></td>
    <td width="123" height="23"><div align="center"><font color="#666666"><strong>Facility</strong></font></div></td>
    <td width="128"><div align="center"><font color="#666666"><strong>Username</strong></font></div></td>
    <td width="128"><div align="center"><font color="#666666"><strong>Password</strong></font></div></td>
  </tr>
</table>
<table width="447" border="0" align="center">
  <tr>
    <td width="50"><strong><%=(pp.Fields.Item("id").Value)%></strong></td>
    <td width="123" height="23"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("Facility").Value)%></font></strong></div></td>
    <td width="128"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("username").Value)%></font></strong></div></td>
    <td width="128"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("password").Value)%></font></strong></div></td>
  </tr>
</table>&nbsp;</p>
  <table width="447" align="center">
    <tr valign="baseline">
      <td width="65" align="right" nowrap>ID:</td>
      <td width="193"> <p>
          <input name="id" type="text" value="<%=(pp.Fields.Item("id").Value)%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change</strong></td>
    </tr>
    <tr valign="baseline">
      <td width="64" align="right" nowrap>Userid:</td>
      <td width="192"> <p>
          <input name="userid" type="text" value="<%Response.Write(Request.ServerVariables("AUTH_USER"))%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Username:</td>
      <td> <input type="text" name="username" value="" size="32"> </td>
      <td><strong>&lt;Facility Username</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Password:</td>
      <td> <input type="text" name="password" value="" size="32"> </td>
      <td><strong>&lt;Facility Password</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Facility:</td>
      <td> <input type="text" name="Facility" value="" size="32"> </td>
      <td><strong>&lt;Facility</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td> <input name="" type="submit" onClick="<%
Dim dd
Dim dd_numRows
Set dd = Server.CreateObject("ADODB.Recordset")
dd.ActiveConnection = MM_PassPro_STRING
dd.Source = "update pp set [username] = 'Username', [password] = 'Password', [Facility] = 'Facility'  WHERE id = " + Replace(dd__MMColParam, "'", "''") + ""
dd.CursorType = 0
dd.CursorLocation = 2
dd.LockType = 1
dd.Open()
dd_numRows = 0
%>" value="Update Record"> </td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form3">
</form>

<p><a href="passpro.asp">Back to Viewer</a></p>
</body>
</html>

In the update statement it is updating however it is inserting the words from the update statement.  I need it to insert the information from the txt box for username, password, and facility.  Hopefully this will be an easy correction for one of you guys.  Thanks for all your help.
0
 
LVL 14

Accepted Solution

by:
bugs021997 earned 500 total points
ID: 19622670
Use the code i have revamped for you, note its not tested so if any errors do occur first try and solve yourself if no luck then report.

Secondly your MM_editAction should pass a new parameter as querystring to update the record its like

MM_editAction = "bugs.asp?Update=Yes"

You can change anything from Update=Yes to what you wish.... I am using it as request.querystring() to post it to the same page at the bottom....


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/PassPro.asp" -->
<%
Dim dd__MMColParam
dd__MMColParam = "1"

If (Request.QueryString("id") <> "") Then
  dd__MMColParam = Request.QueryString("id")
End If


Dim pp
Dim pp_numRows

Set pp = Server.CreateObject("ADODB.Recordset")
pp.ActiveConnection = MM_PassPro_STRING
pp.Source = "SELECT id, userid, username, password, Facility FROM pp WHERE id = " + Replace(pp__MMColParam, "'", "''") + ""
pp.CursorType = 0
pp.CursorLocation = 2
pp.LockType = 1
pp.Open()

pp_numRows = 0
%>
<html>
<head>
<title>Pass Pro Edit</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="301" border="0">
  <tr>
    <td width="295"><strong><font size="5">Pass Pro Edit Information</font></strong></td>
  </tr>
</table>
<p>&nbsp;</p>
 
<form method="post" action="<%=MM_editAction%>" name="form1">
  <p><table width="447" border="0" align="center">
  <tr>
    <td width="50"><strong><font color="#999999">ID</font></strong></td>
    <td width="123" height="23"><div align="center"><font color="#666666"><strong>Facility</strong></font></div></td>
    <td width="128"><div align="center"><font color="#666666"><strong>Username</strong></font></div></td>
    <td width="128"><div align="center"><font color="#666666"><strong>Password</strong></font></div></td>
  </tr>
</table>
<table width="447" border="0" align="center">
  <tr>
    <td width="50"><strong><%=(pp.Fields.Item("id").Value)%></strong></td>
    <td width="123" height="23"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("Facility").Value)%></font></strong></div></td>
    <td width="128"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("username").Value)%></font></strong></div></td>
    <td width="128"><div align="center"><strong><font color="#666666"><%=(pp.Fields.Item("password").Value)%></font></strong></div></td>
  </tr>
</table>&nbsp;</p>
  <table width="447" align="center">
    <tr valign="baseline">
      <td width="65" align="right" nowrap>ID:</td>
      <td width="193"> <p>
          <input name="id" type="text" value="<%=(pp.Fields.Item("id").Value)%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change</strong></td>
    </tr>
    <tr valign="baseline">
      <td width="64" align="right" nowrap>Userid:</td>
      <td width="192"> <p>
          <input name="userid" type="text" value="<%Response.Write(Request.ServerVariables("AUTH_USER"))%>" size="32">
        </p></td>
      <td width="173"><strong>&lt;Do Not Change</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Username:</td>
      <td> <input type="text" name="username" value="" size="32"> </td>
      <td><strong>&lt;Facility Username</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Password:</td>
      <td> <input type="text" name="password" value="" size="32"> </td>
      <td><strong>&lt;Facility Password</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Facility:</td>
      <td> <input type="text" name="Facility" value="" size="32"> </td>
      <td><strong>&lt;Facility</strong></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td> <input name="" type="submit" value="Update Record"> </td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form3">
</form>

<%
If request.querystring("update") = "Yes" then

Dim dd
Dim dd_numRows
Set dd = Server.CreateObject("ADODB.Recordset")
dd.ActiveConnection = MM_PassPro_STRING
dd.Source = "update pp set [username] = '" & request.form("username") & "', [password] = '" & request.form("password") & "', [Facility] = '" & request.form("Facility") & "'  WHERE id = " & Replace(dd__MMColParam, "'", "''") & ""
dd.CursorType = 0
dd.CursorLocation = 2
dd.LockType = 1
dd.Open()
dd_numRows = 0

End If
%>

<p><a href="passpro.asp">Back to Viewer</a></p>
</body>
</html>
0
 

Author Comment

by:dkraatz
ID: 19624967
Stilgar thank you for your help with this.

Bugs thank you also.  I had to change your code just a little bit, but it got me really close the way it was posted.

I appreciate both your help in this.  I knew it was simple I was jsut over thinking it.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
Windows Explorer let you handle zip folders nearly as any other folder: Copy, move, change, and delete, etc. In VBA you can also handle normal files and folders, but zip folders takes a little more - and that you'll find here.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

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