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]Tipos Incompatíveis 13

    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty [Resolvido]Tipos Incompatíveis 13

    Mensagem  Dougtha91 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.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  Silvio 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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Tipos Incompatíveis 13

    Mensagem  Dougtha91 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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Tipos Incompatíveis 13

    Mensagem  Dougtha91 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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  Dougtha91 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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Tipos Incompatíveis 13

    Mensagem  Dougtha91 28/6/2018, 03:06

    JPaulo,
    Desculpe a demora, vou dar uma otimizada nele para lhe enviar ainda essa semana.
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Tipos Incompatíveis 13

    Mensagem  Dougtha91 29/6/2018, 02:39

    JPaulo, segue o arquivo para verificar.
    Agradeço desde já.
    Anexos
    [Resolvido]Tipos Incompatíveis 13 AttachmentSixpel Direct 2018 - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 12 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Tipos Incompatíveis 13

    Mensagem  Dougtha91 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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Tipos Incompatíveis 13

    Mensagem  Dougtha91 24/7/2018, 21:53

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  JPaulo 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tipos Incompatíveis 13 Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Tipos Incompatíveis 13 Empty Re: [Resolvido]Tipos Incompatíveis 13

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:48