Re: VB6 OverFlow problem

I know it's a while since I did any programming, but I'm really rusty.

It's surprising that such little, simple things like that, can trip you up.

Yep. It works beautifully.

I'll probably relearn everything, when I get round to learning VB.NET 2008. 
It'll be interesting to see how quickly I pick it up.

Geoff
Email: gc.smith@xxxxxxxxxx
  ----- Original Message ----- 
  From: Jeff Bishop 
  To: programmingblind@xxxxxxxxxxxxx 
  Sent: Thursday, October 08, 2009 4:52 PM
  Subject: Re: VB6 OverFlow problem


  Glad it fixed it <smile>.

  Jeff

    ----- Original Message ----- 
    From: Geoff Smith 
    To: programmingblind@xxxxxxxxxxxxx 
    Sent: Thursday, October 08, 2009 8:50 AM
    Subject: Re: VB6 OverFlow problem


    Hello Jefff,

    That was very helpful and painless <G>. Wish I'd thought of that, before 
shouting.

    Thanks.

    Geoff
    Email: gc.smith@xxxxxxxxxx
      ----- Original Message ----- 
      From: Jeff Bishop 
      To: programmingblind@xxxxxxxxxxxxx 
      Sent: Thursday, October 08, 2009 3:59 PM
      Subject: Re: VB6 OverFlow problem


      Change the data types from Integer to Long and see if that resolves your 
issue.

      Jeff

        ----- Original Message ----- 
        From: Geoff Smith 
        To: programmingblind@xxxxxxxxxxxxx 
        Sent: Thursday, October 08, 2009 7:55 AM
        Subject: VB6 OverFlow problem


        Hello All,

        I realise there aren't many people using VB6 these days, but can anyone 
help me with this irretating problem?

        In short blocks of text in an MSAccess memo type field I can use the 
code below to search text, but anything longer than 3/4 thousand characters, 
I'm getting an overflow message with an error 6. When I click on the OK button, 
the programme bombs.

        The Code is:

        Private Sub mnuNavSearchText_Click()
        Dim strMainString As String
        Dim intLengthOfString As Integer
        Dim intWheresTheString As Integer

        ' Assigning the variables
        strMainString = txtTB(4) ' String1, String  to be searched
        intLengthOfString = Len(strMainString) ' Length of string to be searched

        M_strSearchFor = InputBox$("Search for Text, ", , "")

        intWheresTheString = InStr(strMainString, M_strSearchFor) ' Arguements 
employed

        If intWheresTheString Then ' If string found
        txtTB(4).SelStart = intWheresTheString - 1  'Start the selection and
        txtTB(4).SelLength = Len(M_strSearchFor)  ' set selection length
        MsgBox "String Found" ' Notify user of successful result
        Else ' or
        MsgBox "String not found" ' notify user of the resulting failure
        txtTB(4).SetFocus
        End If
        End Sub

        The Outlook Express window seems to have made a bit of a mess of the 
code, spilling some lines onto two lines.

        Can anyone see what is happening? I'd be very grateful for any help.

        Geoff
        Email: gc.smith@xxxxxxxxxx


--------------------------------------------------------------------------



      No virus found in this incoming message.
      Checked by AVG - www.avg.com 
      Version: 8.5.421 / Virus Database: 270.14.7/2422 - Release Date: 10/08/09 
06:39:00



------------------------------------------------------------------------------



  No virus found in this incoming message.
  Checked by AVG - www.avg.com 
  Version: 8.5.421 / Virus Database: 270.14.7/2422 - Release Date: 10/08/09 
06:39:00

Other related posts: