473,241 Members | 1,608 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,241 software developers and data experts.

Referencing Microsoft Access Forms in a .dll

Can

I have a Microsoft Access front end, SQL server backend and I am using .dll
files to complete the n-tier application. How do I reference an unbound
textbox (from Microsoft Access) in the .dll?

In the code below it does not recognize
Forms!SQL_Server_Prompt
Patient_Hospital_ID -> unbound textbox in a MS Access form
Select_Waiting_List -> unbound textbox in a MS Access form
Select_OR_Completed -> unbound textbox in a MS Access form
Select_Billing_Completed -> unbound textbox in a MS Access form

For example:

Imports System.net
Imports System.IO
Imports ADODB
Imports System.Data
Imports System.Data.OleDb
Imports CardiacSurgeryData.DataAccess

Public Class CardiacSurgeryPatients

Private Const conModuleName As String = "CardiacSurgeryPatients"

Public Function GetRstPatient_ID( _
ByVal ConnectionString As String, _
ByVal Patient_Hospital_ID As String, _
ByVal Select_Waiting_List As String, _
ByVal Select_OR_Completed As String, _
ByVal Select_Billing_Completed As String) As ADODB.Recordset
On Error GoTo Handle_Err

Const conProcName = conModuleName & ".GetRstPatient_ID"
Dim rst As ADODB.Recordset
Dim da As CardiacSurgeryData.DataAccess

' Use another middle-tier object to run a stored procedure and
return a disconnected, read-only recordset.
da = New CardiacSurgeryData.DataAccess
rst = da.GetRstFromSPwQuadrupleInputParam( _
ConnectionString:=Forms!SQL_Server_Prompt.OLEDBCon nect, _
StoredProcName:="pPatientList_ID", _
RstLockType:=ADODB.LockTypeEnum.adLockReadOnly, _
ParamDataType1:=ADODB.DataTypeEnum.adWChar, _
ParamSize1:=9, _
ParamValue1:=Me.Patient_Hospital_ID, _
ParamDataType2:=ADODB.DataTypeEnum.adWChar, _
ParamSize2:=12, _
ParamValue2:=Me.Select_Waiting_List, _
ParamDataType3:=ADODB.DataTypeEnum.adWChar, _
ParamSize3:=13, _
ParamValue3:=Me.Select_OR_Completed, _
ParamDataType4:=ADODB.DataTypeEnum.adWChar, _
ParamSize4:=16, _
ParamValue4:=Me.Select_Billing_Completed)
GetRstPatient_ID = rst
rst = Nothing
da = Nothing

Exit_Here:
Exit Function
Handle_Err:
Select Case Err.Number
Case Else
Err.Raise(Err.Number, conProcName, Err.Description,
Err.HelpFile, Err.HelpContext)
End Select
Resume Exit_Here
Resume
End Function

End Class

This may sound complicated but the theory was we had a bunch of MS Access
databases and want to convert them to SQL. We still want to use the MS
Access frontends but we want to create as much flexibility for the future, a
lot of this databases will probably become web-based.

Thanks,

Candace
Nov 21 '05 #1
2 2258
It looks to me like you just need to pass the text value of those text
boxes, not a reference to the actual textbox.

Tom

Can wrote:
I have a Microsoft Access front end, SQL server backend and I am using .dll
files to complete the n-tier application. How do I reference an unbound
textbox (from Microsoft Access) in the .dll?

In the code below it does not recognize
Forms!SQL_Server_Prompt
Patient_Hospital_ID -> unbound textbox in a MS Access form
Select_Waiting_List -> unbound textbox in a MS Access form
Select_OR_Completed -> unbound textbox in a MS Access form
Select_Billing_Completed -> unbound textbox in a MS Access form

For example:

Imports System.net
Imports System.IO
Imports ADODB
Imports System.Data
Imports System.Data.OleDb
Imports CardiacSurgeryData.DataAccess

Public Class CardiacSurgeryPatients

Private Const conModuleName As String = "CardiacSurgeryPatients"

Public Function GetRstPatient_ID( _
ByVal ConnectionString As String, _
ByVal Patient_Hospital_ID As String, _
ByVal Select_Waiting_List As String, _
ByVal Select_OR_Completed As String, _
ByVal Select_Billing_Completed As String) As ADODB.Recordset
On Error GoTo Handle_Err

