MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]FindFirst Data

    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]FindFirst Data Empty [Resolvido]FindFirst Data

    Mensagem  Claudemir P 4/2/2017, 11:59

    Ao executar o código abaixo da erro tipo incompatível:

    Código:
    Private Sub Form_AfterInsert()
    Dim DB As DAO.Database
    Dim RsCaixa, RSCC As DAO.Recordset
    Dim N As Long

    Set DB = CurrentDb()
    Set RsCaixa = DB.OpenRecordset("TbCaixa")
    Set RSCC = DB.OpenRecordset("TbCaixCtrl")
    Set RS = Me.RecordsetClone

          With RSCC
          .FindFirst "[PagoQuando]=#" & Date & "#" 'nesta linha apresenta erro
          If .NoMatch Then
          !Data = Date
          End If
          N = !CodCaixaCtrl
          End With
          RSCC.Close
          Set RSCC = Nothing
           
            With RsCaixa
            .AddNew
            !CodCaixCtrl = N
            !Categoria = 2
            !Documento = 4
            !EntrSaid = 1
            !Tipo = 5
            Form_Form_AssistDet.[CodCaixaVinc] = !CodCaixa
            .Update
            End With
               
            MsgBox Form_Form_AssistDet.Operacao & " Ordem de Serviço " & Format(Form_Form_AssistDet.[OS], "##,###") & Chr(13) & " lançado no Caixa com sucesso!"
               
            'Limpa variáveis
            RsCaixa.Close
            Set RsCaixa = Nothing
            DB.Close
            Set DB = Nothing
            N = 0
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]FindFirst Data Empty Re: [Resolvido]FindFirst Data

    Mensagem  FabioPaes 4/2/2017, 16:00

    Posta aqui o exemplo que dou uma olhada amigo!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]FindFirst Data Empty Re: [Resolvido]FindFirst Data

    Mensagem  Claudemir P 7/2/2017, 02:21

    Veja se é o suficiente
    Anexos
    [Resolvido]FindFirst Data AttachmentRecordset.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 11 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]FindFirst Data Empty Re: [Resolvido]FindFirst Data

    Mensagem  Noobezinho 7/2/2017, 12:34

    Claudemir


    Conserte teu código:

    Private Sub Comando0_Click()
    Dim RSCC As DAO.Recordset, mSQL As String
    Dim N As Long, Dat As Date

    mSQL = "SELECT TbCaixCtrl.CodCaixaCtrl, TbCaixCtrl.Data FROM TbCaixCtrl ORDER BY TbCaixCtrl.Data;"

    Set DB = CurrentDb()
    Set RSCC = DB.OpenRecordset(mSQL)
         
    . . . .


    Detalhe: Data é uma palavra reservada do Access, use outro nome como por exemplo: dData,dt_Doc.



    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Claudemir P
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 27/06/2013

    [Resolvido]FindFirst Data Empty Re: [Resolvido]FindFirst Data

    Mensagem  Claudemir P 7/2/2017, 23:51

    Noobezinho

    Consertado ficou assim:
    Código:
    Dim RSCC As DAO.Recordset
    Dim N As Long, Dati As Date, mSQL As String

    mSQL = "SELECT TbCaixCtrl.CodCaixaCtrl, TbCaixCtrl.Dat FROM TbCaixCtrl;"

    Set DB = CurrentDb()
    Set RSCC = DB.OpenRecordset(mSQL)
          With RSCC
          .MoveFirst
          .FindFirst "[Dat]=  #" & Format(Date, "mm/dd/yyyy") & "#"
          If .NoMatch Then
          MsgBox "Não achou caixa na data de hoje"
          .AddNew
          !Dat = Date
          Me.Dat = !Dat
          .Update
          Else
          N = !CodCaixaCtrl
          MsgBox "Achou caixa na data " & !Dat & " - " & N
          Me.[Dat] = !Dat
          End If
          End With
                 
         
          RSCC.Close
          Set RSCC = Nothing
          DB.Close
          Set DB = Nothing
          N = 0

    Muito obrigado!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]FindFirst Data Empty Re: [Resolvido]FindFirst Data

    Mensagem  Noobezinho 8/2/2017, 00:55

    Ótimo Claudemir

    Bom ter ajudado.


    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]FindFirst Data Empty Re: [Resolvido]FindFirst Data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:20