Dear All, I am writing some vba codes to alert the user that number he/she is putting on Debtor PO number field in Sales Transaction Entry window have been used or not. Am using sop10100 and sop30200. But my first test only include sop10100. Unfortunately my codes are not responding to my expectation. Below is my code Private Sub DebtorPONumber_AfterGotFocus() Dim objRec Dim objConn Dim cmdString Set objRec = CreateObject("ADODB.Recordset") Set objConn = CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=MSDASQL;DSN=GP;DataSource=.;Initial Catalog=TWO;User Id=sa;Password=allowme@1" objConn.Open 'cmdString = "select cstponbr from (select cstponbr from SOP10100 union select cstponbr from SOP30200)a where (a.cstponbr='" + CUSTPONMBR + "')" Do While Not objRec.EOF MsgBox "the po" & " " & CSTPONBR & " " & "has been used" objRec.MoveNext Loop objConn.Close 'End If End Sub Kindly assists on where am going wrong. RonRyan
↧
