Recent content by c02dm

It's ok, i've fixed it. It was something to do with the query i was using with it. I just put some data into my tables and the form is now visable. Cheers.

Hi, i have my form open in design view and it includes quite a few fields on a tab. But when i go to open it in form view, the form is just grey and nothing appears on it. Never seen this before, can anybody help?

Hi guys, still having problems with this code. I have looked up listbox in VBA help but it isn't helping too much. So far i've come to this to copy the CustomerID. Forms![frmOrders]!CustomerID.Value = ListBox![lstSubOrder].Column(1).Value The CustomerID is in the first column of the list box...

Hello, I want to be able to double click on a record in a listbox (lstSubOrder) which uses (qrySubOrder), which in turn will open the orders form with the CustomerID, Title, FirstName and Lastname from the listbox copied into the corresponding fields on the orders form (tblOrders). I can do...

Excellent!!! Thank you very much!!! I'm fairly new to VBA and learning so help and advice on here is great. This has been annoying me for days, what a relief it finally works.

Heres a copy with just the relating table, query and form.

Hey, sorry to say that it does nothing different, thanks for the continuous help though.

Hi, that just does the same as before, except the message box doesn't work. Might have to just give up on this one, thought it was going to be relatively easy when i had the idea, who would have guessed.

That doesn't seem to work either it just displays the box and performs the filter, either way. I seem to be at a lose end.

Yes i have, the actual code works fine, it displays the surnames in the listbox if they match with the textbox, and doesnt display anything if nothing is found. Your code does all this but it displays the message box first whether anyone is found or not and then displays the findings after...

I've got a query for the listbox if that is what you mean. Here is the line in the query. I don't have any code for it. WHERE (((tblCustomer.LastName) Like [forms]![sfrmOrders]![txtLetters] & "*"))

Hey, cheers for the reply but i have tried the code and it makes the message box appear if the name is there or not, which is strange.

I want to enter a name in a text box and if it can't be found in the list box then it returns a message box saying that. I've tried this code but it doesn't work. Can anyone help? Private Sub txtLetters_AfterUpdate() If lstSubOrder = Null Then myOKBox ("The customer cannot be found") Else...

OK, cheers guys i've sorted it, just taken the myYesNoQuestion(strDelete) = vbYes out completely and used an Else not an ElseIf. Many Thanks.

Here is the code you requested. I have commented out the code in my module relating to setting the focus away from the message but that doesn't seem to make any difference. Public Function myYesNoQuestion(Question As String) myYesNoQuestion = MsgBox(Question, vbQuestion + vbYesNo, "Opticians...