Re: Need to change the Field order in Requirement module

Hi.

Just add these codes into related modules:

'******common module***********
Sub SetFieldApp(FieldName, Vis, Req, PNo, VOrder)
	On Error Resume Next
	With Req_Fields(FieldName)
		.IsVisible = Vis
		.IsRequired = Req
		.PageNo = PNo
		.ViewOrder = VOrder
	End With
	On Error GoTo 0
End Sub


'*******req module**********'
Sub Req_New
  On Error Resume Next
  ReqFieldSetup
  On Error GoTo 0
End Sub

Sub Req_MoveTo
  On Error Resume Next
  ReqFieldSetup
  On Error GoTo 0
End Sub

Sub ReqFieldSetup
	If User.IsInGroup("Customized_QATester")or User.IsInGroup("TCOE_Defectmanager")or User.IsInGroup("TCOE_DeploymentManager")or User.IsInGroup("TCOE_Developer")or  User.IsInGroup("TCOE_QAtester")or User.IsInGroup("TCOE_ReviewBoardMember")Then
		SetFieldApp"RQ_REQ_ID", True, False, 0, 1
		SetFieldApp"RQ_FATHER_ID", True, False, 0, 2
		SetFieldApp"RQ_ORDER_ID", True, False, 0, 3
		SetFieldApp"RQ_ISTEMPLATE", True, False, 0, 4
		SetFieldApp"RQ_REQ_COMMENT", True, False, 0, 5
		SetFieldApp"RQ_REQ_REVIEWED", True, False, 0, 6
		SetFieldApp"RQ_REQ_PATH", True, False, 0, 7
		SetFieldApp"RQ_REQ_STATUS", True, False, 0, 8
		SetFieldApp"RQ_REQ_PRIORITY", True, False, 0, 9
		SetFieldApp"RQ_REQ_TYPE", True, False, 0, 10
		SetFieldApp"RQ_REQ_PRODUCT", True, False, 0, 11
		SetFieldApp"RQ_REQ_NAME", True, False, 0, 12
		SetFieldApp"RQ_REQ_AUTHOR", True, False, 0, 13
		SetFieldApp"RQ_RBT_IGNORE_IN_ANALYSIS", True, False, 0, 14
		SetFieldApp"RQ_RBT_BSNS_IMPACT", True, False, 0, 15
		SetFieldApp"RQ_RBT_CUSTOM_BSNS_IMPACT", True, False, 0, 16
		SetFieldApp"RQ_RBT_USE_CUSTOM_BSNS_IMPACT", True, False, 0, 17
		SetFieldApp"RQ_RBT_EFFECTIVE_BSNS_IMPACT", True, False, 0, 18
		SetFieldApp"RQ_RBT_FAIL_PROB", True, False, 0, 19
		SetFieldApp"RQ_RBT_CUSTOM_FAIL_PROB", True, False, 0, 20
		SetFieldApp"RQ_RBT_USE_CUSTOM_FAIL_PROB", True, False, 0, 21
		SetFieldApp"RQ_RBT_EFFECTIVE_FAIL_PROB", True, False, 0, 22
		SetFieldApp"RQ_RBT_RISK", True, False, 0, 23
		SetFieldApp"RQ_RBT_CUSTOM_RISK", True, False, 0, 24
		SetFieldApp"RQ_RBT_USE_CUSTOM_RISK", True, False, 0, 25
		SetFieldApp"RQ_RBT_EFFECTIVE_RISK", True, False, 0, 26
		SetFieldApp"RQ_RBT_FUNC_CMPLX", True, False, 0, 27
		SetFieldApp"RQ_RBT_CUSTOM_FUNC_CMPLX", True, False, 0, 28
		SetFieldApp"RQ_RBT_USE_CUSTOM_FUNC_CMPLX", True, False, 0, 29
		SetFieldApp"RQ_RBT_EFFECTIVE_FUNC_CMPLX", True, False, 0, 30
		SetFieldApp"RQ_RBT_TESTING_LEVEL", True, False, 0, 31
		SetFieldApp"RQ_RBT_CUSTOM_TESTING_LEVEL", True, False, 0, 32
		SetFieldApp"RQ_RBT_TESTING_HOURS", True, False, 0, 33
		SetFieldApp"RQ_RBT_CUSTOM_TESTING_HOURS", True, False, 0, 34
		SetFieldApp"RQ_RBT_USE_CUSTOM_TL_AND_TE", True, False, 0, 35
		SetFieldApp"RQ_RBT_RND_ESTIM_EFFORT_HOURS", True, False, 0, 36
		SetFieldApp"RQ_RBT_ASSESSMENT_DATA", True, False, 0, 37
		SetFieldApp"RQ_RBT_ANALYSIS_PARENT_REQ_ID", True, False, 0, 38
		SetFieldApp"RQ_RBT_ANALYSIS_SETUP_DATA", True, False, 0, 39
		SetFieldApp"RQ_RBT_ANALYSIS_RESULT_DATA", True, False, 0, 40
		SetFieldApp"RQ_RBT_LAST_ANALYSIS_DATE", True, False, 0, 41
		SetFieldApp"RQ_USER_01", True, False, 0, 42
		SetFieldApp"RQ_USER_02", True, False, 0, 43
		SetFieldApp"RQ_USER_03", True, False, 0, 44
		SetFieldApp"RQ_USER_04", True, False, 0, 45
		SetFieldApp"RQ_USER_05", True, False, 0, 46
		SetFieldApp"RQ_USER_06", True, False, 0, 47
		SetFieldApp"RQ_USER_07", True, False, 0, 48
		SetFieldApp"RQ_USER_08", True, False, 0, 49
		SetFieldApp"RQ_USER_09", True, False, 0, 50
		SetFieldApp"RQ_USER_10", True, False, 0, 51
		SetFieldApp"RQ_USER_11", True, False, 0, 52
		SetFieldApp"RQ_USER_12", True, False, 0, 53
		SetFieldApp"RQ_REQ_VER_STAMP", True, False, 0, 54
		SetFieldApp"RQ_ATTACHMENT", True, False, 0, 55
		SetFieldApp"RQ_REQ_DATE", True, False, 0, 56
		SetFieldApp"RQ_REQ_TIME", True, False, 0, 57
		SetFieldApp"RQ_NO_OF_SONS", True, False, 0, 58
		SetFieldApp"RQ_IS_FOLDER", True, False, 0, 59
		SetFieldApp"RQ_VTS", True, False, 0, 60
		SetFieldApp"RQ_USER_13", True, False, 0, 61
		SetFieldApp"RQ_USER_14", True, False, 0, 62
		SetFieldApp"RQ_USER_15", True, False, 0, 63
		SetFieldApp"RQ_USER_16", True, False, 0, 64
		SetFieldApp"RQ_USER_17", True, False, 0, 65
		SetFieldApp"RQ_USER_18", True, False, 0, 66
		SetFieldApp"RQ_USER_19", True, False, 0, 67
		SetFieldApp"RQ_USER_20", True, False, 0, 68
		SetFieldApp"RQ_USER_21", True, False, 0, 69
		SetFieldApp"RQ_USER_22", True, False, 0, 70
		SetFieldApp"RQ_USER_23", True, False, 0, 71
		SetFieldApp"RQ_USER_24", True, False, 0, 72
		SetFieldApp"RQ_REQUEST_ID", True, False, 0, 73
		SetFieldApp"RQ_TEXT_SYNC", True, False, 0, 74
		SetFieldApp"RQ_REQUEST_SERVER", True, False, 0, 75
		SetFieldApp"RQ_REQUEST_TYPE", True, False, 0, 76
		SetFieldApp"RQ_REQUEST_STATUS", True, False, 0, 77
		SetFieldApp"RQ_REQUEST_UPDATES", True, False, 0, 78
		SetFieldApp"RQ_REQUEST_ASSIGN_TO", True, False, 0, 79
		SetFieldApp"RQ_REQUEST_NOTE", True, False, 0, 80
		SetFieldApp"RQ_TYPE_ID", True, False, 0, 81
		SetFieldApp"RQ_TARGET_RCYC", True, False, 0, 82
		SetFieldApp"RQ_TARGET_REL", True, False, 0, 83
		SetFieldApp"RQ_DEV_COMMENTS", True, False, 0, 84
		SetFieldApp"RQ_HAS_RICH_CONTENT", True, False, 0, 85
		SetFieldApp"RQ_VC_VERSION_NUMBER", True, False, 0, 86
		SetFieldApp"RQ_VC_STATUS", True, False, 0, 87
		SetFieldApp"RQ_VC_CHECKIN_USER_NAME", True, False, 0, 88
		SetFieldApp"RQ_VC_CHECKIN_DATE", True, False, 0, 89
		SetFieldApp"RQ_VC_CHECKIN_TIME", True, False, 0, 90
		SetFieldApp"RQ_VC_CHECKIN_COMMENTS", True, False, 0, 91
		SetFieldApp"RQ_VC_CHECKOUT_USER_NAME", True, False, 0, 92
		SetFieldApp"RQ_VC_CHECKOUT_DATE", True, False, 0, 93
		SetFieldApp"RQ_VC_CHECKOUT_TIME", True, False, 0, 94
		SetFieldApp"RQ_VC_CHECKOUT_COMMENTS", True, False, 0, 95
		SetFieldApp"RQ_REQ_RICH_CONTENT", True, False, 0, 96
	End If
End Sub

Br, Tomas

[If my advice solves your issue or query, please mark the thread as solved. Clicking on KUDOS star is the best way how to say thank you.]