PDA

View Full Version : Test Code Tags



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

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

Jfp87
05-01-2015, 12:04 AM
This post

Post by me

Jfp87
05-01-2015, 12:04 AM
This post

Again

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

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

DeepDave
06-03-2015, 09:15 PM
Test


Debug.Print Req.responseText

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

SamT
02-17-2016, 11:12 AM
Ted,

Posts in the Testing Forum do not add to the member's post count.

commodity
08-04-2017, 12:36 AM
Post by me