PedroBarreto Postado Fevereiro 24, 2008 Denunciar Share Postado Fevereiro 24, 2008 Private Sub DBGrid1_Click()nome = Data1.Recordset.Fields("N°Venda").ValueIf nome = "" Thenpedro = MsgBox("Esta venda não possui pedidos.", vbOKOnly, "Atenção")ElseText5.Text = nomeEnd IfEnd Subae galera..quando eu aciono esse codigo o certo seria ele ver se existe algo no campo do N°Venda, e se existice ele passaria o valor para o text5.text..quando existe algo no N°Venda ele manda para o text5 sem problemas...mas quando não existe nada ele da erro na linda "Text5.Text = nome"o erro é o seguinte:erro 94Invalid use of NullOque pode estar acontecendo??Obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 kuroi Postado Fevereiro 24, 2008 Denunciar Share Postado Fevereiro 24, 2008 o valor gravado no banco é nulo. faca assim q deve resolver:nome = Data1.Recordset.Fields("N°Venda").Value & "" Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
PedroBarreto
Private Sub DBGrid1_Click()
nome = Data1.Recordset.Fields("N°Venda").Value
If nome = "" Then
pedro = MsgBox("Esta venda não possui pedidos.", vbOKOnly, "Atenção")
Else
Text5.Text = nome
End If
End Sub
ae galera..
quando eu aciono esse codigo o certo seria ele ver se existe algo no campo do N°Venda, e se existice ele passaria o valor para o text5.text..
quando existe algo no N°Venda ele manda para o text5 sem problemas...
mas quando não existe nada ele da erro na linda "Text5.Text = nome"
o erro é o seguinte:
erro 94
Invalid use of Null
Oque pode estar acontecendo??
Obrigado
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.