I am using access 2000. I have created a database that is working well but have created a form in which I want to place photos. I have created a bound object frame which is linked to field in table. Problem When I go to insert picture in object frame it is placed there as a "Package". It will not place the actual picture as is. How do I get rid of this Package?
Hi , I am working on a project and am a beginner in this field. My difficulty is that i need to print the details on a form (which has a subform ) into the invoice.xls in Excel2000 . I have managed to get all the required data including the first record in my subform in excel , but i donot know how to print/get the next record . I have tried using recordset,cmd.Gotorecord, query and Macros to do so. Pls Help.
...not too much in the archives on this one, so any help appreciated...
We have an Access97 MDE with a split backend that is shared over a network.
Most of our users have WinNT installed and the Access application works fine. We have a user who has Win2K and Office2k and every time this person tried to launch the Access97 app, he receives the following error:
The database that you are trying to open or convert is currently in use, or you do not have permission to open it exclusively.
I have checked the Security Permissions for that user and he actually has full rights (Admin) for the Network folder.
Hi! We have a problem with analyse reports generated automatically since we are using Access2000. Attached to this mail you may find a screenshot of the desired report. When we try printing query analyses with the sql syntax exactly that happens (see attachment). Thanx for your help,... Stefan
My organization recently upgraded from Office97 to Office2000. A database that we had on 97 is giving us errors when we try to run it under 2000. I have been able to fix some of the errors. This one has me stumped.
I'm getting an error 13; type mismatch and it is calling out this line:
Set Mydb = DBEngine.Workspaces(0).Databases(0)
Any help is greatly appreciated. This is the complete function:
Function RegistrationData(Reqinfo As String) As String On Error GoTo error_registrationdata:
Dim Mydb As DAO.Database Dim MyRS As DAO.Recordset
Set Mydb = DBEngine.Workspaces(0).Databases(0) Set MyRS = Mydb.OpenRecordset("REGISTRATION")
Select Case Reqinfo
Case "CommandName" RegistrationData = MyRS.COMMAND
Case "CommandCode" RegistrationData = MyRS.COM_CODE
Case "CommandAddress" RegistrationData = MyRS.COM_ADDRESS
Case "CommandManager" RegistrationData = MyRS.COM_MANAGER
Case "CommandPOC" RegistrationData = MyRS.COM_POC
Case "CommandPhone" RegistrationData = MyRS.COM_PHONE
Case "CommandFax" RegistrationData = MyRS.COM_FAX
Case "ClinicName" RegistrationData = MyRS.CLINIC
Case "ClinicCode" RegistrationData = MyRS.CLI_CODE
Case "ClinicAddress" RegistrationData = MyRS.CLI_ADDRESS
Case "ClinicManager" RegistrationData = MyRS.CLI_MANAGER
Case "ClinicPOC" RegistrationData = MyRS.CLI_POC
Case "ClinicPhone" RegistrationData = MyRS.CLI_PHONE
Case "ClinicFax" RegistrationData = MyRS.CLI_FAX
Case "MailDir" RegistrationData = MyRS.MAILDIR
Case "HROFile" If Not IsNull(MyRS.HROFile) Then RegistrationData = MyRS.HROFile Else RegistrationData = "error" End If
Case "AboutYN" RegistrationData = MyRS.ABOUTYN
Case "ActivityName" RegistrationData = MyRS.ActivityName
Case Else RegistrationData = "error"
End Select
end_registrationdata: Exit Function
error_registrationdata: MsgBox "There was an error retrieving data from the Registration Table. Please ensure all data is filled in correctly." RegistrationData = "x" Resume end_registrationdata:
The Access2000 database is on a server located on our office network. Our office has a mixture of WindowsXP and Windows2000 as the operating system. We are using Novell Netware for the office network. I am wondering if the Novell Network is "confusing" Access???The check box option to open Access2000 as a multiuser database ischecked. Also "No locks" is checked. When the database is opened weget the "LBD" file with "access.lockfile.9". When I look at this file,I see my name and the word "Admin", which seems normal. However, ifanother user attempts to open the database, they can't and they get amessage that another user is using the program.According to Micorsoft, Access must be in a shared directory. Sinceeveryone can read/write/create/delete to the directory it appears "shared".Nevertheless, is it possible that the Novell Network has a conflictwhich prevents Access from being shared? --------------------------------------------------------------------------------------I took the database home (to my home network) and had limited sharing success. First, the folder that access is in must be fully labeled as shared, read/write privileges by themselves don't seem to allow multiuser access. Second, after closing the database, I would get a "can't find" the database message from windows explorer even though the file was visible.
Hi, i am using the following code to open another access database. it works fine in fuilltime but when i install a runtime version I get an 'active x cant creat object' error. Does anyone knwo why this is?
Dim appAccess As Object Const strPathToBackup = "C:interim.mdb" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strPathToBackup appAccess.Visible = True 'do not show database appAccess.Run "Test" appAccess.CloseCurrentDatabase
I am working on a report in Access2000 which is getting information from several tables via a number of queries. I am using nested IIf() functions to combine text formatted data in a calculated query field before using it in a report.
One such IIf() function is
Desc_col: IIf([HOVR - UDP].[SERVICE] Is Not Null,[DA] & " " & [SEQ] & " " & [TYPE] & [MO] & " " & [SUB] & " - " & [HOVR - UDP].[SERVICE], IIf([MinOfCCT] Is Not Null,"I/O DIST CAB " & [UDP - JC CIRCUITS-05-F].[PWR] & " - CCTS " & [MinOfCCT] & " thru " & [MaxOfCCT],IIf([DESCRIPTIO] Is Not Null,[DESCRIPTIO],"Spare")))
When I have tried to do the same thing with date fields it does not work. The function is fine as long as it is not nested.
That is
Rev_col: IIf([Rev_HOVR] Is Not Null,[Rev_HOVR],"")
and
Rev_col: IIf([Rev_Elec_equip] Is Not Null,[Rev_Elec_equip],"")
both work.
But when I combine them into a nested function
Rev_col: IIf([Rev_HOVR] Is Not Null,[Rev_HOVR],IIf([Rev_Elec_equip] Is Not Null,[Rev_Elec_equip],""))
I get an error message "! Data type mismatch in criterial expression"
There is no data mismatch in the original tables from which the information was extracted. The dates are all in DATE/TIME and set to "General"format in the tables.
I am wondering if I will have to use Visual Basic function to combine these fields. However that poses a problem. When I've looked at this I find that runtime VB is no longer available in Access and I do not want to go out and buy it on the offchance that it will work.
Can anyone tell me if there is another solution to my problem?
Is there a good replacement for the use of local forms in an Access database? We have a large A97 replicated database application that we are trying to update. We use local forms for data output. Since these are no longer available we are looking for a workaround.
I want a user to click the report, and an input box appears asking for a product number. This product number is used in a recordset (VBA code in the report) to fill the text boxes in the Detail section.
Code:Private Sub Report_Open(Cancel As Integer)Dim rst As DAO.RecordsetDim db As DAO.DatabaseDim itemCode As StringSet db = CurrentDb()itemCode = InputBox("Enter the Item Number", "Complete Catlog Prices")Set rst = CurrentDb.OpenRecordset("SELECT * FROM [Catalog Prices Complete] WHERE Prefixprodno = '" & itemCode & "'", dbOpenDynaset)Do Until rst.EOF Me!txtCat = rst("Volume") 'error 02448 cannot assign to this 'Me!txtPrice = rst("Price") rst.MoveNextLooprst.CloseEnd Sub
I'm sure my text box is called txtCat though. Is it an array I should try to fill? If so, any suggestions :S