Replies

Hi I completely agree under normal circumstances

However, this is for ‘complete novices’ who would otherwise not know how to re-size their browsers – with an ‘application’ that requires a specific screen area to display optimally.

Thanks for you comments though

Hi Lief,

Yes that is a better solution.

When I refer to fullscreen mode with the toolbar, I’m referring to emulating what happens to the screen when you press F11 in IE (or select from the menu bar view, fullscreen).

Ideally this is what I want to do.

Thanks for your replies.

The solutions that you have given are exactly what I am at present doing. When you use the ‘fullscreen=yes’ property, the IE window does open in fullscreen – but there is not toolbar at the top.

Can I get the toolbar while in fullscreen mode?

jayden

Glad to help

Hi Greg

I have created a function below that you can cut and paste and then use in a query.

What you have to do is
1. Create a new module in your access database. To do this, in the database window, click the ‘modules’ button and then click the ‘new’ button
2. Copy the blue text below and paste it into this new module
3. Save your newly created module (call it something like modCustomFunctions)
4. Use the function AccessCeiling(value, significance) in a query where value is the value that you want to round and significance is the significane (in your case 5)

Public Function AccessCeiling(dblValue As Double, lngSignificance As Long) As Long
‘===========================================================’
‘ Author: Jayden MacRae ‘
‘ Created: 29/10/2001 ‘
‘ Purpose: To simulate the ‘Ceiling’ function available in Excel which ‘
‘ rounds a number up to the next value of significance. ‘
‘===========================================================’
Dim lngCalculation As Long
If dblValue = 0 Then
AccessCeiling = 0
Exit Function
End If

If dblValue / CInt(dblValue) 0 And dblValue / CInt(dblValue) 1 Then
If CInt(dblValue) > dblValue Then
lngCalculation = CInt(dblValue) – 1
Else
lngCalculation = CInt(dblValue) + 1
End If
Else
lngCalculation = dblValue
End If

If lngCalculation < lngSignificance Then
AccessCeiling = lngSignificance
Else
If lngCalculation Mod lngSignificance = 0 Then
AccessCeiling = lngCalculation
Else
AccessCeiling = lngCalculation + (lngSignificance – (lngCalculation Mod lngSignificance))
End If
End If
End Function

Edited to eliminate horizontal scrolling–Charlotte

I’ve just tried downloading the above attachment and it seems to work for me, how about give this one a try then

I’ve also tried to download and am getting an Access Forbidden error.

I’ll try it again:

It is probably your use of ‘0’s in your format function.

If your phone numbers are all the same length, ie 3 digits then hyphen then 4 digits then use the ‘@’ symbol. If you have some phone numbers with area codes and some without (ie. some 04387-3333 and some 387-3333) then you will want to use the ‘&’ symbol in your format function.

J

Check out the example file that I posted to your question about the combo boxes. It has a combo box with the format() function in it.

J

I have attached an example Acc2K database. It contains 1 table (tblCustomers), which contains two fields (CustomerID and PhoneNumber).

It also contains a form with a combo box and a text box.

The combobox looks up the tblCustomer table and returns all CustomerID’s and their Associated phone numbers formatted to include a hyphen between the 3rd and 4th digits. The CustomerID column is hidden (the column width property of the combo box is set to 0 for the first column).

The OnChange event takes the CustomerID value select in the combo box (even though the user can’t see it) and places it in the textbox txtCustomerID.

The phone number is formatted in the row source of the combobox (look at the properties of the combobox and click the data tab, then click the elipsis (…) next to the Row Source property to bring up the query builder).

Hope this helps

J

You may find these articles handy (they are about normalisation)

http://msdn.microsoft.com/library/default&#8230;.des_02_2oby.asp
http://support.microsoft.com/support/kb/ar…s/Q209/5/34.ASP

There are also some longer and more complex articles on MSDN, have a search around and see what you can find. The MSDN address is:

http://www.msdn.microsoft.com

Cheers

Edited to activate links–Charlotte

Ooops, sorry, must have been in the middle of hacking together the function.

Okay, here’s a solution then. Paste the following function into a new module. You can then call the function CustomRound. It requires to variables to be passed to it, varValue, which is the value that you wish to be rounded and intDecimalPlaces, which is the number of decimal places that you want the number rounded to. The function returns null if there is a problem in evaluating the rounding.

I haven’t tested this in Access 97, but it should work…maybe you could let me know if it does.

Cheers

Function CustomRound(varValue As Variant, intDecimalPlaces As Integer)
‘======================================================’
‘ Author: Jayden MacRae ‘
‘ Created: 27/10/2001 ‘
‘ Purpose: To round a value to the specified number of’
‘ decimal places. Function returns null if ‘
‘ it can’t be evaluated. ‘
‘======================================================’
If Not IsNumeric(varValue) Then
CustomRound = Null
Exit Function
End If

If intDecimalPlaces < 0 Then
CustomRound = Null
Exit Function
End If

CustomRound = CInt(varValue * 10 ^ intDecimalPlaces) / 10 ^ intDecimalPlaces
End Function

Hmmmm

Your SQL looks fine to me, but in saying that, when I recreated the situation in a brand new database, I got exactly the same error message. I spose that Jet has some deep dark reason for not being able to do it (although the MS access help file explicitly states that DELETE works with one-to-many relationships).

I can offer a workaround. It isn’t very elegant, but I think that it would work.

Firstly, instead of using your query as a delete query, use it as a make table query (with all fields from the customers table). Call the table a temporary name. Run this, and this should now be a Customer table (with a temporary name), but with only Customers with Orders.

Now use a DROP statement in a query to delete the Customers table (DROP TABLE Customers)

Then use the DoCmd.Rename statement from Visual Basic to rename the temporary Customers table to the ‘live’ Customers table.

Yeah, messy I know, but it should work.

Anyone else know what is wrong with the DELETE query?

J

I’m glad that I could help.

I would say that using the Nz() is the best way to handle it.

Cheers

Jayden