OPTBUTTON
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
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
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