Boa noite nobre colegas novamente estou aqui para tirar mais uma duvida. baixei o exemplo do nosso amigo JPaulo sobre como usar os formularios desvinculados. Consegui Adicionar os registros so que estou com problema quanto a questão de procurar e editar os registros. Acontece que quando se tem um campo com dados repetidos ele não filtra exemplo.
DISCIPLINA - CURSO
D. Penal - eupasso
D. Penal - japassei
aqui ele so vai filtrar o primeiro da lista no caso não queria que filtrasse pelo nome mais sim pelo Chave primaria.
estou usando a seguinte instrução no combobox apos atualizar.
'By JPaulo ® Maximo Access
On Error Resume Next
Me.cbopesquisa.Visible = False
Me.cbopesquisa.Requery
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
On Error Resume Next
cbopesquisa.SetFocus
If cbopesquisa.Value > 0 Then
strSQL = "SELECT * FROM tbl_disciplina WHERE DISCIPLINA = '" & cbopesquisa.Value & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.cod_disciplina = rs("cod_disciplina")
Me.cod_concurso = rs("cod_concurso")
Me.concurso = rs("concurso")
Me.cursinho = rs("CURSINHO")
Me.disciplina = rs("disciplina")
Me.professor = rs("professor")
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If
Me.disciplina.SetFocus
Me.cbopesquisa.Visible = False
DISCIPLINA - CURSO
D. Penal - eupasso
D. Penal - japassei
aqui ele so vai filtrar o primeiro da lista no caso não queria que filtrasse pelo nome mais sim pelo Chave primaria.
estou usando a seguinte instrução no combobox apos atualizar.
'By JPaulo ® Maximo Access
On Error Resume Next
Me.cbopesquisa.Visible = False
Me.cbopesquisa.Requery
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
On Error Resume Next
cbopesquisa.SetFocus
If cbopesquisa.Value > 0 Then
strSQL = "SELECT * FROM tbl_disciplina WHERE DISCIPLINA = '" & cbopesquisa.Value & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.cod_disciplina = rs("cod_disciplina")
Me.cod_concurso = rs("cod_concurso")
Me.concurso = rs("concurso")
Me.cursinho = rs("CURSINHO")
Me.disciplina = rs("disciplina")
Me.professor = rs("professor")
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If
Me.disciplina.SetFocus
Me.cbopesquisa.Visible = False