Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
'********* 'update the UserDefined window for Customer Part '********* Private Sub StrCustPart_Changed() If IntRunCode = 1 Then 'Retrieve an ADO Connection for the current user 'Set the current Database company Set cn = UserInfoGet.CreateADOConnection cn.DefaultDatabase = UserInfoGet.IntercompanyID cmd.ActiveConnection = cn 'push the cust part# in table SVC05200 strsql = " Select count(*) from SVC05200 where RETDOCID = '" & RMAEntryUpdate.RMANumber & "' and LNSEQNBR = '" & CStr(CDbl(LineSequence)) & ".00000' " Set rst = cn.Execute(strsql) If rst.Fields(0).Value = 1 Then cmd.CommandText = " UPDATE SVC05200 set USRDEF03='" & StrCustPart & "' where RETDOCID = '" & RMAEntryUpdate.RMANumber & "' and LNSEQNBR = '" & CStr(CDbl(LineSequence)) & ".00000' " cmd.Execute Else MsgBox ("The line Item is not created yet. You need to Create the line item then retype the Customer Part#. If you don't retype it, the Customer Part will not be saved") ' StrCustPart.Value = "" End If End If End Sub