SEM REGISTROS NO BANCO
StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [Ô] & LblId.Caption
MyRs2.Open StrSql2, Conexao, adOpenStatic, adLockReadOnly o erro está dando aqui... pelo LblId.Caption estar fazio
If MyRs2.EOF or MyRs2.BOF Then [ô]Função que devolve registos vazios
exprimenta assim
StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [ô] [Ô]+LblId.Caption+[Ô] [ô] [Ô]
MyRs2.Open StrSql2, Conexao, adOpenStatic, adLockReadOnly o erro está dando aqui... pelo LblId.Caption estar fazio
If MyRs2.EOF or MyRs2.BOF Then [ô]Função que devolve registos vazios
exprimenta assim
StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [ô] [Ô]+LblId.Caption+[Ô] [ô] [Ô]
Obrigada Meninos... funcionou ;)
valeu mesmo
valeu mesmo
Tópico encerrado , respostas não são mais permitidas