Hi
First of all apologies for posting so much code but this is rather involved
and I am totally stumped. Basically I have a main form (Staff Batch
SMS/E-Mail) which calls a function (SendSMS) in a module with in turn calls
a form (frmInet) which contains an ms internet control (Inet1). Problem is
that once the function Send SMS returns and the code tries to close the main
form a 'Runtime error 2486: You can't carry out this action at present time'
error occurs. No matter what I try, I get no choice but to end task access
to come out. Any ideas what is causing the form to not close after the
SendSMS function is executed?
Thanks
Regards
= Code Below =======================================
'= Code in calling form 'Staff Batch SMS/E-Mail' ===================
Option Compare Database
Option Explicit
Private Sub Command41_Click()
Dim strReturn As String
If SendSMS(PhoneSt, Left(Me.Description, 160), strReturn, True) = 1 Then
DoCmd.Close acForm, "Staff Batch SMS/E-Mail" '<== Error on this line:
End If
End Sub
'= Code in Module SMS ===================================
Public Function SendSMS(ByVal strMobile As String, ByVal strMessage As
String, Optional strReturn As String, Optional IsHourGlass As Boolean =
False) As Byte
On Error GoTo ErrSMSSend
Dim objInet As Inet
Dim strHeaders As String
Dim strData As String
Dim datStart As Date
Dim booTimeOut
Dim intSendSMS As Integer
Dim strUserName As String
Dim strPassword As String
Dim strURL As String
Dim strHeader
'Get the passwords etc to use
strUserName = SMSUser
strPassword = SMSPassword
strURL = SMSUrl
strHeader = IIf(IsNull(Forms![Staff Batch SMS/E-Mail]![Sender]), SMSHeader,
Forms![Staff Batch SMS/E-Mail]![Sender])
'Send the message
DoCmd.OpenForm "frmInet", , , , , acHidden
strHeaders = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Forms!frmInet!Inet1.Execute strURL, "POST", strData, strHeaders
'Look for return code or wait for time out and show error
datStart = Now
Do
DoEvents
booTimeOut = (DateDiff("n", datStart, Now()) >= 0.5) 'Set for 2 minute
timeout, adjust value after >= to max minutes to wait
Loop Until Forms!frmInet.ControlState = 12 Or booTimeOut
If booTimeOut Then
intSendSMS = 10
strReturn = "Timeout"
Else
strReturn = Trim(Replace(Replace(Replace(Forms!frmInet.PageRet urn, Chr(9),
""), Chr(10), ""), Chr(13), ""))
If IsNumeric(Forms!frmInet.PageReturn) Then
intSendSMS = CInt(Forms!frmInet.PageReturn)
Else
intSendSMS = 11
End If
End If
If intSendSMS = 0 Then
SendSMS = 1
Else
SendSMS = intSendSMS
End If
Select Case intSendSMS
Case 0
MsgBox "SMS Message sent.", vbInformation
Case Else
MsgBox "There was an unexpected problem sending the message, this may
not have been sent. Return code = " & intSendSMS & ". Please pass this code
on to system administrator.", vbInformation
End Select
ExitSMSSend:
On Error Resume Next
DoCmd.Close acForm, "frmInet"
Exit Function
ErrSMSSend:
MsgBox "Error " & Err.Number & ": " & Err.Description
SendSMS = 20
Resume ExitSMSSend
End Function
'Code in frmInet which contains an ms internet control inet1
Option Explicit
Dim intState As Integer
Dim strPageReturn
Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error GoTo ErrInet1_StateChanged
' Retrieve server response using the GetChunk
' method when State = 12.
Dim vtData As Variant
Dim strData As String
Dim bDone As Boolean: bDone = False
intState = State
Select Case State
' ... Other cases not shown.
Case icError ' 11
' In case of error, return ResponseCode and
' ResponseInfo.
vtData = Inet1.ResponseCode & ":" & _
Inet1.ResponseInfo
strPageReturn = vtData
Case icResponseCompleted ' 12
' Get first chunk.
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
' Get next chunk.
vtData = Inet1.GetChunk(1024, icString)
DoEvents
If Len(vtData) = 0 Then
bDone = True
End If
Loop
Dim a, b
a = InStr(strData, "<Response>") + 10
b = InStr(strData, "</Response>")
strPageReturn = Mid(strData, a, 2)
Debug.Print strPageReturn, strData
' MsgBox strPageReturn, , "Return data"
End Select
ExitInet1_StateChanged:
Exit Sub
ErrInet1_StateChanged:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume ExitInet1_StateChanged
End Sub
Property Get ControlState() As Byte
ControlState = intState
End Property
Property Get PageReturn() As String
PageReturn = strPageReturn
End Property 1 2231
Nothing really obvious, John.
There is an object variable that you are not dereferencing: objInet .
There is also a DoEvents, which could possibly affect the timing of when
Access attempts to close the form, or retrigger the same routine again.
Even though you do not have any dependencies on the form after the DoEvents,
Access may not know this, and may believe that the form is still needed.
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:40***********************@news.dial.pipex.com ... First of all apologies for posting so much code but this is rather
involved and I am totally stumped. Basically I have a main form (Staff Batch SMS/E-Mail) which calls a function (SendSMS) in a module with in turn
calls a form (frmInet) which contains an ms internet control (Inet1). Problem is that once the function Send SMS returns and the code tries to close the
main form a 'Runtime error 2486: You can't carry out this action at present
time' error occurs. No matter what I try, I get no choice but to end task access to come out. Any ideas what is causing the form to not close after the SendSMS function is executed?
Thanks
Regards
= Code Below =======================================
'= Code in calling form 'Staff Batch SMS/E-Mail' =================== Option Compare Database Option Explicit
Private Sub Command41_Click() Dim strReturn As String
If SendSMS(PhoneSt, Left(Me.Description, 160), strReturn, True) = 1 Then DoCmd.Close acForm, "Staff Batch SMS/E-Mail" '<== Error on this line: End If End Sub
'= Code in Module SMS =================================== Public Function SendSMS(ByVal strMobile As String, ByVal strMessage As String, Optional strReturn As String, Optional IsHourGlass As Boolean = False) As Byte
On Error GoTo ErrSMSSend Dim objInet As Inet Dim strHeaders As String Dim strData As String Dim datStart As Date Dim booTimeOut Dim intSendSMS As Integer Dim strUserName As String Dim strPassword As String Dim strURL As String Dim strHeader
'Get the passwords etc to use strUserName = SMSUser strPassword = SMSPassword strURL = SMSUrl strHeader = IIf(IsNull(Forms![Staff Batch SMS/E-Mail]![Sender]),
SMSHeader, Forms![Staff Batch SMS/E-Mail]![Sender])
'Send the message DoCmd.OpenForm "frmInet", , , , , acHidden
strHeaders = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Forms!frmInet!Inet1.Execute strURL, "POST", strData, strHeaders
'Look for return code or wait for time out and show error datStart = Now Do DoEvents booTimeOut = (DateDiff("n", datStart, Now()) >= 0.5) 'Set for 2 minute timeout, adjust value after >= to max minutes to wait Loop Until Forms!frmInet.ControlState = 12 Or booTimeOut If booTimeOut Then intSendSMS = 10 strReturn = "Timeout" Else strReturn = Trim(Replace(Replace(Replace(Forms!frmInet.PageRet urn,
Chr(9), ""), Chr(10), ""), Chr(13), "")) If IsNumeric(Forms!frmInet.PageReturn) Then intSendSMS = CInt(Forms!frmInet.PageReturn) Else intSendSMS = 11 End If End If
If intSendSMS = 0 Then SendSMS = 1 Else SendSMS = intSendSMS End If
Select Case intSendSMS Case 0 MsgBox "SMS Message sent.", vbInformation Case Else MsgBox "There was an unexpected problem sending the message, this may not have been sent. Return code = " & intSendSMS & ". Please pass this
code on to system administrator.", vbInformation End Select
ExitSMSSend: On Error Resume Next DoCmd.Close acForm, "frmInet" Exit Function
ErrSMSSend: MsgBox "Error " & Err.Number & ": " & Err.Description SendSMS = 20 Resume ExitSMSSend End Function
'Code in frmInet which contains an ms internet control inet1 Option Explicit Dim intState As Integer Dim strPageReturn
Private Sub Inet1_StateChanged(ByVal State As Integer) On Error GoTo ErrInet1_StateChanged ' Retrieve server response using the GetChunk ' method when State = 12. Dim vtData As Variant Dim strData As String Dim bDone As Boolean: bDone = False
intState = State Select Case State ' ... Other cases not shown. Case icError ' 11 ' In case of error, return ResponseCode and ' ResponseInfo. vtData = Inet1.ResponseCode & ":" & _ Inet1.ResponseInfo strPageReturn = vtData
Case icResponseCompleted ' 12
' Get first chunk. vtData = Inet1.GetChunk(1024, icString) DoEvents
Do While Not bDone strData = strData & vtData ' Get next chunk. vtData = Inet1.GetChunk(1024, icString) DoEvents
If Len(vtData) = 0 Then bDone = True End If Loop
Dim a, b a = InStr(strData, "<Response>") + 10 b = InStr(strData, "</Response>")
strPageReturn = Mid(strData, a, 2) Debug.Print strPageReturn, strData
' MsgBox strPageReturn, , "Return data" End Select
ExitInet1_StateChanged: Exit Sub ErrInet1_StateChanged: MsgBox "Error " & Err.Number & ": " & Err.Description Resume ExitInet1_StateChanged End Sub
Property Get ControlState() As Byte ControlState = intState End Property
Property Get PageReturn() As String PageReturn = strPageReturn End Property This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: yaipa |
last post by:
What would be the common sense way of finding a binary pattern in a
..bin file, say some 200 bytes, and replacing it with an updated pattern
of the same length at the same offset?
Also, the...
|
by: John |
last post by:
Hi
First of all apologies for posting so much code but this is rather involved
and I am totally stumped. Basically I have a main form (Staff Batch
SMS/E-Mail) which calls a function (SendSMS) in...
|
by: Anony |
last post by:
Hi All,
I'm trying to chunk a long string SourceString into lines of LineLength
using this code:
Dim sReturn As String = ""
Dim iPos As Integer = 0
Do Until iPos >= SourceString.Length -...
|
by: MackS |
last post by:
Hello everyone
I am faced with the following problem. For the first time I've asked
myself "might this actually be easier to code in C rather than in
python?", and I am not looking at device...
|
by: ishtar2020 |
last post by:
Hi everybody
I've been writing my very first application in Python and everything is
running smoothly, except for a strange problem that pops up every once
in a while. I'm sure is the kind
of...
|
by: savvy |
last post by:
I'm having some background graphics layout on the page and a table
layout on top of it. Inside the table i have two DropDownList menus
whose AutoPostBack Property is set to true and I'm using two...
|
by: zl2k |
last post by:
hi, all
I am not sure of this question is suitable for the c++ language group
but still hope the experts here can give me some hints.
I am using gcc 3.4.4 in fc3 and got a very strang error when...
|
by: SpreadTooThin |
last post by:
I have a list and I need to do a custom sort on it...
for example:
a = #Although not necessarily in order
def cmp(i,j): #to be defined in this thread.
a.sort(cmp)
print a
|
by: suresh |
last post by:
Hi,
For this code snippet, I get the following output, which I am unable
to understand.
(2^31 = 2147483648)
cout<< -2147483648 << endl;
cout << numeric_limits<int>::min() <<',' <<...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
| |