[Resolvido]Tipos Incompatíveis 13

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.

Boa noite...

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

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

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

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.

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

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.

Quer por gentileza anexar aqui parte do seu banco ?

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

JPaulo, segue o arquivo para verificar.
Agradeço desde já.

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

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.

Assim funciona bem, verifique;

Download

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

Fico feliz.

Obrigado pelo retorno o forum agradece.