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
    7,006
    Location
    Ted,

    Posts in the Testing Forum do not add to the member's post count.
    I always expect the student to do their homework and find all the errrors I leeve in.

    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
  •