CARREGAR CAMPOS
Viva alguem pode ajudar não consigo que carregue o campo chekbox carrega todos menos este.
Public r As New ADODB.Recordset
----------------------------------------------------------------------------------------------------------------------------
Public Sub Fill()
On Error Resume Next
TxtNum.Text = r.Fields([Ô]num[Ô])
txtID.Text = r.Fields([Ô]ID[Ô])
txtTitular.Text = r.Fields([Ô]Nome[Ô])
txtAddress.Text = r.Fields([Ô]u1[Ô])
txtCity.Text = r.Fields([Ô]u2[Ô])
txtCountry.Text = r.Fields([Ô]u3[Ô])
txtPhone.Text = r.Fields([Ô]u4[Ô])
txtEmail.Text = r.Fields([Ô]u5[Ô])
txtu6.Text = r.Fields([Ô]u6[Ô])
Check1.Value = r.Fields([Ô]empresa[Ô])
Err.Clear
End Sub
Falta informações,
que tipo de dado é esse campo empresa ?
Check1.Value necessita de valor boolean
converta o valor de r.Fields([Ô]empresa[Ô]) em boolean
Mas isso depende do tipo de dado desse campo.
que tipo de dado é esse campo empresa ?
Check1.Value necessita de valor boolean
converta o valor de r.Fields([Ô]empresa[Ô]) em boolean
Mas isso depende do tipo de dado desse campo.
Primeiro que value do CheckBox é numerico 0,1 ou 2.
Se o campo empresa da sua tabela for numérico você colocar direto, mas a melhor maneira é colocando um IF par verificar se o campo da tabela esta com a condição que você quer, pois o mesmo pode estar nulo e vai dar erro!
If r.Fields([Ô]empresa[Ô]) = 1 then
Check1.Value = 1 [ô]ou Check1.Value = checked
Else
Check1.Value = 0 [ô]ou Check1.Value = unchecked
End if
Se o campo empresa da sua tabela for numérico você colocar direto, mas a melhor maneira é colocando um IF par verificar se o campo da tabela esta com a condição que você quer, pois o mesmo pode estar nulo e vai dar erro!
If r.Fields([Ô]empresa[Ô]) = 1 then
Check1.Value = 1 [ô]ou Check1.Value = checked
Else
Check1.Value = 0 [ô]ou Check1.Value = unchecked
End if
Tópico encerrado , respostas não são mais permitidas