Mdb Application Does Not Work Well After Running Mde???
Feb 9, 2006
Something odd is happening here. After I open and close a recently installed .mde application, I open a previously working .mdb file. It now runs exactly like a .mde file with limited menu items, etc. The only way I can get the .mdb file working again properly is to reinstall office 2000. Could it be that the newly installed .mde application is a higher version and therefore, somehow corrupts the mdb application. I need help.
I have an Access application which was written on Access 2.0. I need to run it (as is). I saw that it was possible to run it using some kind of Access 2.0 runtime environment - my client uses the following command to run the application:
Msarn200.exe application.mdb /ini application.ini
Where can I get this MSARN200? Do I have to find the Access 2.0 installation itself?
I have access 2003 and I package my application with Access runtime. Users do not have access installed in their computers.
The problem the users have is, they cannot Copy/Cut/Paste from the textbox controls in the application..The same application when I run using my full version of Access 2003, I can cut/paste...
Is there a way to fix it without having to get full version of access ? or I have to live with it because I use access runtime.
I have a small database application which is split in fe and be. Its running fine and i have been making changes to the front end regularly and replacing the file on server successfully with no problems, But today i edited some forms and reports and afterwards i ran it on a client in access runtime produced the on click event error ( which is on log in form which is a startup form ). Its working fine in full version of access even on the server but couldn't log in because the clicking on login button display the error. See attached image.
My database is used by a few users on a shared drive in "read-only" mode so they can't change any data.I set a scheduled task to copy an updated version of the database (which I edit) every morning.
The problem is that when the users forget to close the database file I can't overwrite it.For this purpose I wrote a small code that quits the application at 00:00 using Application.Quit.The code WORKS when I test it on my computer, but every morning when I try to open the file I see that it is opened by another user since I also open it as "read-only" - meaning the code didn't work...getting the code to work properly OR get a better solution to be able to overwrite the file even though it's opened by other users.
I want to run an external application (a batch file) ... and want to run it by clicking on a command button on a form. That part is all fine, using the Shell command. I can determine the start time of the application (also fine with now() function) .. but want to find out how long the external application ran and log that "run time" into my database.
The part I don't know about is the .. really the ending time. How do I determine how long the application really ran for / ended ? I imagine I can use datepart to determine the difference in the start and end times. Or would I use a timer control. (but I cannot find the timer control in Access 2010).
I am using a web browser control on one of my forms The problem is that when I close my application down, after using the form with the wbc, an access process keeps running in the background. More severe: every time I start my app again and close it, another access process is added to the processes that are already running.
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 ?
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!!!!
Can anyone tell me how to get a running balance on a report. I know how to create a running total, by setting the "running sum" property of a text box to "Over all".
I can't however see how I can adapt this to give a running balance (as in a bank statement for example). Attempts to do so end up in failure!!
We are creating a simple database to maintain driver license information for faculty, staff, and students who use cars from the university’s motor pool.
To do this, I have created two tables: tblDRIVER and tblLICENSE.
The fields in tblDRIVER are: pkfDriverIndex strLastName strFirstName strInitial strAddress1 strAddress2 strCity strState strZIP datBirthDate
The fields in tblLICENSE are: pkfUpdateIndex fkfDriverIndex datDateUpdated strState strLicNumber datExpirationDate ynViolations ynActive
Information about the driver is stored in tblDRIVER and the driver’s license information is stored in tblLICENSE. Periodically, we run a report that identifies drivers whose licenses are due to expire within a certain number of days. All this works fine.
My problem is that I am trying to create a lookup form that will load from a data entry form that will permit the Motor Pool Clerk to look up a driver by name and review the licensing information (which appears as a subform).
All this sort of works- I am using a combo box (based on a query) to look up a driver’s last name (which it does) and to populate all the driver’s information on the look-up form (including license information in a subform). Currently, the combo box locates the driver (including the unique index, last, and first names), and populates the form with first and last name but the rest of the information is not displayed on the look up form. Worse still, sometimes one driver’s last name matches up with the first name of the next driver listed in the table! This seems to happen only if a look up is attempted more than once. What gives.
I have an expression in one column of my query and It keeps returning a negative result and there are no negative numbers in the source data. Can anyone help. I just want to sum the sums the two IIf expressions, but its not working. Thanks
Other Qty: Sum(IIf([QSum]![ACCOUNT]=2 And [QSum]![ICUNIT]=95 And [QSum]![UNITS]="ITEM(S)",[QSum]![QUANT],Null)) Or Sum(IIf([QSum]![ACCOUNT]=2 And [QSum]![ICUNIT]=100 And [QSum]![UNITS]="ITEM(S)",[QSum]![QUANT],Null))
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 ?
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.
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...
This works fine, however I noticed that if the path for the specific document contains a space, it does not open up successfully but i get a msgbox saying "the document name or path are not valid"
