Consulting

Results 1 to 10 of 10

Thread: Test Code Tags

  1. #1
    VBAX Regular
    Joined
    Jul 2014
    Posts
    79
    Location

    Test Code Tags

    If Len(arrDocNum(i)) = 16 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & strDocTitle
    Else
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & strDocTitle
    End If
    If Len(strDocTitle) <= 7 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 7 And Len(strDocTitle) <= 14 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 14 And Len(strDocTitle) <= 23 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 23 And Len(strDocTitle) <= 30 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 31 And Len(strDocTitle) < 33 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) >= 33 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & txtSub.Value
    End If

  2. #2
    VBAX Regular
    Joined
    Jul 2014
    Posts
    79
    Location
     
    If Len(strDocTitle) <= 7 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 7 And Len(strDocTitle) <= 14 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 14 And Len(strDocTitle) <= 23 Then
        arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
    This post

  3. #3
    VBAX Regular
    Joined
    Jul 2014
    Posts
    79
    Location
    Quote Originally Posted by Jfp87 View Post
    This post
    Post by me

  4. #4
    VBAX Regular
    Joined
    Jul 2014
    Posts
    79
    Location
    Quote Originally Posted by Jfp87 View Post
    This post
    Again

  5. #5
    VBAX Regular
    Joined
    Jul 2014
    Posts
    79
    Location
    Quote Originally Posted by Jfp87 View Post
    If Len(strDocTitle) <= 7 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 7 And Len(strDocTitle) <= 14 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
    ElseIf Len(strDocTitle) > 14 And Len(strDocTitle) <= 23 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
    Post by me

  6. #6
    VBAX Newbie
    Joined
    Jun 2015
    Posts
    5
    Location
    Test

    Dim Req As Object
        Dim sEnv As String
        Dim Resp As New MSXML2.DOMDocument60
        Set Req = CreateObject("MSXML2.XMLHTTP")
        Set Resp = CreateObject("MSXML2.DOMDocument.6.0")

  7. #7
    VBAX Newbie
    Joined
    Jun 2015
    Posts
    5
    Location
    Test

    Debug.Print Req.responseText

  8. #8
    VBAX Regular
    Joined
    Jul 2014
    Posts
    79
    Location
      If Not objFSO.FolderExists(strOriginalFolderLocation & Application.PathSeparator & strFolderName) = True Then
        Call NonRecursiveMethod(objFSO, strOriginalFolderLocation)
      End If

  9. #9
    Moderator VBAX Wizard SamT's Avatar
    Joined
    Oct 2006
    Location
    Near Columbia
    Posts
    6,844
    Location
    Ted,

    Posts in the Testing Forum do not add to the member's post count.
    Please take the time to read the Forum FAQ

  10. #10

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •