FORM_LOAD (RESOLVIDO)

[Fabin]

Galera é o seguinte tenho uma tela de cadastro e outra de alteração.

na de alteração eu to querendo que quando ela abrir já abra com os campos preenchidos do primeiro registro e vou navegando com os botoes proximo e anterior e caso seje necessaria alguma alterçao eu altero e clico no atualizar... mas é o seguinte eu não to conseguindo carregar os dados vo mandar o codigo para ver se vocês conseguem me judar.

Private Sub Form_Load()

txtCpf.Enabled = False

Dim cnnComando As New ADODB.Command

Dim rsSeleçao As New ADODB.Recordset

On Error GoTo errSeleçao

Screen.MousePointer = vbHourglass

With cnnComando

.ActiveConnection = cnnCadastro

.CommandType = adCmdText

.CommandText = "SELECT * FROM Clientes Order by Nome"

Set rsSeleçao = .Execute

End With

With rsSeleçao

If .EOF And .BOF Then

MsgBox "não há registros cadastrados", vbInformation, "Aviso"

Else

txtNome.Text = !Nome

txtNasc.Text = !DataNasc

txtCpf.Text = !CPF

txtIdentidade.Text = !RG

txtEndereço.Text = !Endereço

txtNumero.Text = !Numero

txtBairro.Text = !Bairro

txtCidade.Text = !Cidade

txtEstado.Text = !Estado

txtResidencial.Text = !TelResidencial

txtCelular.Text = !TelCelular

End If

End With

Saida:

Set rsSeleçao = Nothing

Set cnnComando = Nothing

Screen.MousePointer = vbDefault

Exit Sub

errSeleçao:

With Err

If .Number <> 0 Then

MsgBox "Erro an recuperaçao de eregistro", vbInformation + vbOKOnly + vbApplicationModal, "Erro"

.Number = 0

GoTo Saida

End If

End With

End Sub

VALEWS GAELRA

FUI........ :D

VALEWS GALERA MAS PRECISA MAIS não porque DESCOBRI O ERR

ERA porque COMO não TO USANDO MDI

EU TENHO QUE DECLARA NO FROM LOAD A CONEXAO E não TAVA FAZENDO isso POR isso TAVA DANDO ERRO

MAS VALEWS ABRAÇO

T+ :rolleyes:

Editado Maio 27, 2009 por Fabin