[Resolvido]abrir um formulário para edição usando dois critérios

Criei um formulário (fm_alteracontrolediario) que consta data e inspetoria(combox). Adicionei um botão "alterar" e no evento ao clicar inserir a seguinte expressão:
Private Sub Comando6_Click()

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "fm_controlediarioalteração"
stLinkCriteria = "data = " & Me!data1 & "" ' And inspetoria = '" & Me!idposto & "'"
DoCmd.OpenForm stDocName, , stLinkCriteria
End Sub
Problema: Ele sempre abre no primeiro registro, não abre no registro específico referente a data e inspetoria inseridos no formulário "fm_alteracontrolediario".

Tente assim:

Código:

DoCmd.OpenForm "fm_controlediarioalteração", , "data = #" & Format(Me!data1, "mm/dd/yyyy") & "# And inspetoria = " & Me!idposto & ""

Se inspetoria for tipo texto ao invés de numérico, adicione as aspas simples.

Continua abrindo no primeiro registro. Estarei enviando o banco de dados.

Vê se assim funciona:

stLinkCriteria = "data = '" & Format(Me!data1, "mm/dd/yyyy") & "' And inspetoria = " & Me!idposto

Continua abrindo no primeiro registro. Uma dúvida? o formato da data não seria dd/mm/yyyy ao invés de mm/dd/yyyy.

Sim, provavelmente.

Olá companheiros boa noite educadamente tomei a liberdade e fiz alterações no bd, veja:

Não conseguir abrir, tentei nas versões 2003 e 2007

Tenta para ver se abre.

Valeu Lupércio, era isso que eu queria.
Resolvido

Que bom que resolveu o forum agradece, fica com Deus!

Um abraço!