Dim zenvioSMSSet As Recordset
Dim zenvioSMSSetProvisorio As Recordset
Dim q01_selectUsers2smsSet As Recordset
Dim zcontrolTableSet As Recordset
Dim mboDB As DAO.Database
Dim nDias As Integer
Dim nDiasAdicionais As Integer
Dim nDiaSemana As Integer
Dim nMsg As Integer
Dim strMsgText As String
Dim strMsgTextClean As String
Dim nidEnvio As Integer
Dim strSendUserID As String
Dim blnYesDay
On Error GoTo errorTrap
Call logMe("frm_preparaEnvia btn_prepararSMS_Click", "start")
Me.Refresh
strSendUserID = Nz(Forms!frm_loggedUserData!CurrentUserID, "") ' quem envia a mensagem
If strSendUserID = "" Then
MsgBox "[frm_preparaEnvia btn_prepararSMS_Click errorTrap]." & _
"[user name].[NULO]"
Call logMe("frm_preparaEnvia btn_prepararSMS_Click errorTrap", _
"[Form_Open_F00_Boot]." & "[user name].[NULO]")
Exit Sub
End If
Set mboDB = CurrentDb
Set zenvioSMSSet = mboDB.OpenRecordset("zenvioSMS", dbOpenDynaset)
Set zenvioSMSProvisorioSet = mboDB.OpenRecordset("zenvioSMSProvisorio", dbOpenDynaset)
Set q01_selectUsers2smsSet = mboDB.OpenRecordset("q01_selectUsers2sms_p02", dbOpenDynaset)
Set zcontrolTableSet = mboDB.OpenRecordset("zcontrolTable", dbOpenDynaset)
zcontrolTableSet.MoveFirst
nDiasAdicionais = zcontrolTableSet!T00_numDiasMsg
ASKER
ASKER
ASKER
ASKER
ASKER
Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.
TRUSTED BY
ASKER
In addition, I have just commented the line and now I am getting the error on the line 33:
Set q01_selectUsers2smsSet = mboDB.OpenRecordset("q01_selectUsers2sms_p02", dbOpenDynaset)
sigh