tag:blogger.com,1999:blog-28492262.post1294272375149169172..comments2023-12-27T22:22:25.151-08:00Comments on VBA Tips & Tricks: Convert Symbols to Entities using Word VBAUnknownnoreply@blogger.comBlogger3125tag:blogger.com,1999:blog-28492262.post-16379250868748782342011-06-25T00:18:58.820-07:002011-06-25T00:18:58.820-07:00Are you trying to validate some userform. Your cod...Are you trying to validate some userform. Your code has some hardcoded stuff, should it be made dynamicAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-28492262.post-50320492681591047982011-06-24T12:24:22.332-07:002011-06-24T12:24:22.332-07:00Hi
I am following most of the threads in this blo...Hi<br /><br />I am following most of the threads in this blog and I find it indeed useful, but I am truely a beginner in VB. I need it for designing my ppt lessons for my students. I will be grateful if you could tell me what is wrong with this code below or refer me to whoever could help me with this. Your comments are very much appreciated.<br /><br />Private Sub strName_Click()<br /> <br />End Sub<br /><br />Private Sub strFName_Change()<br /> On Error Resume Next<br /> Dim strFName As String<br /> Dim strLName As String<br /> Dim strName As Label<br /> strFName = "John"<br /> strLName = "Smith"<br /> If (strFName = "John") Then<br /> strName.Caption = "John"<br /> Else<br /> MsgBox ("Incorrect data entry")<br /> If (strLName = "Smith") Then<br /> strName.Caption = "Smith"<br /> Else<br /> MsgBox ("Incorrect data entry")<br /> If (strFName = "John" & strLName = "Smith") Then<br /> strName.Caption = "John Smith"<br /> Else<br /> MsgBox ("Incorrect data entry!"), vbExclamation <br /> End If<br /> End If<br /> End If<br /> <br />End Sub<br /><br />Private Sub strLName_Change()<br /> On Error Resume Next<br /> Dim strFName As String<br /> Dim strLName As String<br /> Dim strName As Label<br /> strFName = "John"<br /> strLName = "Smith"<br /> If (strFName = "John") Then<br /> strName.Caption = "John"<br /> Else<br /> MsgBox ("Incorrect data entry")<br /> If (strLName = "Smith") Then<br /> strName.Caption = "Smith"<br /> Else<br /> MsgBox ("Incorrect data entry") <br /> If (strFName = "John" & strLName = "Smith") Then<br /> strName.Caption = "John Smith"<br /> Else<br /> MsgBox ("Incorrect data entry!"), vbExclamation<br /> End If<br /> End If<br /> End If<br />End SubAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-28492262.post-85416452269718638032009-01-12T05:41:00.000-08:002009-01-12T05:41:00.000-08:00If you want to make it easy to support UniCode in ...If you want to make it easy to support UniCode in Visual Basic then take a look at the UniToolbox control suite which replaces all the common VB controls with UniCode aware versions:<BR/><BR/>If you want to make it easy to support UniCode in Visual Basic then take a look at the UniToolbox control suite which replaces all the common VB controls with UniCode aware versions:<BR/><BR/><A HREF="http://www.iconico.com/UniToolbox" REL="nofollow">http://www.iconico.com/UniToolbox</A>Anonymoushttps://www.blogger.com/profile/00071717727308764848noreply@blogger.com