nesse codigo

Schossler · Janeiro 27, 2007

Alguem podia por gentileza me informa oq esta errado nesse script q esta dando erro para mim..Private Sub button2_Click() >>>FICA SUBLINHADO NA COR AMARELAIf Text10.Text <> "" Then Dim db As Database >>>FICA SUBLINHADO NA COR CINZA Dim rst As Recordset Set db = OpenDatabase("C:\Documents and Settings\Schossler\Meus documentos\SISDES\sisdes.mdb ") Set rst = db.OpenRecordset("clientes", dbOpenTable) rst.Index = "primarykey" rst!cod = Val(Text10) rst!nome = Trim(Text1) rst!doc = Trim(Combo2) rst!numero = Trim(Text7) rst!endereço = Trim(Text2) rst!bairro = Trim(Text3) rst!cep = Trim(Text8) rst!cidade = Trim(Text4) rst!estado = Trim(Combo1) rst!telefone1 = Val(Text5) rst!telefone2 = Val(Text6) rst!email = Trim(Text9) rst.Update rst.Close db.Close MsgBox "Cliente cadastrado com sucesso!", vbCriticalElse MsgBox "Está faltado informação!", vbCriticalEnd IfEnd SubEu agradeço a ajuda!!

Meokor · Janeiro 28, 2007

Amigo, ficaria mais fácil de se saber qual seria o erro se você colocasse a mensagem que se aparece em tempo de execução.Obrigado.

crauller · Fevereiro 7, 2007

Alguem podia por gentileza me informa oq esta errado nesse script q esta dando erro para mim..

Private Sub button2_Click() >>>FICA SUBLINHADO NA COR AMARELA

If Text10.Text <> "" Then

Dim db As Database >>>FICA SUBLINHADO NA COR CINZA

Dim rst As Recordset

Set db = OpenDatabase("C:\Documents and Settings\Schossler\Meus documentos\SISDES\sisdes.mdb ")

Set rst = db.OpenRecordset("clientes", dbOpenTable)

rst.Index = "primarykey"

rst!cod = Val(Text10)

rst!nome = Trim(Text1)

rst!doc = Trim(Combo2)

rst!numero = Trim(Text7)

rst!endereço = Trim(Text2)

rst!bairro = Trim(Text3)

rst!cep = Trim(Text8)

rst!cidade = Trim(Text4)

rst!estado = Trim(Combo1)

rst!telefone1 = Val(Text5)

rst!telefone2 = Val(Text6)

rst!email = Trim(Text9)

rst.Update

rst.Close

db.Close

MsgBox "Cliente cadastrado com sucesso!", vbCritical

Else

MsgBox "Está faltado informação!", vbCritical

End If

End Sub

Eu agradeço a ajuda!!