Search results for query: *

Hi, I am building a database to record incidents in the workplace. I have a main table which records the details of an incident, time place type etc. My other tables record information on each type of incident, injury, loss, fire etc. Since all incidents have details I use this as the main...

Hi, As part of my query I have the following code... If Not IsNull(Me.txtScope) Then strWhere = strWhere & " (tblIRS.strScope)" & _ " Like '*" & Me.txtScope & "*' AND" End If In Me.txtScope a user may type 52PU001 or 52-PU-001. How can I modify so that it returns both inputs? Thanks

Hi there, I have a check box on my form which checks if fields are filled in or not. Here's part of the code (BeforeUpdate) Case IsNull(Me.strScope) MsgBox "Please enter a Scope of Work.", vbOKOnly Cancel = True Me.Approved.Undo Exit Sub Case IsNull(Me.memHazard) MsgBox "Please enter...

Hi there. My app has about 40 users. Everytime I open the root folder where it resides I see multiple copies of the database... eg db1.mdb db2.mdb etc.(up to 50 now) The app is split with FE mde file. All security is in place on both FE & BE. All users are full data with only 2 admin users...

Hi, Is it possible to enable/disable a control on a form based on the user's permissions? eg. Command button - enabled for Admin users (or logon name) but not enabled for other users. Cheers, millrat

Hi all, I have numbers stored as text in a table because some have a "<" sign in front of them. How can I trim the "<" from the front (for those that have it) in a select query and convert to a number? eg <0.05 (text) to 0.05 (number) Cheers, millrat

Hi all, I have audit trail using Me.Combo.OldValue and Me.Combo.Value. This gives only numbers in my table i.e. Column(0). How to use Column(1) for text and what is correct syntax for below? e.g. Me.Combo.Column(1).OldValue...(this don't work but it's what I want) Cheers, millrat

Hi all, Can anyone help with a more elegant solution? I have multiple checkboxes on a form. Each check box sets the visible property of a corresponding label. This works in the short term but as I add more check boxes (with more combinations) it will become unwieldy to code. eg. (short...

Hi, What type of query would I use to get the following result and how? Eg table. [Date] [Total] 01/02/06 100 01/02/06 75 02/02/06 100 02/02/06 50 Result needed [Date] [SumOfTotal] 01/02/06 175 02/02/06 150 I've tried all I know but still cannot get it. Help would be...

Hi all, If I have these fields in a table pkey fld1 fld2 fld3 1 A B C How to create union query to give fld1 fld2 1 A 1 B 1 C Cheers, millrat

Hi all, Can anyone please help here? I need to transpose data as below in tbl1 and update to tbl2 as below. tbl1: pkID1 f1 f2 f3 f4 1 A 1 2 2 2 B 1 2 1 This Union query does the trick. SELECT pkID, f2 AS A FROM tbl1 UNION ALL SELECT pkID, f3 AS A...

Hi, Is it possible to index a field as no duplicates except for nulls? eg. I have employee table, each employee has an ID No (unique No). Some employees don't have an Id No (eg contractor). How do I ensure no duplicates for those with an ID No and ignore those who don't have one? Cheers, millrat

Hi, I am having trouble opening my dB which is on a network drive in read only mode. I am using the shortcut type below. It opens OK when user & pwd are full permissions but when read only permission user & pwd are substituted I get the following message "Microsoft Office Access is unable to...

Hi there, My DB is a daily log with a form which is searchable by using another form with a calendar control/combobox using code below; Dim rst As DAO.Recordset Dim strDate As String If IsNull(cboDate) Then Exit Sub Else ' Set the combobox value as the recordsource...

Hi, What permissions to set up for a read only user to allow access to this. millrat

Hi, How do I reference a query that is a subform in a form. eg. ' Pass the SQL string to the query Set qryDef = dbNm.QueryDefs("qryQuery1") qryDef.SQL = strSQL & " " & strWhere & " " & strOrder ' Open the query DoCmd.OpenQuery "qryQuery1", acViewNormal This opens the query...

Hi all, I am trying to find a record on my form using the code below but I keep getting errors. Depending on how I move the quotes etc around I get different errors, sometimes data type mismatch, other times syntax error, missing operator. Now I'm confused, is it the syntax or the datatype...

Hi all, I am having some trouble trying to figure this one out. Report field: [txtTonnnes], Total tonnes in a day. SubReport Field (in footer): [txtTotal], Total downtime in minutes. The following will calculate tonnes/hr for a day...

Hi, How do I align text centre in a MsgBox? e.g. ans = MsgBox("Clicking this button will start World War III" & vbCrLf & "Do you want to continue?", vbYesNo, "Doomsday Device") This aligns the text to the right. Anyone? Thanks millrat

Hi, I have a field in a table with numbers stored as text because some of the records will be entered "<0.1" How can I remove the "<" and convert to number so I can sum the records? e.g. <0.1 <0.1 0.1 Sum = 0.3 Thanks in advance. millrat