1º formulario com os campos:
Status : caixa de combinação
Data: dois campos para digitar, data inicio e fim
Precisa criar um codigo para abrir o segundo formulario com as informações pertinentes aos campos preenchidos no 1º formulario~(status e data)
Aguardo ajuda.
Obrigada
Carolina
o codigo abaixo abre o 2º formulario, filtrando apenas pelo campo "status". Preciso incluir a data também.
Private Sub Comando12_Click()
On Error GoTo Err_Comando12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Formulário2"
stLinkCriteria = "[status]=" & "'" & Me![Combinação16] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando12_Click:
Exit Sub
Err_Comando12_Click:
MsgBox Err.Description
Resume Exit_Comando12_Click
End Sub
Status : caixa de combinação
Data: dois campos para digitar, data inicio e fim
Precisa criar um codigo para abrir o segundo formulario com as informações pertinentes aos campos preenchidos no 1º formulario~(status e data)
Aguardo ajuda.
Obrigada
Carolina
o codigo abaixo abre o 2º formulario, filtrando apenas pelo campo "status". Preciso incluir a data também.
Private Sub Comando12_Click()
On Error GoTo Err_Comando12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Formulário2"
stLinkCriteria = "[status]=" & "'" & Me![Combinação16] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando12_Click:
Exit Sub
Err_Comando12_Click:
MsgBox Err.Description
Resume Exit_Comando12_Click
End Sub