PESQUISA DUPLICADO

USUARIO.EXCLUIDOS 11/09/2007 12:07:18
#235021
Pessoal, bom dia!!!
Preciso de uma rotina simples q confere dentro do BD (TblVoucherCarimbado) se um determinado número de um doc é igual ao que esta digitado no controle textbox (txtNumeroVoucher).

Ou seja:
No meu form. coloquei um texbox a mais com um Nome de txtNDuplicado. Que na realidade é um espelho do txtNumeroVoucher, Entao quando o txtNumeroVoucher perder o foco a rotina vai comparar o numero do doc, do BD (TblVoucherCarimbado) com o numero do doc, digitado no txtNumeroVoucher, se for igual será emitido um alerta sobre tal número!

Entenderam???

Marcelino Neto
VB6.0
Access2000
Dao
USUARIO.EXCLUIDOS 11/09/2007 12:22:06
#235025 Resposta escolhida

QUAL conexão ta usando?
SILVERDRAGON 11/09/2007 12:23:13
#235026 

Select Tabela.SeuCampo1,Tabela.SeuCampo2,Tabela.SeuCampoN from SuaTabela

if rs("Seucampo") = me.txtNDuplicado then
   Aqui vc coloca a mensagem de ALERTA
else
   Continuacao do codigo
end if



T+
USUARIO.EXCLUIDOS 11/09/2007 12:28:21
#235028
Foi mau...n li a msg inteira

conexão DAO

Tabela.Index = "IndexDoc"
tabela.Seek "=", TxtDoc

If Tabela.NoMatch = False then
Msgbox "Achou"
Else
MsgBox "Não Achou"
end if

Ou

Dim TabelaX as recordset

Set TabelaX = Banco.OpenRecordset("Select * From TblVoucher Where CampoDoc = '" & TxtNDoc & "'"

If TabelaX.RecordCount > 0 then
Msgbox "Achou"
Else
MsgBox "Não Achou"
end if


entendeu ae
USUARIO.EXCLUIDOS 11/09/2007 12:34:23
#235030
Onde tá o erro:

Private Sub txtNVoucherIgual_LostFocus()
Dim StrSql As String
StrSql = "Select NVoucher from TblVoucherCarimbado"
If StrSql("NVoucher") = txtNVoucherIgual Then
MsgBox "Teste"
End If
End Sub
SILVERDRAGON 11/09/2007 12:37:24
#235031 
Private Sub txtNVoucherIgual_LostFocus()
Dim StrSql As String
StrSql = "Select NVoucher from TblVoucherCarimbado"
If StrSql("NVoucher") = txtNVoucherIgual Then '''''''' AQUI <<<<<<<<<<<<<< Coloca assim
If AQUI_TEM_Q_SER_O_SEU_RECORDSET("NVoucher") = txtNVoucherIgual Then 
MsgBox "Teste"
End If
End Sub


To achando pelo menos q e la...

T+
USUARIO.EXCLUIDOS 11/09/2007 12:37:53
#235032
Valeu pessoal, ficou assim:

Dim TabelaX As Recordset
Set TabelaX = CpnInfo.OpenRecordset("Select * From TblVoucherCarimbado Where NVoucher = '" & txtNVoucherIgual & "'")

If TabelaX.RecordCount > 0 Then
MsgBox "Achou"
Else
MsgBox "Não Achou"
End If
Tópico encerrado , respostas não são mais permitidas
Voltar