Const conProcName = conModuleName & ".GetRstPatient_ID"
Dim rst As ADODB.Recordset
Dim da As CardiacSurgeryData.DataAccess

' Use another middle-tier object to run a stored procedure and
return a disconnected, read-only recordset.
da = New CardiacSurgeryData.DataAccess
rst = da.GetRstFromSPwQuadrupleInputParam( _
ConnectionString:=Forms!SQL_Server_Prompt.OLEDBCon nect, _
StoredProcName:="pPatientList_ID", _
RstLockType:=ADODB.LockTypeEnum.adLockReadOnly, _
ParamDataType1:=ADODB.DataTypeEnum.adWChar, _
ParamSize1:=9, _
ParamValue1:=Me.Patient_Hospital_ID, _
ParamDataType2:=ADODB.DataTypeEnum.adWChar, _
ParamSize2:=12, _
ParamValue2:=Me.Select_Waiting_List, _
ParamDataType3:=ADODB.DataTypeEnum.adWChar, _
ParamSize3:=13, _
ParamValue3:=Me.Select_OR_Completed, _
ParamDataType4:=ADODB.DataTypeEnum.adWChar, _
ParamSize4:=16, _
ParamValue4:=Me.Select_Billing_Completed)
GetRstPatient_ID = rst
rst = Nothing
da = Nothing

Exit_Here:
Exit Function
Handle_Err:
Select Case Err.Number
Case Else
Err.Raise(Err.Number, conProcName, Err.Description,
Err.HelpFile, Err.HelpContext)
End Select
Resume Exit_Here
Resume
End Function

End Class

This may sound complicated but the theory was we had a bunch of MS Access
databases and want to convert them to SQL. We still want to use the MS
Access frontends but we want to create as much flexibility for the future, a
lot of this databases will probably become web-based.

Thanks,

Candace

Nov 21 '05 #2
Can

Thanks. How do I pass the text value of those text boxes?
"tomb" wrote:
It looks to me like you just need to pass the text value of those text
boxes, not a reference to the actual textbox.

Tom

Can wrote:
I have a Microsoft Access front end, SQL server backend and I am using .dll
files to complete the n-tier application. How do I reference an unbound
textbox (from Microsoft Access) in the .dll?

In the code below it does not recognize
Forms!SQL_Server_Prompt
Patient_Hospital_ID -> unbound textbox in a MS Access form
Select_Waiting_List -> unbound textbox in a MS Access form
Select_OR_Completed -> unbound textbox in a MS Access form
Select_Billing_Completed -> unbound textbox in a MS Access form

For example:

Imports System.net
Imports System.IO
Imports ADODB
Imports System.Data
Imports System.Data.OleDb
Imports CardiacSurgeryData.DataAccess

Public Class CardiacSurgeryPatients

Private Const conModuleName As String = "CardiacSurgeryPatients"

Public Function GetRstPatient_ID( _
ByVal ConnectionString As String, _
ByVal Patient_Hospital_ID As String, _
ByVal Select_Waiting_List As String, _
ByVal Select_OR_Completed As String, _
ByVal Select_Billing_Completed As String) As ADODB.Recordset
On Error GoTo Handle_Err

Const conProcName = conModuleName & ".GetRstPatient_ID"
Dim rst As ADODB.Recordset
Dim da As CardiacSurgeryData.DataAccess

' Use another middle-tier object to run a stored procedure and
return a disconnected, read-only recordset.
da = New CardiacSurgeryData.DataAccess
rst = da.GetRstFromSPwQuadrupleInputParam( _
ConnectionString:=Forms!SQL_Server_Prompt.OLEDBCon nect, _
StoredProcName:="pPatientList_ID", _
RstLockType:=ADODB.LockTypeEnum.adLockReadOnly, _
ParamDataType1:=ADODB.DataTypeEnum.adWChar, _
ParamSize1:=9, _
ParamValue1:=Me.Patient_Hospital_ID, _
ParamDataType2:=ADODB.DataTypeEnum.adWChar, _
ParamSize2:=12, _
ParamValue2:=Me.Select_Waiting_List, _
ParamDataType3:=ADODB.DataTypeEnum.adWChar, _
ParamSize3:=13, _
ParamValue3:=Me.Select_OR_Completed, _
ParamDataType4:=ADODB.DataTypeEnum.adWChar, _
ParamSize4:=16, _
ParamValue4:=Me.Select_Billing_Completed)
GetRstPatient_ID = rst
rst = Nothing
da = Nothing

