mensagem de atualização

[Bela 0]

Olá!

 

Eu tento gravar alguma coisa com o comando data1.recorset.update e dá a mesagem: Esta ação foi cancelada por um objeto associado, eu já dei um data1.recordset.movelast antes de dar o data1.recorset.addnew mas não adianta o que eu posso fazer.

[Claudio Neto 3]

Olá Bela.

 

Dar o movelast antes do addnew não influencia em nada.

 

Alguma coisa está acontecendo entre seu addnew e seu update.

 

Pode postar como está sua rotina nesse intervalo e como está conectando seus objetos aos seu objeto data?

 

Ficamos no aguardo.

 

Abraços.

[Bela 0]

Olá!

 

Eu tento gravar alguma coisa com o comando data1.recorset.update e dá a mesagem: Esta ação foi cancelada por um objeto associado, eu já dei um data1.recordset.movelast antes de dar o data1.recorset.addnew mas não adianta o que eu posso fazer.

As rotinas são as que seguem:

Private Sub Command1_Click()
 On Error GoTo erros
 Data3.Recordset.AddNew
 Call limp_form(Membros)
 Text7.Text = Date
 cod = cod + 1
 Text1.Text = cod
 Text2.SetFocus
 Combo2.Text = "MG"
 Combo3.Text = "MG"
 inclui = True
erros:
 Select Case Err.Number
  Case 3022
	 MsgBox "Duplicidade de registro! Pressione Ok para Reparar", vbCritical
  Case 3020
	 MsgBox "Sem adição ou edição de registro! Pressione Ok para Reparar", vbCritical
  Case Else
	If Err.Number > 0 And Err.Number <> 3426 Then
	 MsgBox Err.Number & "   " & Err.Description
	End If
 End Select
End Sub

 On Error GoTo erros
 If OptionButton1.Value = True Then
  Data1.Recordset.Fields("sexo") = "M"
 Else
  Data1.Recordset.Fields("sexo") = "F"
 End If
 If inclui = True Then
  Data3.Recordset.Update
  unclui = False
 End If
 'Data1.Recordset.MoveLast
 'Data2.Refresh
erros:
 Select Case Err.Number
  Case 3022
	 MsgBox "Duplicidade de registro! Pressione Ok para Reparar", vbCritical
  Case 3020
	 MsgBox "Sem adição ou edição de registro! Pressione Ok para Reparar", vbCritical
  Case Else
	If Err.Number > 0 Then
	 MsgBox Err.Number & "-" & Err.Description
	End If
 End Select