[resolvido] Ler campo sim/não em qualquer posição do formulário contínuo

Moderador: Avelino Sampaio

Avatar do usuário
silvio
Mensagens: 87
Registrado em: 13 Ago 2015, 16:56
Localização: Piracicaba / SP

[resolvido] Ler campo sim/não em qualquer posição do formulário contínuo

Mensagempor silvio » 19 Dez 2017, 19:20

Prezados boa tarde.

Estou "empacado" em um problema.   Vejam a rotina abaixo...

Código: Selecionar todos

Private Sub atualizar()

If Me.AEnvioEnviado = -1 Or Me.AEnvioEnviado = True Then

If MsgBox("Aplicar a data de: " & Me.DataAeEnviado & vbCrLf & _
          "em todos os registros selecionados ?", vbYesNo, Me.Caption) = vbNo Then
          Exit Sub
          Else
         
          DoCmd.RunCommand acCmdSave

'rotina para copiar a data para os demais campos assinalados com -1

Dim rs As DAO.Recordset
Dim Contador As Long
Dim ContaOProgresso As Long
Set rs = CurrentDb.OpenRecordset("SELECT * FROM QryMudaStatusAEnvioEnviado WHERE AEnvioEnviado  = -1")

If rs.RecordCount > 0 Then
rs.MoveLast
Contador = rs.RecordCount
rs.MoveFirst
End If

For ContaOProgresso = 1 To Contador
rs.Edit
rs("DataAeEnviado") = Me.DataAeEnviado
rs.Update
rs.MoveNext
Next ContaOProgresso
DoCmd.RunCommand acCmdSaveRecord
'fim da rotina de cópia

MsgBox "OK, Total de: " & Contador & " registros atualizados.", vbInformation, Me.Caption
DoCmd.RunCommand acCmdSave
Me.Requery
End If
End If

End Sub



Preciso que o campo " Me.AenvioEnviado" seja lido em qualquer posição do formulário contínuo.
Do modo que está e se encontra, a rotina está lendo apenas o primeiro registro que está no formulário.

Se alguém puder me dar uma força, agradeço deste já.

Abraços.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
silvio
Mensagens: 87
Registrado em: 13 Ago 2015, 16:56
Localização: Piracicaba / SP

[Resolvido]Re: Ler campo sim/não em qualquer posição do formulário contínuo

Mensagempor silvio » 20 Dez 2017, 10:20

Resolvido com a adição de uma caixa de texto externo, onde essa mesma recebe a data do campo que está no formulário continuo.


Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 6 visitantes