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
Access2000 converts data to Excel2000 in the following way: I have specified a column data type as long integer with no "null" decimal place - whenever I analyse the table with Excel the mentioned column suddenly has 2 decimal places?????????? On the other hand when I convert data WITH 2 decimal places from Access to Excel those are displayed as "zero" (e.g. 9,15 --> 9,00) ?!?! Thanks for any advise!
The plus indicates a night shift worker eg started at 19.18 and finished at 5.37 on the 12th
so for every record I have staff id , date, and clock time ( I have stripped out the + ) and created a yes/no field to identify the records where field2 should actually be field2+1
I have sat in query design screen for ages and cant think how on earth I am going to calculate hours worked for a given staff member and date combination.
for every combination of staff id and date there should be 2 records - a clock in and a clock out
I thought about creating new fields clockin and clockout but struggling to see how I can link the 2 "paired" records together
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.
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
I'v looking for since a couple months a go to make a report direct from access form using crystal report but i havent found it yet. I'v tried this code and its giving me errors. " run time error 1004 method range of object _global failed "
how to make a report using crystal report direct from ms access as front end application ? is it possible to use crystal report ?btw i use database sql server 2008 and MS Access 2007 as my frontend application.here's the code that i'v found and gives me an error
Dim CR As New CRAXDRT.Application Dim rep As CRAXDRT.Report Set rep = CR.OpenReport(Range(" ??? ")) * i getting error in this line, what should i do to fill it ?? rep.ParameterFields(1).AddCurrentValue "Boston" rep.ParameterFields(2).AddCurrentValue "Cars" rep.Database.Tables(1).SetLogOnInfo "tool", "db_tsel" rep.ReadRecords rep.PrintOut promptUser:=False, numberOfCopy:=1 ' promptUser:=True doesn't work
I have a form with 7 List boxes linked to 7 Query's which in turn are linked to a table. Each list box if for a particular trade.
I am trying to select a person or persons from each List box and then have them sent to a report. I have Code to do one list box, but do not know how to link all boxes with code to a 'Open report' button.
The code I am using is as follows:-
Private Sub cmdOpenReport_Click() On Error GoTo Err_cmdOpenReport_Click Dim strWhere As String Dim ctl As Control Dim varItem As Variant 'make sure a selection has been made
The aim of what I am doing is to create a monthly statement to give to our intermediaries that shows the commission they will receive each month for the deals they have referred. I have managed to create this report, HOWEVER I can't figure out how to filter out which month I need, so I a report for Jan, Feb Mar etc... The idea is that at the end of each month I need to run the report so only the latest month shows...
I have a report which programmatically sets the value of some labels based on its own internal logic for each line of the detail section of a report. This all works fine and dandy, using the Detail_format event, and accessing detail.controls.item(x).caption.
HOWEVER, when I then embed the report as a subreport (which I need to do), I goes wrong. Here, I get the values of the last row of the detail repeated in every previous one. I'm suspecting because the parent report has its own 'detail' (I've tried giving the subreport its own distinct detail name).
I've done this once entirely by accident and can't seem to duplicate it...
I have a report. It has the following:
Report Header: Logo and title Department Header Supervisor Header Group Header Detail Department Footer: Totals Report Footer: Overall Totals for all departments
Here's my question. I have combo boxes on my main form that filter this report. The combo boxes are referred to by the query that runs the report. How do I get proper unfiltered overall totals in my report footer?
I have a report that displays incidents, their details, consequences and a photo. Among the details is a severity rating high medium or low, I have been asked to make the report shorten the records which have been given a low severity (because it takes up as much space as the more important/severe ones).
The only method I can think of is to use the onformat event, to shrink and make invisible all the fields that I don't want to see if the severity field shows 'low'.
We have a shift log that includes both personnel actions during any given day as well as operational actions. (We recently switched from a word document to an Access Database to allow multiple users to input events while another has the logbook open already (which you couldn't do with Word))
At the beginning of each day, my manager reviews the previous days log and forwards up pertinent data (some personnel, some operational) to our higher authorities. Is there a way to allow him to select which records he'd like to include on that higher-authorities report straight from the local-level report?
I'm not a fan of allowing him a "Save As" feature because that kind of defeats the data integrity purpose of an events log where he could save as an RTF and then edit any of the log entries without any checks or balances.
I have an odd thing happening with my reports. There is a main report that gives class information (from query). There are two subreports (from queries also ) with scores (one for each type of test). There are some unbound controls on the main form that display a count of how many scores are recorded which are totals from the subreports. The controls all report the correct numbers however, when I scroll down to view each record, some of them change to #error, or #name, or similar for a moment. Sometimes they will stay in error form when I stop scrolling but change to correct if I scroll up just a bit. Is this because the controls won't calculate unless that report record has focus?