“So i walk outside today to notice dad down on his hands and knees acid washing the tiles around the house, wearing a blue-mesh headpiece similar to what I’ve seen a few days earlier lying about the kitchen used to protect the collected mangoes from bruising – only to find that the bag really was one of the bags used to collect the mangoes.”

Oh, but it gets better.

“Dad then began to get up off his feet for me then to notice him wearing a white shirt with the disfigured face of David Hasslehoff on the front. He turned around, revealing the the back of the shirt which was adorned with the phrase ‘BRING BACK THE HOFF’ in giant letters. Ahhh the life of dear old Toshy boy.”

To clarify, this shirt was actually a shirt that I had owned for a charity fun run a few years back, that I thought I had thrown out. I think Dad may have gone lurking in the the bin for this gem.

Not quite the shirt worn by my father, but you get the idea

To be honest, I suspect he might do it on purpose occasionally, but man, I had to share this one with the world.

Tweet This Post

Tweet This Post

Often on Access forms you’ll use a textbox control. Usually, unless you delete them, the textbox control comes with an associated label control. Lets call my example “txtGenericTextBox” with a label called “lblGenericTextBoxLabel” with the string “THIS IS A LABEL” in the caption property of the label.

Now, what if you want to get certain values of that label in your VBA code? For instance, lets write the caption of the textbox label to the screen. Easy-peasy!

MsgBox Me.txtGenericTextBox.Controls(0).Caption

This will display the caption of a label associated with txtGenericTextBox. As such, you can access a host of individual attributes of the textbox’s label using similar methods.

How is this useful? Well, in my case, I’m developing some field validation for a data entry form for a beforeUpdate event. I’m looping through all the controls on a form that have the word “Required” in their TAG property. An example of similar code is shown over at DatabaseDev.co.uk (article link here).

But I want nice ‘user friendly’ error messages. I don’t want the user seeing ‘you haven’t entered proper data in the field txtGenericData’ – I want it to use the nice clean label caption which reads much better.

There may be many more easier ways to do what I’m doing, but this seems pretty straightforward. Hopefully it is of some assistance.

Tweet This Post

It seems that if you use dashes (-) in your field names for any table, and try to run functions on them in VBA like “DCount()”, you’ll keep encountering a Run-Time Error ‘2001′ “You canceled the previous operation”.

My recommendation: get rid of dashes and underscores in your table field names.

Edit: You will also get this error if you request incorrect fields names in the table. For instance, you are trying to ask for a count of customerIds and write the code as “DCount(“customerId”, “tblCustomers”)”, when the field in the actual table is ‘intCustomerId’ or something along those lines. Sounds obvious but Jet gives you back a non-helpful error message.

Tweet This Post

I was having a problem with publishing new posts after upgrading to the latest wordpress. I would write a post, hit publish, and the post.php would appear, BLANK. No real explanation was given. I did notice that the post I had selected to publish turned up as a draft. Trying to turn these ‘drafts’ into ‘published’ articled did the exact same thing.

After a bit of an extensive search for this problem, I came across a solution on this wordpress forum discussion. I thought I’d repost what solution worked for me (indeed it was one written in the preceding link, but I’ll summarise). It seems to be either a) a database problem or b) a plugin problem. Try the following (** though I take no responsibility if you suddenley destroy your wordpress install and/or database **)

1. Back up your wordpress database before doing anything. I repeat…BACKUP.
2. Hopefully, you are using phpmysqlAdmin (it make this easier). Locate your wp_settings table.
3. Find an entry called active_plugin field, with a value similar to “a:1:{s:5:./././././././././././././././././././././tmp/upl52653.jpg” or something.
4. Delete it.
5. Get out, save, and try make a post.

Not a great explanation, but read through this forum post

Tweet This Post

sub cbxSomeBox_AfterUpdate()
dim strFilter as string
if me.cbxSomeBox.value <> “” then
strFilter = me.cbxSomeBox.value
me.filter = strFilter
me.filterOn = true
end if
end sub

This works fine if you simply have one custom filter control on a form. Occasionally you may want to have multiple custom filter controls on a form, and then it gets slightly more complex. Using code similar to the preceding example will not preserve previous filtering choices – i.e you filter on one control, then select a new filter control and select a choice, the new filter control will filter the entire recordset and not the results of the previous filtered recordset (apologies for this explanation – it may sound rather confusing)

However, I’ve come across a useful solution to this dilemma that I wish to share with you.

This article at thescripts.com contains a sub-procedure called checkFilter() which, if you download the example mdb linked from this page, and have a quick examination of the code, you’ll realise that the checkFilter procedure is called during the ‘after update’ events of several custom filter controls based on a form. What this does is every time the user ‘does’ something with one of these custom filters, the procedure rebuilds the entire filter, and applies it to the form. This turns out to be REALLY useful.

Tweet This Post