Search results

Hi Pat, Thanks After I re-read what I posted yeh not clear sorry. After I click on the button the template table appends to the table ([ITP Piping tbl]) The ID numbers for the ITP WorkOrder tbl and ItpDescriptionInfo tbl do not populate into the appended ITP Piping tbl. Like they would if...

Hi, If someone could Help me I would like to insert this template table [Itp Piping Template tbl] Into a sub sub form [ITP WorkOrder fm]![ItpDescriptionInfo fm]![ITP Piping fm] from a button on this sub sub form. In the [ITP Piping fm] I want to add the 30 rows of records to these fields Item...

Thanks Gemma-The-Husky, Sorry - I guess I didn't understand the first responce what you were meaning , But Now I see want you were meaning. I will try not to put any dashes in. Thanks again. BBryan

Hi Gemma-The-Husky, Thanks for your responce. I am still stuck. I am not sure what you mean. Are you saying Start all over like this trim(mid(title,firstresult,secondresult-firstresult)) Trim(Mid([FullDescription],InStr(1,[FullDescription]," ") - first result ***Gets me the full song name...

Hi, I was having trouble extracting a sentence from a string. What I have is a Music title of a number and song name. I want to extract the song name without the artist and .MP3 after the number. I have this example: D4-001 Scary Monsters and Nice Sprites - Skrillex.Mp3 D4-002 D4-003 Bad...

I see now. I have added some more words to the list It works good when you know what it means... Thanks again for all your help and effort I am still have a lot to learn about Programming. But I Like it... Thanks BBryan

Thanks This one works good now! One thing - What is the false compared to nothing saying s = AllCaseEachOfWord(s, "a", False) I appreicate All you time and effort in Helping me. I have learned something here BBryan

Thanks I just tried to replace the old version one with this version When I write some text after upDate it erases the whole text to nothing. Do I still keep the After Update Private Sub WorkOrderDescription_AfterUpdate() Me![WorkOrderDescription] = SuperStrConv(Me.WorkOrderDescription) End Sub

Sorry the Code Tag Didn't work I see my Mistake wrong [\Code] I think it should be [/Code] Sorry Try again Public Function SuperStrConv(ByVal s As String) As String 'Works the same as StrConv(s, vbProperCase) except capitalises text between two hyphens without spaces either side of hyphens and...

deleted duplicate See next window Sorry I just saw the Code Tag Didn't work Try again [Code] Public Function SuperStrConv(ByVal s As String) As String 'Works the same as StrConv(s, vbProperCase) except capitalises text between two hyphens without spaces either side of hyphens and capitalizes...

deleted duplicate See next window Hi VilaRestal, Thanks for that! I changed it and I also added some extra into your code for some other common text that could be written in this textBox. Here is what I did. I followed your example [code] Public Function SuperStrConv(ByVal s As String) As...

Thanks for All the Help! The more I do this the more I will understand it.... I see - make the code in Blocks 1 by 1 I will try and add some more to it. I will read up more on this looping. Thanks again for your help. BBryan

Sorry I just noticed I forgot to put this to indent [Code] Public Function SuperStrConv(ByVal s As String) As String s = StrConv(s, vbProperCase) Dim v As Variant Dim k As Variant v = Split(s, "-") k = Split(s, "(") If IsArray(v) Then If UBound(v) > 1 Then...

Hi VilaRestal, Thanks I was just trying to add an If statement to your code for the brackets but now I see that a bracket could have a space inbetween. I am still a beginer level VBA. Could you give me a bit more help of an example to Start a Uppercase after any "(" Bracket. I have this now for...

Ah -- I see. I will remove it. I am working on Adding some more If's for the Brackets. I will see if I can do it from the Code. I have a very good start.....(I may need more Help..) Thanks for All your Help guys BBryan

Thanks JR That works great! and thanks to VillaRestals for the code! I still not sure what to do with this... Private Sub TestSuperStrConv() Debug.Print SuperStrConv("REPLACE 1400-P-411 GATE VALVE") End Sub Thanks BBryan

Hi VilaRestal, Thanks for your Help. Sorry - Public Functions I Haven't real used these before and I am not sure how to call this up. I need a little more Help. I copy and pasted it into the form I am on. I tied to call this on after update Me![WorkOrderDescription]= SuperStrConv It says...

Hi, Can Someone Help me. I have looked all over the Web and there is lots on Propercase, but I could not find anything. I have a form where I want to convert text to ProperCase (to this Eg:Replace 1400-P-411 Gate Valve, Replace 2123-LV-007 ByPass Spool Valves (Train 3), Replace 8300-FG-811...

Thanks I will try these tags next time Thanks BBryan

Thanks Paul that works perfect. I should have known that. I guess I was thinking it was harder that it should have been. Still trying to Learn.... Thanks for your Help! BBryan