Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Private Sub Command9_Click() Dim com As ADODB.Command Dim recNameAdress As ADODB.Recordset Dim cmd As ADODB.Command Dim oConn Dim strMailID As String Dim strNoOfPages As String Dim strNoOfAttributes As String DoCmd.Hourglass True On Error Resume Next Set oConn = CreateObject("ADODB.Connection") oConn.Open "DSN=N_DIG_MAIL;" & _ "Uid=PC;" & _ "Pwd=po" Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "SELECT MailID FROM tblNameAddressMod", CurrentProject.Connection Set cmd = New ADODB.Command With cmd .ActiveConnection = oConn .CommandType = adCmdText .CommandText = "exec sp3D_GetListOfDocuments" Set recNameAdress = .Execute End With strMailID = recNameAdress("MailID") strNoOfPages = Nz(recNameAdress("NoOfPages"), " ") strNoOfAttributes = Nz(recNameAdress("NoOfAttributes"), " ") CurrentProject.Connection.Execute "INSERT INTO tblNameAddress Set MailID ='" & Replace(strMailID, "'", "''") & "', " & _ "NoOfPages ='" & strNoOfPages & "', NoOfAttributes ='" & strNoOfAttributes & " " recNameAdress.Close
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.