Amarrar compo para nao dar erro

[soloplayer 0]

Ola kros amigos, tenho um problema no meu codigo esta parte que mostrarei a voces ela salva e esta funcionando corretamente vejam:

 

 

Private Sub lvlsalvar_Click()	Adodc1.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _		"SERVER=localhost;DATABASE=arteid;UID=root;PWD=;" & _						  "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384	Adodc1.CommandType = adCmdText	Adodc1.RecordSource = "SELECT * FROM artes_mod"	If txtcod = "" Then		MsgBox "Campo nulo"		txtcod.SetFocus		Else	End If'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'   NESTA PARTE DO CODIGO VERIFICAREMOS POR COMANDOS SQL SE JA EXISTE OS DADOS NO BANCO  TXTCOD'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\	Adodc1.RecordSource = "SELECT * FROM artes_mod where cod = " & txtcod	Adodc1.Refresh	If Not Adodc1.Recordset.EOF Then		MsgBox "Erro código ja existente", vbInformation, "Código cadastrado"		txtcod.SetFocus 'joga o foco na caixa código	Exit Sub 'sai dessa rotina (sub)	End If	Adodc1.RecordSource = "SELECT * FROM artes_mod"	Adodc1.Refresh	Adodc1.Recordset.AddNew	Adodc1.Recordset!cod = txtcod	Adodc1.Recordset!Data = mskdatae	Adodc1.Recordset!Datae = mskdatas	Adodc1.Recordset!nome = txtnome	Adodc1.Recordset!linha = cmblinha	Adodc1.Recordset!setor = cmbsetor	Adodc1.Recordset!resp = cmbresp	Adodc1.Recordset!caminho = txtcaminho	Adodc1.Recordset!situacao = cmbfinalisada	Adodc1.Recordset.Update	nao_editar	limpar_campos	editar	fechacon	Conectar	txtcod.SetFocusEnd Sub

nesta parte do codigo

[/code]

If txtcod = "" Then

MsgBox "Campo nulo"

txtcod.SetFocus

Else

End If

ela da a mesagem quando nao digito nada mas da erro pelo fato de nao ficar amarrado ate que seja um campo preenchido, amigos como termino esta instrucao.

[Luizgrs 0]

Deixa essa parte assim:

If txtcod = "" ThenMsgBox "Campo nulo"txtcod.SetFocusexit subEnd If

[soloplayer 0]

Bom dia amigo, kraio você sabe tudo mano se é o cara mano muito Tks mesmo, o que você faz da vida mano? É formado em que? desculpa querer saber é que você é o kra mesmo mano http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

 

Obrigadai o code rodou file.

[Luizgrs 0]

Por enquanto sou apena Técnico de Informática, to pra fazer vestibular =)

[soloplayer 0]

é mano você tem muito potencial parabens mano velho. t+ ver bom final de semana.