Web Pages

  • Thread starter Thread starter Zaphod
  • Start date Start date
Z

Zaphod

I have been using Access for a while (as well as other relational databases)
and although not very proficient, I would like to be able to create web
pages to enter data in my Access tables (xp ver).

In my test database a simple expenses database I have a form producing a
pick list linking to another table. How can I do this in a web page? I
have not found much help within Access for doing this. Can any one point me
in the right direction?

Thanks

R

eg.

Client Name Pick
_________________
Private Sub Combo24_DblClick(Cancel As Integer)
On Error GoTo Err_Combo24_DblClick
Dim lngClientNameID As Long

If IsNull(Me![ClientNameID]) Then
Me![ClientNameID].Text = ""

Else
lngClientNameID = Me![ClientNameID]
Me![ClientNameID] = Null
End If
DoCmd.OpenForm "frmClients", , , , , acDialog, "GotoNew"
Me![ClientNameID].Requery
If lngClientNameID <> 0 Then Me![ClientNameID] = lngClientNameID

Exit_Combo24_DblClick:
Exit Sub

------------------------------------------------------------------------
Err_Combo24_DblClick:
MsgBox Err.Description
Resume Exit_Combo24_DblClick
End Sub
Private Sub Combo24_NotInList(NewData As String, Response As Integer)
MsgBox "Double-click this field to add an entry to the list."
Response = acDataErrContinue
End Sub
 
One of the books I use is Beginning ASP databases by Wrox Press. It is an
excellent book for learning how to create Active Server Pages to connect to
Access and SQL Server databases and return the data to the web. It also
contains ways to insert and update data.
 
Zaphod

As an example of what can be done, go to a site I made for a friend ...
http://www.amazecreations.com/survey/Login.asp

To login, select Admin (all) as the region, Danny Lesandrini as the user and
123456 for a password. This page (and subsequent pages) look up data in
Access tables to create the drop down lists. I even use them in updateable
fields. Click the Edit Tables link and click on Offices for an example.

If this fits your needs, I'll forward the code to you, though I didn't
write it with the idea of anyone looking at it, and comments may be sparce.
 
This is just the sort of thing I need to be able to understand. Although at
this stage I'm not sure how far away that objective is!

I would be most grateful if you would forward me the code.

Many thanks



Danny J. Lesandrini said:
Zaphod

As an example of what can be done, go to a site I made for a friend ...
http://www.amazecreations.com/survey/Login.asp

To login, select Admin (all) as the region, Danny Lesandrini as the user and
123456 for a password. This page (and subsequent pages) look up data in
Access tables to create the drop down lists. I even use them in updateable
fields. Click the Edit Tables link and click on Offices for an example.

If this fits your needs, I'll forward the code to you, though I didn't
write it with the idea of anyone looking at it, and comments may be sparce.
--
Danny J. Lesandrini
(e-mail address removed)
http://amazecreations.com/datafast


I have been using Access for a while (as well as other relational databases)
and although not very proficient, I would like to be able to create web
pages to enter data in my Access tables (xp ver).

In my test database a simple expenses database I have a form producing a
pick list linking to another table. How can I do this in a web page? I
have not found much help within Access for doing this. Can any one point me
in the right direction?

Thanks

R

eg.

Client Name Pick
_________________
Private Sub Combo24_DblClick(Cancel As Integer)
On Error GoTo Err_Combo24_DblClick
Dim lngClientNameID As Long

If IsNull(Me![ClientNameID]) Then
Me![ClientNameID].Text = ""

Else
lngClientNameID = Me![ClientNameID]
Me![ClientNameID] = Null
End If
DoCmd.OpenForm "frmClients", , , , , acDialog, "GotoNew"
Me![ClientNameID].Requery
If lngClientNameID <> 0 Then Me![ClientNameID] = lngClientNameID

Exit_Combo24_DblClick:
Exit Sub

------------------------------------------------------------------------
Err_Combo24_DblClick:
MsgBox Err.Description
Resume Exit_Combo24_DblClick
End Sub
Private Sub Combo24_NotInList(NewData As String, Response As Integer)
MsgBox "Double-click this field to add an entry to the list."
Response = acDataErrContinue
End Sub
Click to expand...
Click to expand...
 
Back
Top