OPTBUTTON

GESSINGER 25/02/2010 18:51:22
#335390
Ola, pessoal preciso gravar [Ô]Check_Box[Ô]
mas esse codigo ta ffazendo referencia a uma caixa de texto (txtNOme)
alguem pode adptar ele para não precisar disso, só to conseguindo gravar [Ô]Melancia[Ô]

Nome do banco access - Dados
Nome da tabela - Tab e o campo é [Ô]Fruta[Ô]........vou postar o arquivo zip
meu codigo ta assim:

Dim condados As New ADODB.Connection
Dim recdados As New ADODB.Recordset

[ô]Criar botão cmd_enviar
Private Sub cmd_enviar_Click()
condados.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Wilton\Desktop\Check_Box\Dados.mdb;Persist Security Info=False[Ô]
recdados.Open [Ô]SELECT * FROM TAB[Ô], condados, adOpenStatic, adLockOptimistic
recdados.AddNew
recdados([Ô]FRUTA[Ô]) = txtNome.Text.......................................Erro aqui

If optLaranja.Value = True Then
recdados([Ô]FRUTA[Ô]) = [Ô]Laranja[Ô]
Else
recdados([Ô]FRUTA[Ô]) = [Ô]Melancia[Ô]
End If
recdados.Update

recdados.Close
condados.Close

MsgBox [Ô]Cadastro feito com sucesso[Ô], vbInformation, [Ô]..:: Cadastro[Ô]

txtNome.Text = [Ô][Ô]
optLaranja.Value = False
optMelancia.Value = False
End Sub

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
txtNome.Text = [Ô][Ô]
optLaranja.Value = False
optMelancia.Value = False
End Sub

MICROSCHEME 25/02/2010 20:48:48
#335401

O Leo está certo, está usando Check ao invés de Option.

Mas se quiser continuar con check :

Dim condados As New ADODB.Connection
Dim recdados As New ADODB.Recordset

[ô]Criar botão cmd_enviar
Private Sub cmd_enviar_Click()
condados.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Wilton\Desktop\Check_Box\Dados.mdb;Persist Security Info=False[Ô]
recdados.Open [Ô]SELECT * FROM TAB[Ô], condados, adOpenStatic, adLockOptimistic
recdados.AddNew
recdados([Ô]FRUTA[Ô]) = txtNome.Text
recdados.Update
recdados.Close
condados.Close
MsgBox [Ô]Cadastro feito com sucesso[Ô], vbInformation, [Ô]..:: Cadastro[Ô]
txtNome.Text = [Ô][Ô]
optLaranja.Value = 0
optMelancia.Value = 0
End Sub

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
txtNome.Text = [Ô][Ô]
optLaranja.Value = False
optMelancia.Value = False
End Sub

Private Sub optLaranja_Click()
If optLaranja.Value = 1 Then
optMelancia.Value = 0
txtNome.Text = [Ô]Laranja[Ô]
ElseIf optLaranja.Value = 0 Then
txtNome = [Ô][Ô]
End If
End Sub

Private Sub optMelancia_Click()
If optMelancia.Value = 1 Then
optLaranja.Value = 0
txtNome.Text = [Ô]Melancia[Ô]
ElseIf optMelancia.Value = 0 Then
txtNome = [Ô][Ô]
End If
End Sub

Blz . . .

Tópico encerrado , respostas não são mais permitidas