Exit_Here:
Exit Function
Handle_Err:
Select Case Err.Number
Case Else
Err.Raise(Err.Number, conProcName, Err.Description,
Err.HelpFile, Err.HelpContext)
End Select
Resume Exit_Here
Resume
End Function

End Class

This may sound complicated but the theory was we had a bunch of MS Access
databases and want to convert them to SQL. We still want to use the MS
Access frontends but we want to create as much flexibility for the future, a
lot of this databases will probably become web-based.

Thanks,

Candace

Nov 21 '05 #3

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

5
by: Tony Williams | last post by:
I have a form on which there is a tabcontrol and on this onr of the tabpages is a tick box which opens Outlook with data from the main form and prompts the user to amend the message before being...
2
by: William Wisnieski | last post by:
Hello Everyone, Access 2000 I have a main form with a continuous subform. On the main form I have a text box that references a field on the subform. What I'd like it to do is show the value...
2
by: Sean Mullaly | last post by:
I have a custom Access menu with sub-menus and sub-sub-menus. (220 items). Right now I have created 220 Functions and attached each individual Function to the specific OnAction property. The...
4
by: mplogue | last post by:
I have a form (frmMain) with a subform (frmSub), each with enumerated fields of the same name (txt1, txt2, etc). I'm trying to make a function that will take the values for each field in frmMain,...
12
by: Mark Broadbent | last post by:
Hi guys, just going through remoting at the moment and a couple of questions relating to .net in general has surfaced. Firstly I have seen in the designer that for the namespace and many of its...
7
by: Dave | last post by:
I have two forms, Form1 and Form2. From Form2, how do I reference the value in a control on Form1? Or perhaps a more specific question: Form1 contains a textbox with the value of 10. This form...
3
by: Jozef | last post by:
Hi Folks! I'm trying to reference a specific table using the containers collection. I'm trying to use my help file to find out more about how to accomplish this, but for some reason, when I...
9
by: Alan | last post by:
Hmmm, I'm not too good with the syntax of referencing a subreport. I have frmInvoice which has the invoice details (e.g. ProductCode, ProductCost etc) in the subform frmInvoiceDetails. I'm trying...
2
by: Matt | last post by:
Ok here is my problem: I have a MDI parent form called "Main" that I declare in a public module when I start up my program. This form holds the drop down menu that allows my users to access all...
0
by: jianzs | last post by:
Introduction Cloud-native applications are conventionally identified as those designed and nurtured on cloud infrastructure. Such applications, rooted in cloud technologies, skillfully benefit from...
0
by: abbasky | last post by:
### Vandf component communication method one: data sharing ​ Vandf components can achieve data exchange through data sharing, state sharing, events, and other methods. Vandf's data exchange method...
0
by: fareedcanada | last post by:
Hello I am trying to split number on their count. suppose i have 121314151617 (12cnt) then number should be split like 12,13,14,15,16,17 and if 11314151617 (11cnt) then should be split like...
0
by: stefan129 | last post by:
Hey forum members, I'm exploring options for SSL certificates for multiple domains. Has anyone had experience with multi-domain SSL certificates? Any recommendations on reliable providers or specific...
1
by: davi5007 | last post by:
Hi, Basically, I am trying to automate a field named TraceabilityNo into a web page from an access form. I've got the serial held in the variable strSearchString. How can I get this into the...
0
by: MeoLessi9 | last post by:
I have VirtualBox installed on Windows 11 and now I would like to install Kali on a virtual machine. However, on the official website, I see two options: "Installer images" and "Virtual machines"....
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: Aftab Ahmad | last post by:
So, I have written a code for a cmd called "Send WhatsApp Message" to open and send WhatsApp messaage. The code is given below. Dim IE As Object Set IE =...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.