Export Access Form to Web

[softboy12]

Hi all

I have sucessfully created a Access Form, which works fine in Access inside (Search and List Buttons etc)

but if a export this form to a html or asp Page the functionality will be gone

--> i can't search and the form shows only the empty table

why does this occur?

how can i easly made a webbased Access Form

thanks in advance for your trouble

best regards

E.Altherr

 

[SiJP]

Hia,

Simply putting an access for in a HTML format will not render it usable. The server the form is hosted on will not understand your VBA code.. it needs something else - enter Access Data Pages (ADP's).

Depending what access version you have, I believe Access XP has a tool for converting access forms to ADP's which are 'forms for the web' if you like), though how acurate this is, I dont know.

Access 2000 does allow you to create ADP's yourself but they are different to creating Forms.

The other method which may be useful is to create ASP pages yourself, and code connections on this page to your access db. There is plenty of beginners support for asp pages.. try this for example:

http://www.webwizguide.info/asp/tutorials/first_asp_page.asp

- then -

http://www.webwizguide.info/asp/tutorials/connecting_to_a_database.asp

Hope this info helps...

 

[softboy12]

thanks SIJP i will look how i can resolve this

other question:

still the same Form, but now i have the following problem
in access
(see code below)


------------------------------------------------------------
Private Sub Befehl37_Click()
DoCmd.Close
End Sub

Private Sub Bezeichnungsfeld138_Click()

Dim selectPntStr As String
Dim selectSubStr As String
Dim selectSynStr As String
Dim selectStr As String
Dim insertPntStr As String
Dim insertSubStr As String
Dim insertSynStr As String
Dim insertStr As String
Dim deleteStr As String

selectStr = "SELECT " & _
"ID, Domain, TLD, LoginName, Passwort, Service, Kundennummer, FK_ID_Server, Erfasst_am, gesperrt, Bemerkungen, alte_infos, alg_infos, best_anm, Reseller, Reseller_nummer, Anrede_best, Firma_best, Nname_best, Vorname_best, Strasse_best, Postfach_best, PLZ_best, Ort_best, Telefon_best, Fax_best, Land_best, Email_best, Anrede_re, Firma_re, Nname_re, Vorname_re, Strasse_re, Postfach_re, PLZ_re, Ort_re, Telefon_re, Fax_re, Land_re, Email_re, Anrede_tec, Firma_tec, Nname_tec, Vorname_tec, Strasse_tec, Postfach_tec, PLZ_tec, Ort_tec, Telefon_tec, Fax_tec, Land_tec, Email_tec, Kontrolliert, erfasst_durch, MXrecord, Survey, sperrdatum " & _
"FROM dbo_Kunden " & _
"WHERE ID=" & Me![ID]
selectPntStr = "SELECT " & _
"ID_Point, Pointing, FK_ID_Kunde " & _
"FROM dbo_Pointings " & _
"WHERE FK_ID_Kunde=" & Me![ID]
selectSubStr = "SELECT " & _
"ID_Sub, Subdomain, Pfad, FK_ID_Kunde " & _
"FROM dbo_Subdomains " & _
"WHERE FK_ID_Kunde=" & Me![ID]
selectSynStr = "SELECT " & _
"ID_Synonym, Synonym, FK_ID_Kunde " & _
"FROM dbo_Synonyme " & _
"WHERE FK_ID_Kunde=" & Me![ID]

insertStr = "INSERT INTO dbo_delKunden (" & _
"ID, Domain, TLD, LoginName, Passwort, Service, Kundennummer, FK_ID_Server, Erfasst_am, gesperrt, Bemerkungen, alte_infos, alg_infos, best_anm, Reseller, Reseller_nummer, Anrede_best, Firma_best, Nname_best, Vorname_best, Strasse_best, Postfach_best, PLZ_best, Ort_best, Telefon_best, Fax_best, Land_best, Email_best, Anrede_re, Firma_re, Nname_re, Vorname_re, Strasse_re, Postfach_re, PLZ_re, Ort_re, Telefon_re, Fax_re, Land_re, Email_re, Anrede_tec, Firma_tec, Nname_tec, Vorname_tec, Strasse_tec, Postfach_tec, PLZ_tec, Ort_tec, Telefon_tec, Fax_tec, Land_tec, Email_tec, Kontrolliert, erfasst_durch, MXrecord, Survey, sperrdatum " & _
") " & selectStr
insertPntStr = "INSERT INTO dbo_delPointings (" & _
"ID_Point, Pointing, FK_ID_Kunde" & _
") " & selectPntStr
insertSubStr = "INSERT INTO dbo_delSubdomains (" & _
"ID_Sub, Subdomain, Pfad, FK_ID_Kunde" & _
") " & selectSubStr
insertSynStr = "INSERT INTO delSynonyme (" & _
"ID_Synonym, Synonym, FK_ID_Kunde" & _
") " & selectSynStr

deleteStr = "DELETE FROM dbo_Kunden " & _
"WHERE ID=" & Me![ID]
If MsgBox("Wollen Sie diesen Datensatz wirklich in den Papierkorb werfen?", vbYesNo, "In den Papierkorb werfen") = vbYes Then
DoCmd.SetWarnings (False)
DoCmd.RunSQL insertStr
DoCmd.RunSQL insertPntStr
DoCmd.RunSQL insertSubStr
DoCmd.RunSQL insertSynStr

DoCmd.RunSQL deleteStr
DoCmd.Close
DoCmd.SetWarnings (True)
End If
End Sub

Private Sub Domain_Click()

End Sub





Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub Befehl107_Click()
On Error GoTo Err_Befehl107_Click

Dim stDocName As String

stDocName = "Datenblatt_Linux"
DoCmd.OpenReport stDocName, acPreview, , "[ID]=" & Me![ID]

Exit_Befehl107_Click:
Exit Sub

Err_Befehl107_Click:
MsgBox Err.Description
Resume Exit_Befehl107_Click

End Sub
Private Sub Befehl108_Click()
On Error GoTo Err_Befehl108_Click

Dim stDocName As String

stDocName = "Datenblatt_NT"
DoCmd.OpenReport stDocName, acPreview, , "[ID]=" & Me![ID]

Exit_Befehl108_Click:
Exit Sub

Err_Befehl108_Click:
MsgBox Err.Description
Resume Exit_Befehl108_Click

End Sub

Private Sub Kombinationsfeld148_BeforeUpdate(Cancel As Integer)

End Sub


Private Sub Kombinationsfeld148_Click(Cancel As Integer)
If Me![BS] = "Linux" Then
Me.Befehl108.Visible = False
Me.Befehl107.Visible = True
ElseIf Me![BS] = "NT" Then
Me.Befehl107.Visible = False
Me.Befehl108.Visible = True

End If
End Sub

Private Sub Kombinationsfeld148_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub

-----------------------------------------------------------

if i open the form above it works, except the following:

if a choose a domain from the unbounded list it shoud automatically check on which BS (Betriebssystem) the domain is installed and the give the user the ability to generate the approriate DataSheet, but this doesn't work why?

i also double checked the sql query's etc, but this doesn't solve my problem

thanks for your help

best regards

Elvis

 

[SiJP]

Are you receiving any particular error messages? If so, at what point does the code break?

 

[softboy12]

no there is no error message, so the code seems to be working fine, but it dosen't do what i expected

 

[SiJP]

From your code it looks like a user selects either Linux or NT from a combo, this combo should then change your command buttons to hidden or visable.

Your command buttons (when clicked) then run reports from there.

So at which point does it not work? Do the buttons change to be visable/hidden ok? Is it when you click the button?

:0)

 

[softboy12]

well if i choose a Domain (and if the criteria [BS] is like Linux the command button "NT Datenblatt" will be invisble and the button "Linux Datenblatt" appears, but after i choose a Domain on which the criteria is [BS] = "NT" then button "Linux Datenblatt" still will be there and the button "NT Datenblatt" does not appear

maybe there is something wrong with the logical flow, i don't know?

 

[SiJP]

Private Sub Kombinationsfeld148_Click(Cancel As Integer)
If Me![BS] = "Linux" Then
Me.Befehl108.Visible = False
Me.Befehl107.Visible = True
ElseIf Me![BS] = "NT" Then
Me.Befehl107.Visible = False
Me.Befehl108.Visible = True

1) Make sure that the value's of [bs] are 'Linux' and 'NT'
2) Make sure that the command button NT Datenblatt is called 'Befehl108'
3) Try changing the Kombinationsfeld48 to an On Update event, rather than the on click event you currently have

Let me know how you get on..