Test Code Tags

Printable View

05-01-2015, 12:00 AM
Jfp87

Test Code Tags

Code:

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
05-01-2015, 12:02 AM
Jfp87

Quote:

Code:

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
05-01-2015, 12:04 AM
Jfp87

Quote:

Originally Posted by Jfp87

This post

Post by me
05-01-2015, 12:04 AM
Jfp87

Quote:

Originally Posted by Jfp87

This post

Again
05-01-2015, 12:07 AM
Jfp87

Quote:

Originally Posted by Jfp87

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
06-03-2015, 09:15 PM
DeepDave

Test

Code:

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")
06-03-2015, 09:15 PM
DeepDave

Test

Code:

Debug.Print Req.responseText
02-17-2016, 05:35 AM
Jfp87

Code:

If Not objFSO.FolderExists(strOriginalFolderLocation & Application.PathSeparator & strFolderName) = True Then Call NonRecursiveMethod(objFSO, strOriginalFolderLocation) End If
02-17-2016, 11:12 AM
SamT

Ted,

Posts in the Testing Forum do not add to the member's post count.
08-04-2017, 12:36 AM
commodity

Post by me