Recent content by anb001

Finally finished naming all the controls, and have tested all of them, and it seems to work now. Haven't found any issues. Thanks again JHB. Should I pass by Jylland on my way from Sjælland, I'll bring you some wine :-)

JHB, Thanks a lot again. I have now finished all the naming, and trying to test. All red/green circles are updated as Visible=No. When I run the form, all bottles in the table updates correctly, as per what is updated in the table. However, if I delete at bottle from the list, it still shows...

JHB, File is uploaded zipped, as it is above the 2mb limit. Mark, Yes, I thought of your way as well to limit the controls, however I prefer the round controls in this case, and I don't think there any other way to get get round controls.

JHB, I have a small issue, with having too many controls. I solved that dividing the wine rack into two subforms, which I then added to a "Main form". That works fine, in the sence that I can get the last few controls included. However, in your code, I need to specify both subforms in the For...

Excellent. Thanks a lot.

I have a database of all my wine. Just a simple one, where I can add/delete/update the information. As I'm expanding the wine rack, I would like to keep track of where it is, so it is easy to find, when being used. I have attached a small example of what I'm trying to achieve. The example...

This solution works as well: Me.txtUllageVolume = Nz(DLookup("M3", "qryUllage", "Ullage= cboUllage"),0) Me.txtUllageVolume = Nz(DLookup("M3", "qryUllage", "Ullage= cboUllage"),"") Thank you again for the suggestions.

Gents, I tried with below, and that did the trick: "Ullage= Forms![TheNameofTheForm]!cboUllage" All data type/formatting is numeric in the table/combo's/text box used. Thanks a million for the help :-)

I have written a simple piece of code using DLookup to find a value in a query, but keeps getting above error. I have used it with text in the passed (slightly different code) where it worked fine. Code is used in a After update expression in a combobox: Me.txtUllageVolume = Nz(DLookup("M3"...

Finally back online again :-) MarkK, thank you. I will try your suggestion as soon as I get back home again.

Ranman256, If you look in the table attached, then it is not as simple. If I type in '50', then the DB needs to interpolate between 49,94 and 50,10, to find out which ullage should be returned!

In the attached sample DB I have a table, with "Ullage" and "M3" fields. If I on a form use below code on textboxes, I can get the volume in M3, if I type in the Ullage. Example code: Me.txtVolumeM3 = Nz(DLookup("M3", "tblUllage", "Ullage='" & Me.txtUllage & "'")) The issue I have is for each...

Sorry for late reply. Have been without internet for a few days. I have attached the converted file (2007 format). I have also found another way of getting the borders aligned. Access MVP Duane Hookom has posted below code at another forum. By leaving borders transparent, and add the word...

Attached is a database, I previously found on a forum a few years ago, which can align the borders of text boxes on a report, to they all have the same height, depending of amount of text inside. As such it works fine. But there is a flaw. In the first row of text boxes shown on the report...

Managed to get it done. It was a little more simple that I thought. I have the query as record source for the form, so: Instead of the: It was just like this: