MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Tipos Incompatíveis 13

    Compartilhe

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    [Resolvido]Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 10/6/2018, 15:12

    Galera,
    Ao abrir meu form tenho a seguinte variável para identificar a ordem Max registrada em uma consulta, porém não esta ocorrendo a leitura, gerando tipos incompatíveis.

    Set DB = CurrentDb()
    Me.Requery
    Set qdf = DB.CreateQueryDef("", "SELECT Max([ORDEM])as ordemx FROM [QRY_DIRECT])
    Set Rst = qdf.OpenRecordset()
    curY = Rst("ordemx")

    Set rs = Me.Recordset
    rs.FindFirst "[ORDEM]=" & curY

    Agradeço a todos.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4116
    Registrado : 20/04/2011

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  Silvio em 10/6/2018, 22:17

    Boa noite...

    Não está a falta nada nesse código ? Tipo...alguma alocação de memória (Dim) por exemplo ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 12/6/2018, 13:40

    Silvio,
    Não, olhe como esta o código completo.

    Dim curY As Currency
    Dim DB As Database
    Dim rst As Recordset
    Dim qdf As Recordset
    Dim rs As Recordset

    On Error Resume Next
    Set DB = CurrentDb()
    Me.Requery
    Set qdf = DB.CreateQueryDef("", "SELECT Max([ORDEM]) AS ordemx FROM Consulta1")
    Set rst = qdf.OpenRecordset()
    curY = rst("ordemx")

    Set rs = Me.Recordset
    rs.FindFirst "[ORDEM]=" & curY

    If curY <> 0 Then
    DoCmd.RunCommand acCmdRecordsGoToNext
    End If
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo em 12/6/2018, 14:50

    Código:
    Dim DB As DAO.Database
    Dim rst As DAO.Recordset
    Dim qdf As DAO.Recordset
    Dim rs As DAO.Recordset
    Dim curY As Currency

    'On Error Resume Next
    Set DB = CurrentDb()
    Me.Requery
    Set rst = DB.OpenRecordset("SELECT Max(ORDEM) FROM Consulta1", dbOpenDynaset)
           
            Do Until rst.EOF
                curY = rst(0)
                rst.MoveNext
            Loop
    Set rs = Me.Recordset
    rs.FindFirst "[ORDEM]=" & curY

    If curY <> 0 Then
     DoCmd.RunCommand acCmdRecordsGoToNext
    End If


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 16/6/2018, 18:36

    JPaulo,
    Obrigado por enquanto, porém no código Set rst = DB.OpenRecordset("SELECT Max(ORDEM) FROM QRY_DIRECT", dbOpenDynaset) ele ocorre o erro: 3061 - Parâmetros Insuficientes. Eram esperados 1.

    O que pode ser?
    Coloquei da forma que você mandou.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo em 18/6/2018, 09:24

    erro: 3061
    Muito provavelmente o campo "ORDEM" não está presente na sua consulta.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 19/6/2018, 03:05

    JPaulo, eu cheguei a olhar isso também, mas o campo está lá sim exatamente com esse nome e formato número.
    Inclusive copiei o SQL e joguei em uma query e funcionou, mas ao rodar em vba ele apresenta esse erro.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo em 19/6/2018, 09:47

    Quer por gentileza anexar aqui parte do seu banco ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 28/6/2018, 03:06

    JPaulo,
    Desculpe a demora, vou dar uma otimizada nele para lhe enviar ainda essa semana.

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 29/6/2018, 02:39

    JPaulo, segue o arquivo para verificar.
    Agradeço desde já.
    Anexos
    Sixpel Direct 2018 - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 9 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo em 29/6/2018, 10:06

    Olá;

    Você está a tentar abrir um recordset a uma consulta já filtrada por um formulario, dessa forma não vai dar.

    Para funcionar terá de remover o criterio da consulta e passá-lo para o SQL do recordset;

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim DB As DAO.Database
    Dim rst As DAO.Recordset
    Dim qdf As DAO.Recordset
    Dim rs As DAO.Recordset
    Dim curY As Currency

    'On Error Resume Next
    Set DB = CurrentDb()
    Me.Requery
    Set rst = DB.OpenRecordset("SELECT Max(QRY_DIRECT.ORDEM) FROM QRY_DIRECT WHERE COD_VEND='" & Forms!frm_INICIO!CODENTER & "'", dbOpenDynaset)
         
            Do Until rst.EOF
                curY = rst(0)
                rst.MoveNext
            Loop
    Set rs = Me.Recordset
    rs.FindFirst "[ORDEM]=" & curY

    If curY <> 0 Then
     DoCmd.RunCommand acCmdRecordsGoToNext
    End If

    DoCmd.Maximize
    End Sub

    Download

    Outra alternativa é:

    Delete todo o código existente no acontecimento "Ao abrir" do seu formulario "frm_PRINCIPAL".

    Cole este no acontecimento "Ao carregar" do seu formulario "frm_PRINCIPAL".

    Código:
    Private Sub Form_Load()
    Dim rs As DAO.Recordset
    Dim curY As Currency
    Dim i

    Me.Requery

    i = DMax("ORDEM", "QRY_DIRECT")
     curY = i

    Set rs = Me.Recordset
        rs.FindFirst "[ORDEM]=" & curY

        If curY <> 0 Then
         DoCmd.RunCommand acCmdRecordsGoToNext
        End If

    DoCmd.Maximize
    Call Estrelas
    Call Pintar

    'FazerFalar (Me.txtFala)
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 30/6/2018, 03:16

    JPaulo,
    Funcionou bem, porém ele não esta aplicando o filtro do vendedor, ele esta trazendo 21 registro ao todo mas isso não é só de um único vendedor, ou seja a clausula where não esta funcionando.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo em 2/7/2018, 09:18

    Assim funciona bem, verifique;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Tipos Incompatíveis 13

    Mensagem  Dougtha91 em 24/7/2018, 21:53

    JPaulo,
    Desculpe a demora, funcionou bem, muito obrigado.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo em 31/7/2018, 10:33

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 18/11/2018, 19:10