Hello,
I have finished a program with ACCESS 2007 (VBA) at work. Now, my boss wants his employees to use it from different computers. What would I have to do to make this work?? I suppose ACCESS has a runtime version or executable that I can install on every computer of the company? Or do I have to install ACCESS 2007 on every terminal (which would be very bad by the way)?? I would appreciate it if somebody would give me a hand on this since I have never done this before.
it is possible to Open access application like desk application done with java or vb, or install access application as exe or similar methods. My requirements is to giving a access application to customer with data base for printing an invoice. when he running the aplication he can see access open and tables, queries forms left hand. how to hide these thing ?
so i buckled down and bought the developer extensions. this has been very good, but there have been a few drawbacks.
drawback number 1: when the user opens the program, they receive all sorts of security warnings. i can't turn this off from inside the deployed program, and i can't figure out how to turn it off on the development end. i know i just need to go into security and set the macro warning level to low, but it won't let me. the program has worked from here, but this is highly annoying.
drawback number 2: i don't know how to have the users update the program without having them completely uninstall their current one and reinstall the new one. i know there's some kind of update key and product key (both of which i wrote down), but i don't know how to make an executable "update" program (kind of like the way video games update, with patches and whatnot).
drawback number 3: in order to have the program connect to the server, i need to load the program first onto the server as an mdb, then use the developer extensions on there once i've relinked all the tables (i don't have an S: drive). is there any way that this can be done automatically (link to a drive that isn't on your local machine)?
feedback/suggestions to any of these are greatly appreciated.
I will have to deploy my access application that I have built with Access 2003 english version on an Access 2003 French version. I wondered whether there could be a problem because of the difference of the language?
I have a problem with my DB once it gets deployed. I include the Access runtime using the Deployment Wizard but when we install it and open the DB it give us "May contain harmfull Macron. Please install Jet engine 8.0" Then it continues on to say "the application may contain harmful macros do you wish to continue?" we say yes but still no luck. We updated the jet engine but no luck there either. The DB opens but some of the code that brings up pictures on the "on load" event, isn't working. It works on computers that have access installed but not on the Run-time installations. Any suggestions. You guys have helped so much in the past to get me this far in my Access career and this one needs answered quick.
Hi guys, I hope somebody can give me a quick step-by-step.
I've nearly completed a program written in Access and have started to venture into marketing the program to a local company. When asked what other modifications they would like to see i was sent an email stating;
"A major item would be to deploy in MS SQL. You should be able to do that free of charge with the low tier version of SQL."
I had a feeling this would come up, but I don't want to sound like a total idot when talking to these folks... I really have no true understanding of what they are asking, but I suspect it refers to conversion from jet. Question: Is this a reasonably easy modification? What do I need to purchase? Would I be better off telling them the program is 'as-is'? Can this be easily done by someone who has never done it before? I'm sure other threads addressed this issued but I would truly appreciate a full understanding of my specific problem. Thanks, Scott.
I have Office 2000 Developer installed on my workstation at work and need to create an executable to deploy to other workstations that do not have MS Access. I'm using Access 2000 and the few that have the runtime installed already have Access 97 runtime.
When I execute the Package and Deployment Wizard I click on the checkbox for "Include Access Runtime". When it creates the package, however, the runtime is not included. I have verified that the runtime is on my hard drive. The CAB file is only about 10 Mb - the same size it was before I tried to create an executable that included the runtime module.
Any suggestions on what I am doing wrong? The size of the module created by including the runtime is not a concern at this time. I just need to get this application deployed for a mission-critical analysis task.
I have followed the very informative postings here on security and deploying a multi user access application and have started doing that myself. A lot has worked but there are a few things that are not working out right and I just wanted to get some clarification on that. Hopefully this will benefit others in my situation as well.
1. First, I put security into the database by creating multiple users some with Admin and some with user priviledges.
2. I created a different workgroup file (product.mdw)
3. I then split the db to front and backend. I used UNC to nk tables from FE to BE
4. I put the BE on a shared network folder along with product.mdw. The reason is I am still developing the app and may also need to tweak the user permission settings, so thought of putting teh .mdw file on a server rather than putting it on each users machine for now. I am then using a shortcut on each user's machine that references this .mdw file on the server
5. I also have the FE on the server for now and created a shortcut on each user's desktop (I am doing this for now so that I donot need to put the FE on each users machine every time I change something. this is temporary for a few weeks till I finish development. After that I plan to put the FE on each user's machine)
The problem I am facing is that after putting the shortcut in a user's machine, if the user even wants to open any local Access db on their machine (not my app), it is now asking for a UID and passwd.
Now, when I put the shortcut on the user's desktop (to repeat, I referenced the FE, and .mdw file on the network folder in the shortcuts Target settting), should I have done anything else on the user's machine. After just putting the shortcut on the desktop, the user could click on it and go directly into my database without any UID and passwd though I have security in my db. The I went to the user's Access install and changed the workgroup file to the one on the network folder (through Tools - Security -Workgroup Info ...). Was that necessary because I had alsready put in all the necesary parameters in the shortcut's Target setting?
I guess I am missing someting about how the .mdw file associates with Access. When you define a .mdw file in the Tools - Security - Workgroup ,..) setting, does that associate with a particular DB or for any db that this Access install brings up? If so, then how does one get aorund the problem of deployment to user's desktop where the users could be having their own local Access DB's that they use without a password but need to use a password to access a DB on the network. I cannot imagine that because I require the user to use a password for my db on the network means that I have to tell them that they need to use a password for any DB they use in their machine from now on.
Please let me know where I am going wrong. Thank you
I've designed an access ade file (based on sql server) and distributed it at the network.
Somebody else has made another database (mdb) and placed the users in a access workgroup file by placing their windows logons into the workgroup file. These users happen to be the same users accessing my application. The following thing is happening : "when the users open my database they are prompted their user names and password of the workgroup file'.
I placed an empty database and the same thing is happening, the workgroup security is active alongside every database deployed to this specific user group.
How can I easily 'tell my database' it shouldn't make use of the workgroup security?
(It's odd that an ade which isn't able to use workgroup security prompts users by using workgroup security)
Some time ago I saw a presentation of access 2007. It got me very enthousiastic. But before I start working with it I want to know if it is possible to deploy Stand alone applications I am gonna build in Access 2007? And how???
Apologies if this has been covered before - I promised I have searched and not found an answer.
I have just purchased the Access Development Extensions so that I can deploy my database's to users without Access. So far, I've managed to create an intallation file fine. Hwever, the database is to be used by multiple people and needs to be split.
If I create the runtime application of the frontend, all of the tables point to the backend on "my computer". I then need to give it to my client who will store the backend on thier server. How do I then make the front end (all locked becuase it's runtime) point to the backend in the new location?
I hope that makes sense.
I'm supposed to be installing this tomorrow, so any help would be much appreciated
We have an extensive reporting application in Access and would like it to be available through a web application. I've went down the road of migrating this application to SQL to use SQL Reporting Services; this is a good tool but I am wondering if MS Access has an easier solution for me other than migration to SQL.
I'm looking for a solution that will make these reports available over the web for many users. Price tag is a consideration...need to know if there is any.
Please help...thanks in advance for any thoughts!!!!
I have a database that I've split and have deployed to 7 persons.
The thing is, I have three (3) forms:
Form 1 Form 2 Form 3
...that require changing a portion of a line in each form's respective VBA codes. I need to change the directories to where an excel workbook is stored after exporting, and another is where same excel is moved to after being uploaded.
At the moment, during deployment I have to manually change the directories.
I was thinking of maybe a pop-up form with four (4) fields that allows the user to select his/her name at the start-up of their frontend app, and paste the directories in the other text boxes provided.
This information will then be used to replace the directories in the VBA.
If I were to make changes and have to redeploy, I would have to do everything manually again.
my post at www.thescripts.com was deleted. It seems they don't really want a true deployment solution help to all ms access developer.
Ms access is a true king RAD DB frontend dev't. tool but the deployment of the finish apps are very unstable.
Sagekey is almost there, but I want to make a single EXE on my Access Apps that run even on the usb flash disk.
I have already found the solution, perfectly done! using one of the tools available in the web. but I will not post it again, I'm afraid this post will be deleted again... I hope this forum truly helps.
When putting together the final application, you don't want the user to see all the usual default menu options.
1) Which access items should I hide?
2)Let's say I make some modifications after we go live. How can I get the new forms, modules or whatever to the .mdb in use? Would I just delete the tables in the modified .mdb and then import (File/Get External Date/import) the tables with the live data?. It's not a split db, btw.
3) Are there any other options or procedures I should think about for maintainence? For instance, right now I use the compact on close option which has proved to be very useful.
Can anyone point me in the right direction to produce an application diagram.
Sort of a map of an app, what data it hold in laymans terms rathers than table and field definitions. What forms do what, and how the whole application fits together.
Hi, I have a large database containing information that people all over the country want to access. I've designed a main form that contains 3 subforms that queries information from raw data. Now that the database is complete, i'm looking for the best way to distribute it. I've tried to put it on the network drive, but it has been rediculoursly slow. Could somebody tell me what would be the best way to do this? Thanks!
I do not want any menu bar in some application I have made using a switchboard. In the start-up function I unchecked all the checkboxes but some menu functions keep coming back. How can I overrule this?
Hi All! I have created access Application and would like to document it. Do u guys have any samples, or maybe you have documented some aplication before...
I have developed an application which I want to keep safe from being tampered with by user.s So once a .mdb database application has been developed what is the best way to then distribute the application to a client (customer who has paid for the application) so that the application can't then be tampered with ?
I just developed an application and now I want to distibute it. I want to work with licenties and I also want to make shure the software can only be installed according to the number of licences.
Dear all, have tried searching many sites but of no help. hope this is the right place to ask my query.
I would like to develop an application with the help of which I can make phone calls through my PC (windows 2000) and record calls as required. I have come to know that TAPI is the technology to use. However how do i start and what are the requisites.
I have been asked to make changes to an app that is WAY more complicated than anything I've ever done. The changes themselves are no problem (add 3 new fields to each of two tables and modify 2 forms and a report). The problem is after I make the changes the app doesn't work. The database (even stripped of all but 10 records) is too big to upload here. (2.5M)
I need to add 2 text fields (Route and Region) each 10 chars. and a yes/no field (Early Delivery) to the Order Head table and the Location table. I need to add those three fields to the Order Head and Location forms and get the info to copy over from the Location table if they select a reception location from the drop down on the Order Head form.
I have at least two possible problems. The first is as soon as I add the fields to the table and the Order Head form the form doesn't open in Data Entry mode. If I change the Data Entry property on the form to Yes, it works (although I think from looking at the code that it should have been set automatically when the New Order button was clicked on the switchboard). The second problem is that once I change the Data Entry property to Yes I can't add records to the subforms (the message is that a record must be added to Order Head first).
So....something I'm doing appears to be circumventing the code that commits the record.
I'd really appreciate any help.
OrderHead Code (I cut a lot out so the message wasn't too big)
Option Compare Database ' Use database order for string comparisons. Option Explicit ' Requires variables to be declared before they are used.
Private Sub cmdAdd_Click() On Error GoTo Err_cmdAdd_Click Me.cmdAdditionalPayment.Visible = False DoCmd.GoToRecord , , acNewRec Me.frmBridalConsultant.SetFocus
Private Sub cmdDelete_Click() On Error GoTo Err_cmdDelete_Click Dim myVar As Variant Me.cmdAdditionalPayment.Visible = False If IsNull(Me.frmRecordStatus) _ Or IsEmpty(Me.frmRecordStatus) _ Or Me.frmRecordStatus = " " Then myVar = OrdersCleanUp(Me.frmOrder) Me.frmRecordStatus = "P" Me.dspRecordStatus = "DELETED" Me.dspRecordStatus.Visible = True 'Me.cmdDelete.Visible = False 'Me.cmdUndelete.Visible = True Me.Refresh Form.Repaint MsgBox ("Order flagged as deleted . . .") Else If Me.frmRecordStatus = "P" _ Or Me.frmRecordStatus = "D" Then MsgBox "Order is already flagged as deleted" Else End If End If
Private Sub cmdSave_Click() On Error GoTo Err_cmdSave_Click
If IsNull(Me.frmReceptionDate) _ Or IsEmpty(Me.frmReceptionDate) _ Or Me.frmReceptionDate = " " Then Else DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Me.Refresh MsgBox ("Order saved . . .") End If
Private Sub Form_Activate() If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_Activate" _ & vbCr & vbLf & "Order=" & Me![frmOrder] Else End If If IsNull(Me![frmOrder]) Then intOrder = 0 Else intOrder = Me![frmOrder] End If If blnPackage Then If Me.cmdAdditionalPayment.Visible = True Then Me![frmTotalAdditionalPayments] = rtnTotalAdditionalPayments(intOrder) Me![dspBalanceDue] = Me![dspTotalCharges] - Me![frmTotalAdditionalPayments] Me.cmdMoney.Visible = True Else Me![frmTotalPayments] = rtnTotalPayments(intOrder) Me![dspBalanceDue] = Me![dspTotalCharges] - Me![frmTotalPayments] Me.cmdMoney.Visible = False End If Else Me![frmTotalPayments] = rtnTotalPayments(intOrder) Me![dspBalanceDue] = Me![dspTotalCharges] - Me![frmTotalPayments] End If Form.Repaint End Sub
Private Sub Form_AfterInsert() If IsNull(Me![frmReceptionGuests]) Then intGuests = 0 Else intGuests = Me![frmReceptionGuests] End If blnCoveringCharge = False If IsNull(Me![frmLayers]) Then intLayers = 0 Else intLayers = Me![frmLayers] End If If IsNull(Me![frmTierSets]) _ Or Me![frmTierSets] < 1 Then blnRaised = False Else blnRaised = True End If intLayer = 1 If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_AfterInsert" _ & vbCr & vbLf & "Order=" & Me![frmOrder] _ & vbCr & vbLf & "Guests=" & Me![frmReceptionGuests] _ & vbCr & vbLf & "intLayers=" & intLayers _ & vbCr & vbLf & "blnRaised=" & blnRaised _ & vbCr & vbLf & "intLayer=" & intLayer Else End If End Sub
Private Sub Form_BeforeInsert(Cancel As Integer) If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_BeforeInsert" _ & vbCr & vbLf & "Order=" & Me![Order] Else End If End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer) If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_BeforeUpdate" Else End If End Sub
Private Sub Form_CommandExecute(ByVal Command As Variant) If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_CommandExecute" Else End If End Sub
Private Sub Form_Current() ' MsgBox Me.Name & "Form_Current Order=" & Me.frmOrder If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_Current" _ & vbCr & vbLf & "Order=" & Me![Order] _ & vbCr & vbLf & "NewRecord=" & Me.NewRecord _ & vbCr & vbLf & "DataEntry=" & Me.DataEntry _ & vbCr & vbLf & "AllowAdditions=" & Me.AllowAdditions Else End If If Form.DataEntry Then ' New Order Me![dspMode] = "New Order" 'Me.dspFilter.Visible = False Me.cmdAdd.Visible = True Me.cmdDelete.Visible = True Me.cmdUndelete.Visible = False Me.cmdFilter.Visible = False Me.cmdMoney.Visible = False Me.cmdAdditionalPayment.Visible = False Else ' Order Inquiry Me![dspMode] = "Order Inquiry/Edit" Me.AllowAdditions = False Me.cmdAdd.Visible = False 'Me![dspFilter] = Me.Filter 'Me.dspFilter.Visible = True Me.cmdFilter.Visible = True If IsNull(Me.frmRecordStatus) _ Or IsEmpty(Me.frmRecordStatus) _ Or Me.frmRecordStatus = " " Then Me.cmdDelete.Visible = True Me.cmdUndelete.Visible = False Me.dspRecordStatus = " " Me.dspRecordStatus.Visible = False Else Me.cmdDelete.Visible = False Me.cmdUndelete.Visible = True Me.dspRecordStatus = "DELETED" Me.dspRecordStatus.Visible = True End If End If Me![frmHotelPackage] = Me![dspHotelPackage] If IsNull(Me![frmHotelPackage]) Then Me.cmdMoney.Visible = False Me.cmdAdditionalPayment.Visible = False Else Me.cmdMoney.Caption = "Show Upgrades" Me.cmdMoney.Visible = True End If Me![frmReceptionLocation] = Me![dspReceptionLocation] Me![frmCakeType] = Me![dspCakeType] If IsNull(Me![frmReceptionGuests]) Then intGuests = 0 Else intGuests = Me![frmReceptionGuests] End If Me![dspTotalCharges] = Me![frmCakePrice] _ + Me![frmCoveringCharge] _ + Me![frmFlowersCharge] _ + Me![frmTieringCharge] _ + Me![frmFlatCharge] _ + Me![frmDeliveryCharge] Me![dspBalanceDue] = Me![dspTotalCharges] - Me![frmTotalPayments] If Me![frmCoveringCharge] > 0 Then blnCoveringCharge = True Else blnCoveringCharge = False End If If IsNull(Me.TierSets) Or Me.TierSets < 1 Then blnRaised = False Else blnRaised = True End If 'MsgBox "Trap 3 blnRaised=" & blnRaised, vbInformation intLayer = 0 End Sub
Private Sub Form_DataChange(ByVal Reason As Long) If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_DataChange" _ & vbCr & vbLf & "Reason=" & Reason Else End If End Sub
Private Sub Form_Deactivate() If gTrace Then 'gSequence = gSequence + 1 'MsgBox Me.Name & " " & gSequence & " Form_Deactivate" Else End If End Sub
Private Sub Form_Delete(Cancel As Integer) If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_Delete" Else End If End Sub
Private Sub Form_Filter(Cancel As Integer, FilterType As Integer) If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_Filter" _ & vbCr & vbLf & "FilterType=" & FilterType Else End If End Sub
Private Sub Form_GotFocus() If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_GotFocus" Else End If End Sub
Private Sub Form_Load() If gStartup Then Else gTrace = True gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_Load" End If End Sub
Private Sub Form_LostFocus() If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_LostFocus" Else End If End Sub
Private Sub Form_Open(Cancel As Integer) On Error GoTo Err_Form_Open Dim myFilter As String Dim myBride As String, myCakeType As String, myPackage As String
' MsgBox Me.Name & "Form_Open Current Order=" & Me.frmOrder
If Form.DataEntry Then ' New Order Else ' Order Inquiry If gTrace Then MsgBox ">>>Filter Values" _ & vbCr & vbLf & "Order=" & Forms![OrderFilter]![frmOrder] _ & vbCr & vbLf & "OrderDate=" & Forms![OrderFilter]![frmOrderDate] _ & vbCr & vbLf & "Bride=" & Forms![OrderFilter]![frmBridesLastName] _ & vbCr & vbLf & "Package=" & Forms![OrderFilter]![frmPackage] _ & vbCr & vbLf & "CakeType=" & Forms![OrderFilter]![frmCakeType] _ & vbCr & vbLf & "ReceptionDates=" & Forms![OrderFilter]![rptReceptionDateBegin] _ & "-" & Forms![OrderFilter]![rptReceptionDateEnd] Else End If If Not IsNull(Forms![OrderFilter]![rptReceptionDateBegin]) Then myFilter = "OrderHead.ReceptionDate >= #" _ & Forms!OrderFilter!rptReceptionDateBegin _ & "# And OrderHead.ReceptionDate <= #" _ & Forms!OrderFilter!rptReceptionDateEnd & "#" Else End If If Not IsNull(Forms![OrderFilter]![frmOrder]) Then If IsNumeric(Forms![OrderFilter]![frmOrder]) Then 'Me.Filter = "Order = " & Forms![OrderFilter]![frmOrder] myFilter = "Order = " & Forms![OrderFilter]![frmOrder] Else 'Me.Filter = "Order > 0" myFilter = "Order > 0" End If Else If IsNull(Forms![OrderFilter]![frmBridesLastName]) Then myBride = "*" Else myBride = Forms![OrderFilter]![frmBridesLastName] & "*" End If If myFilter = "" Then If myBride = "*" Then myFilter = "(IsEmpty(BridesLastName) or IsNull(BridesLastName) or BridesLastName like '" & myBride & "')" Else myFilter = "BridesLastName like '" & myBride & "'" End If Else If myBride = "*" Then myFilter = myFilter & " and (IsEmpty(BridesLastName) or IsNull(BridesLastName) or BridesLastName like '" & myBride & "')" Else myFilter = myFilter & " and BridesLastName like '" & myBride & "'" End If End If If IsNull(Forms![OrderFilter]![frmPackage]) Then myPackage = "*" Else myPackage = Forms![OrderFilter]![frmPackage] & "*" End If If myFilter = "" Then If myPackage = "*" Then myFilter = "(IsEmpty(HotelPackage) or IsNull(HotelPackage) or HotelPackage like '" & myPackage & "')" Else myFilter = "HotelPackage like '" & myPackage & "'" End If Else If myPackage = "*" Then myFilter = myFilter & " and (IsEmpty(HotelPackage) or IsNull(HotelPackage) or HotelPackage like '" & myPackage & "')" Else myFilter = myFilter & " and HotelPackage like '" & myPackage & "'" End If End If If IsNull(Forms![OrderFilter]![frmCakeType]) Then myCakeType = "*" Else myCakeType = Forms![OrderFilter]![frmCakeType] & "*" End If If myFilter = "" Then If myCakeType = "*" Then myFilter = "(IsEmpty(CakeType) or IsNull(CakeType) or CakeType like '" & myCakeType & "')" Else myFilter = "CakeType like '" & myCakeType & "'" End If Else If myCakeType = "*" Then myFilter = myFilter & " and (IsEmpty(CakeType) or IsNull(CakeType) or CakeType like '" & myCakeType & "')" Else myFilter = myFilter & " and CakeType like '" & myCakeType & "'" End If End If End If Me.Filter = myFilter Me.FilterOn = True 'Me![dspFilter] = Me.Filter Me.OrderBy = "Order DESC" Me.OrderByOn = True Form.Repaint End If
Private Sub Form_Undo(Cancel As Integer) If gTrace Then gSequence = gSequence + 1 MsgBox Me.Name & " " & gSequence & " Form_Undo" Else End If End Sub
Private Sub Form_Unload(Cancel As Integer) If gTrace Then 'gSequence = gSequence + 1 'MsgBox Me.Name & " " & gSequence & " Form_Unload" Else End If End Sub
Private Sub frmReceptionLocation_AfterUpdate() Dim CurConn As New ADODB.Connection, objRSLocation As New ADODB.Recordset Dim myReceptionLocation As String 'MsgBox Me.Name &" frmReceptionLocation_AfterUpdate", vbInformation If IsNull(Me![frmReceptionLocation]) Then myReceptionLocation = " " Else myReceptionLocation = Me![frmReceptionLocation] End If Me![dspReceptionLocation] = myReceptionLocation CurConn.Open CurrentProject.Connection objRSLocation.Open "Select * from [Location] where [Location] = '" & myReceptionLocation & "'", CurConn, adOpenKeyset, adLockOptimistic If objRSLocation.RecordCount = 1 Then Me![dspReceptionLocationID] = objRSLocation("LocationID") Me![frmReceptionContact] = objRSLocation("Contact") Me![frmReceptionContactTelephone] = objRSLocation("Telephone") Me![frmReceptionStreetAddr1] = objRSLocation("StreetAddr1") Me![frmReceptionStreetAddr2] = objRSLocation("StreetAddr2") Me![frmReceptionTown] = objRSLocation("Town") Me![frmReceptionState] = objRSLocation("State") Me![frmReceptionZipcode] = objRSLocation("Zipcode") Me![frmDeliveryContact] = objRSLocation("Contact") Me![frmDeliveryContactTelephone] = objRSLocation("Telephone") If blnPackage Then Me![frmDeliveryCharge] = 0 Else Me![frmDeliveryCharge] = objRSLocation("DeliveryCharge") End If Else Me![frmReceptionContact] = " " Me![frmReceptionContactTelephone] = " " Me![frmReceptionStreetAddr1] = " " Me![frmReceptionStreetAddr2] = " " Me![frmReceptionTown] = " " Me![frmReceptionState] = " " Me![frmReceptionZipcode] = " " Me![frmDeliveryContact] = " " Me![frmDeliveryContactTelephone] = " " Me![frmDeliveryCharge] = 0 End If objRSLocation.Close Set objRSLocation = Nothing CurConn.Close Set CurConn = Nothing Me![dspTotalCharges] = Me![frmCakePrice] _ + Me![frmCoveringCharge] _ + Me![frmFlowersCharge] _ + Me![frmTieringCharge] _ + Me![frmFlatCharge] _ + Me![frmDeliveryCharge] Me![dspBalanceDue] = Me![dspTotalCharges] - Me![frmTotalPayments] Form.Repaint End Sub
Private Sub frmReceptionLocation_BeforeUpdate(Cancel As Integer) Dim CurConn As New ADODB.Connection, objRSLocation As New ADODB.Recordset Dim myReceptionLocation As String 'MsgBox Me.Name &" frmReceptionLocation_BeforeUpdate", vbInformation If IsNull(Me![frmReceptionLocation]) Then myReceptionLocation = " " Else myReceptionLocation = Me![frmReceptionLocation] End If Me![dspReceptionLocation] = myReceptionLocation CurConn.Open CurrentProject.Connection objRSLocation.Open "Select * from [Location] where [Location] = '" & myReceptionLocation & "'", CurConn, adOpenKeyset, adLockOptimistic If objRSLocation.RecordCount = 1 Then Me![dspReceptionLocationID] = objRSLocation("LocationID") Me![frmReceptionContact] = objRSLocation("Contact") Me![frmReceptionContactTelephone] = objRSLocation("Telephone") Me![frmReceptionStreetAddr1] = objRSLocation("StreetAddr1") Me![frmReceptionStreetAddr2] = objRSLocation("StreetAddr2") Me![frmReceptionTown] = objRSLocation("Town") Me![frmReceptionState] = objRSLocation("State") Me![frmReceptionZipcode] = objRSLocation("Zipcode") Me![frmDeliveryContact] = objRSLocation("Contact") Me![frmDeliveryContactTelephone] = objRSLocation("Telephone") If blnPackage Then Me![frmDeliveryCharge] = 0 Else Me![frmDeliveryCharge] = objRSLocation("DeliveryCharge") End If Else Me![frmReceptionContact] = " " Me![frmReceptionContactTelephone] = " " Me![frmReceptionStreetAddr1] = " " Me![frmReceptionStreetAddr2] = " " Me![frmReceptionTown] = " " Me![frmReceptionState] = " " Me![frmReceptionZipcode] = " " Me![frmDeliveryContact] = " " Me![frmDeliveryContactTelephone] = " " Me![frmDeliveryCharge] = 0 End If objRSLocation.Close Set objRSLocation = Nothing CurConn.Close Set CurConn = Nothing Me![dspTotalCharges] = Me![frmCakePrice] _ + Me![frmCoveringCharge] _ + Me![frmFlowersCharge] _ + Me![frmTieringCharge] _ + Me![frmFlatCharge] _ + Me![frmDeliveryCharge] Me![dspBalanceDue] = Me![dspTotalCharges] - Me![frmTotalPayments] Form.Repaint End Sub
Private Sub frmStacked_AfterUpdate() If IsNull(Me![frmTierSets]) _ Or Me![frmTierSets] < 1 Then blnRaised = False Else blnRaised = True End If End Sub
Private Sub frmStacked_BeforeUpdate(Cancel As Integer) If IsNull(Me![frmTierSets]) _ Or Me![frmTierSets] < 1 Then blnRaised = False Else blnRaised = True End If End Sub
Private Sub cmdLocations_Click() On Error GoTo Err_cmdLocations_Click
Dim stDocName As String Dim stLinkCriteria As String
ption Compare Database ' Use database order for string comparisons. Option Explicit ' Requires variables to be declared before they are used.
Function OpenForms(strFormName As String) As Integer ' This function is used in the onClick event of command buttons that ' open forms on the Main Switchboard. Using a function is more efficient ' than repeating the same code in multiple event procedures. On Error GoTo Err_OpenForms
I have created one MS-Access application. This application will reside on server. The application will be used by many users from there local PC. I want to allow them access to only forms of application and they should not able to inerfere in database tables, queries form designing etc. How can I accomplish this task? In short, only I should able to modify the application and all other should be able to enter the data in form and nothing else. Please help me out...
