Message no record found (2 Viewers)

[quest]

Hi,
I have a split form with few combo boxes. I want to get message if search find no records. How that should be done.

 

[GPGeorge]

Hi,
I have a split form with few combo boxes. I want to get message if search find no records. How that should be done.

As a general rule, the more context provided in a question, the more likely it will be that a usable response can be provided.

"How, for example, are you searching?

 

[quest]

choose from combo box or write to it. I must say everything work just fine just want some message to appear to look better and show what is going on.

 

[quest]

I suppose it should be some iif statement in the after update of the combo box?

 

[theDBguy]

What message do you get now and when?

 

[quest]

i got no message i want to add one when nothing found.

 

[quest]

If nothing found i have only one new record.

 

[theDBguy]

i got no message i want to add one when nothing found.

Interesting. When I type something that is not in the list, I get the following message. Are you saying you don't get something like this? If so, make sure you set the Limit To List property of the combo to Yes.

 

[quest]

here how it is look like when nothing found only this example is with text boxes instead of combo boxes.

 

[quest]

Interesting. When I type something that is not in the list, I get the following message. Are you saying you don't get something like this? If so, make sure you set the Limit To List property of the combo to Yes.

View attachment 119218

your suggestion is ok it works when set limit to list properties to yes but i want customised message box.

 

[Mike Krailo]

Maybe something like this:

If Me.Recordcount = 0 Then
    msgbox "No records found!"
End If

 

[theDBguy]

your suggestion is ok it works when set limit to list properties to yes but i want customised message box.

Looks like you can use the Form Error event to trap that message and display your own.

 

[quest]

Looks like you can use the Form Error event to trap that message and display your own.

View attachment 119222
View attachment 119223
View attachment 119224

I tried few different ways none worked. last attempt was with this code:
Private Sub Combo13_AfterUpdate()
On Error GoTo Combo13_AfterUpdate_Err

DoCmd.SearchForRecord , "", acFirst, "[Number] = " & Str(Nz(Screen.ActiveControl, 0))
DoCmd.Requery ""


Combo13_AfterUpdate_Exit:
Exit Sub

Combo13_AfterUpdate_Err:
MsgBox "no record found", vbInformation, "info"
response = acDataErrContinue
End Sub

 

[Gasman]

If it is text, you need to surround it with single quotes, or triple double quotes if that could contain a single quote.

 

[quest]

If it is text, you need to surround it with single quotes, or triple double quotes if that could contain a single quote.

I have few combo boxes so there are text, numbers, dates. in the example i tried with first combo which is number.

 

[Gasman]

I have few combo boxes so there are text, numbers, dates. in the example i tried with first combo which is number.

So why Str() ?

 

[quest]

So why Str() ?

It shouldnt? works perfectly with no mistake.

 

[Mark_]

@quest,

As you are doing a search, I'd suggest making sure you have values BEFORE you start building your criteria for the DoCmd.SearchForRecord. Don't issue the search until AFTER you know you have a value for Screen.ActiveControl.

You can check if it IsNull or a ZLS first. You can also check if it is numeric as you are doing a search for [Number]. Goal is to have "No Records Found" make sense based off of what the user has input, rather than "I forgot to tell it WHO I am working with, but it still let me do it".

 

[quest]

@quest,

As you are doing a search, I'd suggest making sure you have values BEFORE you start building your criteria for the DoCmd.SearchForRecord. Don't issue the search until AFTER you know you have a value for Screen.ActiveControl.

You can check if it IsNull or a ZLS first. You can also check if it is numeric as you are doing a search for [Number]. Goal is to have "No Records Found" make sense based off of what the user has input, rather than "I forgot to tell it WHO I am working with, but it still let me do it".

Good advise problem is that i am beginner haven't learn about vba yet so i still trying to guess right way. and about fields i think no need to check. As i said i have few combo boxes. each combo is for number or text or date only. one for numbers other for text etc.