Recent content by btp111

Run Time Version with Limited Capability Hi, Yes a runtime version would be great. I did not know this was an option. Do you know where I can find information on how to create a run time version with limited functionality? Thanks again.

Question on Startup Options Hi Namliam, I have one question. I believe I can disable the shift key but couldn't all users go to the Office button --> go to Access Options and change the default Options I set up on this DB? Is there any way to disable this so that the user cannot get to...

Hello, I have an Access Database that connects to a split back end database. I have 2 tables that link to the backend tables. I need to secure the links to the DB. Right now, you can double click on the table and enter in any information. I want to use the table to view data from but I don't...

Creating a Secure Program in Access Hi Pat, I am also worried about the user who may go to the Access Options and recheck the Navigation Pane. Does anyone know of a program you can buy that may be able to make a group of Forms in an Access file to absolutely stop this from occurring or any...

Namliam, Thank You. I tried to make the ACCDE file and it errored out with the following error: This error is usually associated with compiling a large database into an MDE file. Because of the method used to compile the database, a considerable number of TableID references are created for...

Hi, I have a new program and this is the first one I have made in MS Access 2007. I have split the DB so I only have links on the Front End to the BAck End Database. I want my users to only see the forms and never see the DB Links. I have tried going to Office Button --> Access Options -->...

Change to function Hi Mearle, I changed the module to the following: Public Function RelinkDB() Dim cnlink As New ADODB.Connection Dim cnlink As New ADODB.Connection Dim rst As ADODB.Recordset Dim strConnectionString As String Dim strSQL As String Set cnlink = New...

Call Relink DB function Hi Mearle, I put relinkdb.relinkdb in the Autoexec but it still says it Cannot find the function. If it doesn't make any difference then I won't worry about trying to get this to work. Thanks again.

Relink Function Mearle, I tried to run the code below in the Immediate window to one of the tables that I am working with: ?DBEngine.Workspaces(0).Databases(0).TableDefs("F4101").Connect F4101 is the table name, however; it says Item Not Found in this Collection. Any add'l ideas on this are...

Link Function Thank you Mearle. I just relinked and it worked but I thought if the database restarts (reboot), etc... you have to sign in again. Is this not the case as are as you know. Is there a better way using VBA to establish this link? Also, I have changed the module to be as follows...

Hello, I am in need of a function that will automatically link to my SQL DB upon logging into the App. I have set up an AUTOEXEC command that calls a module. In the module I have the following code: Dim cnlink As New ADODB.Connection Dim cnlink As New ADODB.Connection Dim rst As...

Thanks Thanks for the help. I ended up (probably not the best way) using a local table to grab my data and increment the manualautonumber. The code is below: im LocalConnection As New ADODB.Connection Set LocalConnection = CurrentProject.AccessConnection Dim rsAdd As New ADODB.Recordset If...

Problem with Creating Unique Number 91 : Object variable or With block variable not set Hi Doco, I have put that statement into the code and the error is above. I am not sure why I would be getting this error. Any insight is greatly appreciated. Bob, I am not sure how I would use a DMAX...

Still returning a 1 to the text box Peter. Thanks but I tried changing those 2 lines and ran the app again but it still errors out. The only way I know is that the txt field is set to a 1 and not the Max # that I expected. Any other suggestions? Thanks Again

Hi, I have the below function that I thought would pull the Max # out of a field in my SQL table. strSQL = "Select (Max(ManualAutoNumber))+1 from ManualNextNumber" Public Function UniqueNumber() As Integer On Error GoTo Err_UniqueNumber Dim cn As ADODB.Connection Dim rs As...