RUN-TIME ERROR 3219
Bom dia,
Estou implementado o meu sistema e quando vou fazer visualizar o próximo registro, me retorna o seguinte erro:
RUN-TIME ERROR 3219
Operação não permitida neste contexto.
Bem estou utilizando as seguinte linhas de comando:
Private Sub Cmd_AtDp01_Click()
MdMtDp01.MovePrevious
If Not MdMtDp01.BOF Then
Preenche_Campos_Deps
Else
Frm_Sec008.Enabled = False
ret = MessageBox(0, [Ô]InÃcio de Arquivo[Ô], [Ô]Atenção...[Ô], MB_OKCANCEL)
If ret = 1 Then
Frm_Sec008.Enabled = True
End If
MdMtDp01.MoveNext
End If
End Sub
O erro se dá na primeira linha MdMtDp01.MovePrevious
Como posso tirar este erro???
Obrigado,
Estou implementado o meu sistema e quando vou fazer visualizar o próximo registro, me retorna o seguinte erro:
RUN-TIME ERROR 3219
Operação não permitida neste contexto.
Bem estou utilizando as seguinte linhas de comando:
Private Sub Cmd_AtDp01_Click()
MdMtDp01.MovePrevious
If Not MdMtDp01.BOF Then
Preenche_Campos_Deps
Else
Frm_Sec008.Enabled = False
ret = MessageBox(0, [Ô]InÃcio de Arquivo[Ô], [Ô]Atenção...[Ô], MB_OKCANCEL)
If ret = 1 Then
Frm_Sec008.Enabled = True
End If
MdMtDp01.MoveNext
End If
End Sub
O erro se dá na primeira linha MdMtDp01.MovePrevious
Como posso tirar este erro???
Obrigado,
vc pode postar como vc esta abrindo esa conexão?
pode estar faltando alguma loinha nela....
pode estar faltando alguma loinha nela....
Estou utilizando os seguintes comandos para baertura o banco de dados do MySql:
Public Sub Abre_FDP01()
Set Conexao14 = New ADODB.Connection
Conexao14.ConnectionString = [Ô]Provider=MSDASQL.1;Persist Security Info=False;Data Source=MyAssociados;Mode=ReadWrite;Initial Catalog=aec-minas[Ô]
Conexao14.Open
MdMtDp01.CursorLocation = adUseClient
MdMtDp01.Open [Ô]SELECT * FROM AQ_FUN02 Order By CODDEP_FUN[Ô], Conexao14, adOpenDynamic, adLockOptimistic
End Sub
Public Sub Abre_FDP01()
Set Conexao14 = New ADODB.Connection
Conexao14.ConnectionString = [Ô]Provider=MSDASQL.1;Persist Security Info=False;Data Source=MyAssociados;Mode=ReadWrite;Initial Catalog=aec-minas[Ô]
Conexao14.Open
MdMtDp01.CursorLocation = adUseClient
MdMtDp01.Open [Ô]SELECT * FROM AQ_FUN02 Order By CODDEP_FUN[Ô], Conexao14, adOpenDynamic, adLockOptimistic
End Sub
Cara, eu utilizo essa função, adapta ela ao seu caso e ve se funciona...
Public conectaBD As ADODB.Connection
Public pRs As ADODB.Recordset
Public query As String
Public Sub comandoBD(comando As String)
On Error GoTo notConnect
Set conectaBD = New ADODB.Connection
conectaBD.ConnectionTimeout = 60
conectaBD.CommandTimeout = 400
conectaBD.CursorLocation = adUseClient
conectaBD.Open [Ô]Provider=MSDASQL.1;Persist Security Info=False;Data Source=MyAssociados;Mode=ReadWrite;Initial Catalog=aec-minas[Ô]
If conectaBD.state = 1 Then
query = comando
Set pRs = conectaBD.Execute(query)
conectaBD.Close
Set pRs = Nothing
Set conectaBD = Nothing
End If
notConnect:
End Sub
e pra chamar, comandoBD [Ô]SELECT * FROM AQ_FUN02 Order By CODDEP_FUN[Ô]
Public conectaBD As ADODB.Connection
Public pRs As ADODB.Recordset
Public query As String
Public Sub comandoBD(comando As String)
On Error GoTo notConnect
Set conectaBD = New ADODB.Connection
conectaBD.ConnectionTimeout = 60
conectaBD.CommandTimeout = 400
conectaBD.CursorLocation = adUseClient
conectaBD.Open [Ô]Provider=MSDASQL.1;Persist Security Info=False;Data Source=MyAssociados;Mode=ReadWrite;Initial Catalog=aec-minas[Ô]
If conectaBD.state = 1 Then
query = comando
Set pRs = conectaBD.Execute(query)
conectaBD.Close
Set pRs = Nothing
Set conectaBD = Nothing
End If
notConnect:
End Sub
e pra chamar, comandoBD [Ô]SELECT * FROM AQ_FUN02 Order By CODDEP_FUN[Ô]
Tópico encerrado , respostas não são mais permitidas