When viewed in web matrix the vb code appears thru the code tab
and ditto for the html code there is no separate vb file created.
For clarification we have two fields incidentnamealpha (text) and
incidentname (integer) when we converted to a SQL backend we
implemented incidentname for improved performance if we get a
large client all our forms are linked this way then contain subforms with related data.
we have standardized the link between forms on
IncidentName but my son (works remotely)
was trying IncidentnameAlpha as well.. not the preferred option.
I have attached the mods we have done to connection string for you
to check
'SQL connection
databasespec="Provider=Sqloledb;Data Source=(Local);Initial Catalog=AIMSxpSQL;integrated security = SSPI"
keyname="IncidentName"
'SQL Control Source
controlsource ="SELECT *FROM dbo.tblMainDetails"
This is the current form link (the other forms work oK when opened directly)
Sub BtnRequestAssistance_Click(sender As object,e As System.EventArgs)
Response.Redirect("frmCtlMainRequestAssistance.aspx?IncidentName=" & IName )
End Sub
Are we getting a clash from the select command already on the second form?
controlsource ="SELECT *FROM dbo.tblMainDetails"
Does the Request.QueryString replace it when linked from Main form
This is the Page Load section on a second form as per the above example
with your suggested code at top
Private Sub Page_Load(sender As object, e As System.EventArgs)
Dim Incident as Integer
Incident = Request.QueryString("IName"
If(Not IsPostBack)Then
Call SetDataFile()
ButtonFirst.Enabled=ButtonLast.Enabled=True
xnrs=OpenDatabaseX(controlsource,databasespec)
xcurr=0
Call SetComboBoxes(-1)
Call SetListBoxes(-1)
Selection.Text=""
Call SetKeyList()
ithrec=0
If(xmrs>0)Then
ithrec=1
xKeyList.SelectedIndex=0
xcurr=GetIndex(ithrec)
Call FillForm(xcurr)
ButtonPrev.Enabled=False
End If
Labeltotal.Text=" of " & xmrs.ToString()
End If
End Sub
Sub ButtonClose_Click(sender As object, e As System.EventArgs)
Try
xdatamode=0
If(Not IsDBNull(Request.Params("u"

))Then Server.Transfer(Request.Params("u"

& ".aspx"

Catch ex As Exception
End Try
End Sub
I hope this helps....Cheers Ken