Solved i want code,,Filter code before saving (1 Viewer)

[SalmanZeiad]

I want a code that filters when entering the any part (word) of company name and there was a name saved by part of the company name that warns me with a message before saving or not

Example
Salman Computer Company
Salman For Computer

 

[ebs17]

If Instr(1, AnyText, AnyPart) > 0 Then    ' there is anything

 

[SalmanZeiad]

If Instr(1, AnyText, AnyPart) > 0 Then    ' there is anything

AnyText, AnyPart ???

 

[Gasman]

AnyText, AnyPart ???

Try looking up the syntax?

InStr function (Visual Basic for Applications)

Office VBA reference topic

learn.microsoft.com

 

[SalmanZeiad]

can you see this @gazman and do it

 

[Gasman]

can you see this @gazman and do it

No, you will never learn anything if someone else does it for you.

Look at the syntax and apply it, though TBH I think you need a DCount() for what you are asking.
Test if the result is > 0

dcount("*","Testtransactions", "Description like '*" & tt & "*'") > 0

Where Description is the field you are searching and tt is the text you are loking for.

Those are just the names I had to use in my system in the imemdiate window.
Wlak through your code to check it. Use it on the Change event of the control.

 

[SalmanZeiad]

No, you will never learn anything if someone else does it for you.

Look at the syntax and apply it, though TBH I think you need a DCount() for what you are asking.
Test if the result is > 0

dcount("*","Testtransactions", "Description like '*" & tt & "*'") > 0

Where Description is the field you are searching and tt is the text you are loking for.

Those are just the names I had to use in my system in the imemdiate window.
Wlak through your code to check it. Use it on the Change event of the control.

Thank u very much<<<all is DONE

 

[Gasman]

Thank you and I want to learn..
I tried the dcount function but it only works for matching if full name is entered

No it does not.
If you use Like and surround your control value with * (as I have done) then it will pick up anything that has that string.

So it will pick up Salma from alm

 

[Gasman]

Thank u very much<<<all is DONE

Please mark it solved then, button top right of the thread.

 

[SalmanZeiad]

Please mark it solved then, button top right of the thread.

OK thank you,,

last ask,,,
If DCount("*", "Suppliers", "SuppName like '*" & tt & "*'") > 0 Then
If MsgBox("Duplicated Full Or Part?", vbQuestion + vbYesNo, "!!") = vbNo Then
''SuppName.BackColor = vbRed
Me.SuppName.Undo
Cancel = True
End If
End If

how can i grab the full name that`s saved and show in msgbox

 

[Gasman]

Would need to use DLookup() instead and show the result of that.
Be aware you will get Null if name not found with DLookUp.

tt was just a name I give to a variable to use, short and sweet, you use the control name.?