PROXIMO E ANTERIOR

NEREU1301 17/08/2009 11:41:11
#320045
tecla
no load eu abro uma tabela que jogo os dados numa combo
e ai seguindo tua ideia

Private Sub Form_Load()
AbrirTabela
[ô]abre o recorset e desp clientes no combo
rsSelecao.Open [Ô]Select * From Clientes[Ô], cnnOleopl, 1, 2 Do Until rsSelecao.EOF
If Not IsNull(rsSelecao!Numero_OS) Then CboNumOS.AddItem rsSelecao!Numero_OS
rsSelecao.MoveNext
Loop
Saida:
rsSelecao.Close
End Sub

ai ele nem abre o form sinalizando a linha sublinhada
nereu
MARCELO.TREZE 17/08/2009 11:58:11
#320048
posta o seu projeto pra gente dar uma olhada é mais fácil
NEREU1301 17/08/2009 14:20:10
#320067
Dim rsSelecao As New ADODB.Recordset
Dim Comando As New ADODB.Command
Private Sub CboNumOS_Click()
[ô]os dados do cod clicado no combo sao colocados nos text indicados
rsSelecao.Open [Ô]select * from Clientes where Numero_OS = [Ô] & CboNumOS & [Ô][Ô], cnnCetecInfServiços, adOpenDynamic, adLockOptimistic
If Not rsSelecao.EOF Then
TxtNomeCliente.Text = rsSelecao!Nome
TxtProduto.Text = rsSelecao!Produto
Else
MsgBox ([Ô]Não há clientes cadastrados![Ô]), vbExclamation
End If
rsSelecao.Close
End Sub
Private Sub CmdIncluir_Click()
[ô]define o tamanho das coluna do grid
GrdIncluiPec.ColWidth(0) = 1100
GrdIncluiPec.ColWidth(1) = 6500
GrdIncluiPec.ColWidth(2) = 1060
GrdIncluiPec.ColWidth(3) = 1100
GrdIncluiPec.ColWidth(4) = 1350
[ô]inclui dados no primeiro grid
[ô]chr$(9) é pra mudar de celula com enter
GrdIncluiPec.AddItem TxtCodPeca.Text + Chr$(9) + TxtNomePeca.Text + Chr$(9) + _
TxtQuant.Text + Chr$(9) + TxtValor.Text + Chr$(9) + TxtTotLinha.Text
TxtCodPeca.SetFocus
TxtCodPeca.Text = [Ô][Ô]
TxtNomePeca.Text = [Ô][Ô]
TxtQuant.Text = [Ô][Ô]
TxtValor.Text = [Ô][Ô]
TxtTotLinha.Text = [Ô][Ô]
End Sub
Private Sub CmdRemov_Click()
[ô]para remover item do grid
If MsgBox([Ô]Confirma a exclusão deste Item ? [Ô], vbYesNo) = vbYes Then
GrdIncluiPec.RemoveItem (GrdIncluiPec.Row)
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
[ô]se preciona Enter, foco vai para proximo item
If KeyAscii = vbKeyReturn Then
SendKeys [Ô]{Tab}[Ô]
End If
End Sub

Private Sub TxtCodPeca_GotFocus()
Preenche_GrdPecas
End Sub

Private Sub TxtQuant_KeyPress(KeyAscii As Integer)
[ô]para poder clicar virgula e nao ponto quando quantidade centesimal
If KeyAscii = Asc([Ô].[Ô]) Then
KeyAscii = Asc([Ô],[Ô])
End If
End Sub
Private Sub TxtValor_KeyPress(KeyAscii As Integer)
[ô]para poder clicar virgula e nao ponto quando valor
If KeyAscii = Asc([Ô].[Ô]) Then
KeyAscii = Asc([Ô],[Ô])
End If
End Sub
Private Sub TxtTotPecas_LostFocus()
[ô]Formata moeda para valor
TxtTotPecas.Text = Format(TxtTotPecas.Text, [Ô]0.00[Ô])
End Sub
Private Sub TxtServico_LostFocus()
[ô]Formata moeda para valor
TxtServico.Text = Format(TxtServico.Text, [Ô]0.00[Ô])
End Sub
Private Sub TxtTotOfic1_LostFocus()
[ô]Formata moeda para valor
TxtTotOfic1.Text = Format(TxtTotOfic1.Text, [Ô]0.00[Ô])
End Sub
Private Sub Txtvalor_Lostfocus()
[ô]Formata moeda para valor
TxtValor.Text = Format(TxtValor.Text, [Ô]0.00[Ô])
End Sub
Private Sub TxtTotLinha_GotFocus()
[ô]Calcula a celula quantidade vezes valor peça e transf. em reais
TxtTotLinha.Text = Format(TxtValor.Text * TxtQuant.Text, [Ô]0.00[Ô])
End Sub
Private Sub TxtTotOfic1_GotFocus()
TxtTotOfic1.Text = Format(Val(TxtTotPecas.Text) + Val(TxtServico.Text), [Ô]0.00[Ô])
End Sub
Private Sub TxtDataInicioServico_LostFocus()
[ô]Formata data
TxtDataInicioServico.Text = Format(TxtDataInicioServico.Text, [Ô]00/00/0000;0[Ô])
End Sub
Private Sub TxtHoraInicioServico_LostFocus()
[ô]Formata hora
TxtHoraInicioServico.Text = Format(TxtHoraInicioServico.Text, [Ô]00:00[Ô])
End Sub
Private Sub TxtNomeCliente_Change()
[ô]converte em letras maiusculas
TxtNomeCliente.Text = UCase(TxtNomeCliente.Text)
End Sub
Private Sub TxtObs_LostFocus()
Txtobs.Text = UCase(Txtobs.Text)
End Sub
Private Sub TxtNomePeca_LostFocus()
TxtNomePeca.Text = UCase(TxtNomePeca.Text)
End Sub
Private Sub TxtProduto_Change()
TxtProduto.Text = UCase(TxtProduto.Text)
End Sub
Private Sub TxtDataTermServ_LostFocus()
TxtDataTermServ.Text = Format(TxtDataTermServ.Text, [Ô]00/00/0000;0[Ô])
End Sub
Private Sub TxtHoraTermServ_LostFocus()
TxtHoraTermServ.Text = Format(TxtHoraTermServ.Text, [Ô]00:00[Ô])
TxtDataInicioServico.SetFocus
End Sub
Private Sub Preenche_GrdPecas()
[ô]chama a tabela produtos e joga os dados no mshflexgrid
rsSelecao.Open [Ô]Select * From Produtos[Ô], cnnCetecInfServiços, 1, 2
If rsSelecao.RecordCount > 0 Then
With GrdPecas
.Clear
.Cols = 4
.SelectionMode = flexSelectionByRow
.ColWidth(0) = 1100
.ColWidth(1) = 6000
.ColWidth(2) = 1100
.TextMatrix(0, 2) = [Ô]PrecoCompra[Ô]
.ColWidth(3) = 1100
.TextMatrix(0, 3) = [Ô]PrecoVenda[Ô]
.Rows = rsSelecao.RecordCount + 1
rsSelecao.MoveFirst
For i = 1 To rsSelecao.RecordCount
.TextMatrix(i, 0) = IIf(IsNull(rsSelecao!Referencia), [Ô][Ô], rsSelecao!Referencia)
.TextMatrix(i, 1) = IIf(IsNull(rsSelecao!Descricao), [Ô][Ô], rsSelecao!Descricao)
.TextMatrix(i, 2) = IIf(IsNull(rsSelecao!PrecoCompra), [Ô][Ô], Format(rsSelecao!PrecoCompra, [Ô]0.00[Ô]))
.TextMatrix(i, 3) = IIf(IsNull(rsSelecao!PrecoVenda), [Ô][Ô], Format(rsSelecao!PrecoVenda, [Ô]0.00[Ô]))
rsSelecao.MoveNext
Next i
End With
Else
GrdPecas.Clear
vinfo = MsgBox([Ô]Não houve Lançamentos no período informado[Ô], vbInformation + vbOKOnly, [Ô]Histórico de Lançamentos[Ô])
End If
rsSelecao.Close
End Sub
Private Sub Form_Load()

[ô]abre o recordset e coloca dados da tabela clientes na combo
rsSelecao.Open [Ô]Select * From Clientes[Ô], cnnCetecInfServiços, 1, 2
Do Until rsSelecao.EOF
If Not IsNull(rsSelecao!Numero_OS) Then CboNumOS.AddItem rsSelecao!Numero_OS
rsSelecao.MoveNext
Loop
Saida:
Set rsSelecao = Nothing
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
[ô]verifica qual botao foi clicado
Select Case Button.Index
Case 1
IncluirDados
Case 3
ExcluirRegistro
Case 5
ProximoRegistro
Case 6
RegistroAnterior
Case 7
LimparTela
Case 9
Set cnnComando = Nothing
Set rsSelecao = Nothing
Unload Me
End Select
End Sub
Private Sub IncluirDados()
Dim vConfMsg As Integer
Dim vErro As Boolean
Dim vOK As Integer
[ô]inicializa as variaveis auxiliares
vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False
[ô]verifica os dados digitados
If TxtDataInicioServico.Text = Empty Then
MsgBox [Ô]O campo Data Entrada não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
If TxtHoraInicioServico.Text = Empty Then
MsgBox [Ô]O campo Hora Entrada não foi preenchido.[Ô], vConfMsg, [Ô]Erro[Ô]
vErro = True
End If
[ô]Se acontece um erro sai da sub sem gravar
If vErro Then Exit Sub
With cnnComando
.ActiveConnection = cnnCetecInfServiços
.CommandType = adCmdText
[ô]cria o modulo sql
.CommandText = [Ô]INSERT INTO Oficina1[Ô] & _
[Ô](Numero_OS, Nome, Produto, Data_Inicio_Servico, Hora_Inicio_Servico, Prog, Reg, MaqAcid, GrAlim, ConjTecl, MaqTranc, PlBsEletr, CjEntr, GrDis, GrImpr, CjEsc, Pint, RevGer, Mon, CjLeit, Lubr, CjTab, CabImpr, Desm, AlimEscr, LavTratFer, RevGrMot, Lacr, RetCilCar, RevEletr, Solda, Outros, Obs, Data_Term_Serv, Hora_Term_Serv) Values([Ô] & _
CboNumOS.Text & [Ô], [ô][Ô] & TxtNomeCliente.Text & [Ô][ô], [ô][Ô] & TxtProduto.Text & [Ô][ô], [ô][Ô] & _
TxtDataInicioServico.Text & [Ô][ô], [ô][Ô] & TxtHoraInicioServico.Text & [Ô][ô], [Ô] & _
ChkProg.Value & [Ô], [Ô] & ChkReg.Value & [Ô], [Ô] & ChkMaqAcid.Value & [Ô], [Ô] & ChkGrAlim.Value & [Ô], [Ô] & _
ChkConjTecl.Value & [Ô], [Ô] & ChkMaqTranc.Value & [Ô], [Ô] & ChkPlBsEletr.Value & [Ô], [Ô] & _
ChkCjEntr.Value & [Ô], [Ô] & ChkGrDis.Value & [Ô], [Ô] & ChkGrImpr.Value & [Ô], [Ô] & ChkCjEsc.Value & [Ô], [Ô] & _
ChkPint.Value & [Ô], [Ô] & ChkRevGer.Value & [Ô], [Ô] & ChkMon.Value & [Ô], [Ô] & ChkCjLeit.Value & [Ô], [Ô] & _
ChkLubr.Value & [Ô], [Ô] & ChkCjTab.Value & [Ô], [Ô] & ChkCabImpr.Value & [Ô], [Ô] & ChkDesm.Value & [Ô], [Ô] & _
ChkAlimEscr.Value & [Ô], [Ô] & ChkLavTratFer.Value & [Ô], [Ô] & ChkRevGrMot.Value & [Ô], [Ô] & _
ChkLacr.Value & [Ô], [Ô] & ChkRetCilCar.Value & [Ô], [Ô] & ChkRevEletr.Value & [Ô], [Ô] & _
ChkSolda.Value & [Ô], [Ô] & ChkOutros.Value & [Ô], [ô][Ô] & _
Txtobs.Text & [Ô][ô], [ô][Ô] & _
TxtDataTermServ.Text & [Ô][ô], [ô][Ô] & TxtHoraTermServ.Text & [Ô][ô]);[Ô]
.Execute
End With
MsgBox [Ô]Inclusão concluida com sucesso.[Ô], vbInformation + vbOKOnly + vbApplicationModal, [Ô]OK[Ô]
LimparTela
Saida:
Set cnnComando = Nothing
Exit Sub
errInclusao:
With Err
If .Number <> 0 Then
MsgBox [Ô]Houve erro na inclusão dos dados na tabela.[Ô], vbExclamation + vbOKOnly + vbApplicationModal, [Ô]Erro[Ô]
.Number = 0
End If
End With
End Sub
Private Sub ExcluirRegistro()
Dim vOK As Integer

[ô]solicita confirmação de exclusao de registro
vOK = MsgBox([Ô]Confirma a exclusão do registro?[Ô], vbApplicationModal + vbDefaultButton2 + vbQuestion + vbYesNo, [Ô]Exclusão[Ô])
If vOK = vbYes Then
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnCetecInfServiços
.CommandType = adCmdText
[ô]cria o modulo sql
.CommandText = [Ô]DELETE FROM Oficina1 WHERE Numero_OS = [Ô] & CboNumOS.Text & [Ô];[Ô]
.Execute
End With
MsgBox [Ô]Registro excluido com sucesso.[Ô], vbApplicationModal + vbInformation + vbOKOnly, [Ô]Exclusão OK[Ô]
[ô]Chama a sub que apaga todos os campos do formulario
LimparTela
End If
Saida:
Screen.MousePointer = vbDefault
Set cnnComando = Nothing
Set rsSelecao = Nothing
Exit Sub
ErrExclusao:
With Err
If .Number <> 0 Then
MsgBox [Ô]Houve um erro durante a exclusão do registro[Ô], vbExclamation + vbOKOnly + vbApplicationModal, [Ô]Erro[Ô]
.Number = 0
GoTo Saida
End If
End With
End Sub
Private Sub ProximoRegistro()
rsSelecao.Open [Ô]Select * From Oficina1[Ô],
NEREU1301 17/08/2009 14:22:37
#320069
Private Sub ProximoRegistro()
rsSelecao.Open [Ô]Select * From Oficina1[Ô], cnnCetecInfServiços, adOpenForwardOnly, adLockReadOnly
If Not rsSelecao.EOF = True Then
rsSelecao.MoveFirst
If Not rsSelecao.EOF = True Then
Mostrar
rsSelecao.MoveNext
End If
End If

[ô]Habilita o botao excluir
Toolbar1.Buttons(3).Enabled = True
End Sub
Private Sub RegistroAnterior()
rsSelecao.Open [Ô]Select * From Oficina1[Ô], cnnCetecInfServiços, adOpenForwardOnly, adLockReadOnly
If Not rsSelecao.BOF = True Then
rsSelecao.MovePrevious
If Not rsSelecao.BOF = True Then
Mostrar
End If
End If

[ô]Habilita o botao excluir
Toolbar1.Buttons(3).Enabled = True
End Sub
Private Sub LocalizarRegistro()
Dim ProcuraCodigo As String

Set rsSelecao = cnnCetecInfServiços.Execute([Ô]Select * From Oficina1[Ô])

ProcuraCodigo = InputBox([Ô]Digite o Codigo a ser Consultado[Ô])
rsSelecao.Find [Ô]Numero_OS = [Ô] & ProcuraCodigo
If rsSelecao.EOF = True Then
MsgBox [Ô]Registro não Encontrado[Ô], vbExclamation
rsSelecao.MovePrevious
End If
Mostrar
End Sub
Private Sub Mostrar()
CboNumOS.Text = rsSelecao!Numero_OS
TxtNomeCliente.Text = rsSelecao!Nome
TxtProduto.Text = rsSelecao!Produto
TxtDataInicioServico.Text = rsSelecao!Data_Inicio_Servico
TxtHoraInicioServico.Text = rsSelecao!Hora_Inicio_Servico
If (rsSelecao!Prog = [Ô]Verdadeiro[Ô]) Then
ChkProg.Value = 1
Else
ChkProg.Value = 0
End If
If (rsSelecao!Reg = [Ô]Verdadeiro[Ô]) Then
ChkReg.Value = 1
Else
ChkReg.Value = 0
End If
If (rsSelecao!MaqAcid = [Ô]Verdadeiro[Ô]) Then
ChkMaqAcid.Value = 1
Else
ChkMaqAcid.Value = 0
End If
If (rsSelecao!GrAlim = [Ô]Verdadeiro[Ô]) Then
ChkGrAlim.Value = 1
Else
ChkGrAlim.Value = 0
End If
If (rsSelecao!ConjTecl = [Ô]Verdadeiro[Ô]) Then
ChkConjTecl.Value = 1
Else
ChkConjTecl.Value = 0
End If
If (rsSelecao!MaqTranc = [Ô]Verdadeiro[Ô]) Then
ChkMaqTranc.Value = 1
Else
ChkMaqTranc.Value = 0
End If
If (rsSelecao!PlBsEletr = [Ô]Verdadeiro[Ô]) Then
ChkPlBsEletr.Value = 1
Else
ChkPlBsEletr.Value = 0
End If
If (rsSelecao!CjEntr = [Ô]Verdadeiro[Ô]) Then
ChkCjEntr.Value = 1
Else
ChkCjEntr.Value = 0
End If
If (rsSelecao!GrDis = [Ô]Verdadeiro[Ô]) Then
ChkGrDis.Value = 1
Else
ChkGrDis.Value = 0
End If
If (rsSelecao!GrImpr = [Ô]Verdadeiro[Ô]) Then
ChkGrImpr.Value = 1
Else
ChkGrImpr.Value = 0
End If
If (rsSelecao!CjEsc = [Ô]Verdadeiro[Ô]) Then
ChkCjEsc.Value = 1
Else
ChkCjEsc.Value = 0
End If
If (rsSelecao!Pint = [Ô]Verdadeiro[Ô]) Then
ChkPint.Value = 1
Else
ChkPint.Value = 0
End If
If (rsSelecao!RevGer = [Ô]Verdadeiro[Ô]) Then
ChkRevGer.Value = 1
Else
ChkRevGer.Value = 0
End If
If (rsSelecao!Mon = [Ô]Verdadeiro[Ô]) Then
ChkMon.Value = 1
Else
ChkMon.Value = 0
End If
If (rsSelecao!CjLeit = [Ô]Verdadeiro[Ô]) Then
ChkCjLeit.Value = 1
Else
ChkCjLeit.Value = 0
End If
If (rsSelecao!Lubr = [Ô]Verdadeiro[Ô]) Then
ChkLubr.Value = 1
Else
ChkLubr.Value = 0
End If
If (rsSelecao!CjTab = [Ô]Verdadeiro[Ô]) Then
ChkCjTab.Value = 1
Else
ChkCjTab.Value = 0
End If
If (rsSelecao!CabImpr = [Ô]Verdadeiro[Ô]) Then
ChkCabImpr.Value = 1
Else
ChkCabImpr.Value = 0
End If
If (rsSelecao!Desm = [Ô]Verdadeiro[Ô]) Then
ChkDesm.Value = 1
Else
ChkDesm.Value = 0
End If
If (rsSelecao!AlimEscr = [Ô]Verdadeiro[Ô]) Then
ChkAlimEscr.Value = 1
Else
ChkAlimEscr.Value = 0
End If
If (rsSelecao!LavTratFer = [Ô]Verdadeiro[Ô]) Then
ChkLavTratFer.Value = 1
Else
ChkLavTratFer.Value = 0
End If
If (rsSelecao!RevGrMot = [Ô]Verdadeiro[Ô]) Then
ChkRevGrMot.Value = 1
Else
ChkRevGrMot.Value = 0
End If
If (rsSelecao!Lacr = [Ô]Verdadeiro[Ô]) Then
ChkLacr.Value = 1
Else
ChkLacr.Value = 0
End If
If (rsSelecao!RetCilCar = [Ô]Verdadeiro[Ô]) Then
ChkRetCilCar.Value = 1
Else
ChkRetCilCar.Value = 0
End If
If (rsSelecao!RevEletr = [Ô]Verdadeiro[Ô]) Then
ChkRevEletr.Value = 1
Else
ChkRevEletr.Value = 0
End If
If (rsSelecao!Solda = [Ô]Verdadeiro[Ô]) Then
ChkSolda.Value = 1
Else
ChkSolda.Value = 0
End If
If (rsSelecao!Outros = [Ô]Verdadeiro[Ô]) Then
ChkOutros.Value = 1
Else
ChkOutros.Value = 0
End If
Txtobs.Text = rsSelecao!Obs
TxtDataTermServ.Text = rsSelecao!Data_Term_Serv
TxtHoraTermServ.Text = rsSelecao!Hora_Term_Serv
End Sub
Private Sub LimparTela()
[ô]apaga o conteudo dos campos dos formularios
CboNumOS.Text = Empty
TxtNomeCliente.Text = Empty
TxtProduto.Text = Empty
TxtDataInicioServico.Text = Empty
TxtHoraInicioServico.Text = Empty
ChkProg.Value = unchecked
ChkReg.Value = unchecked
ChkMaqAcid.Value = unchecked
ChkGrAlim.Value = unchecked
ChkConjTecl.Value = unchecked
ChkMaqTranc.Value = unchecked
ChkPlBsEletr.Value = unchecked
ChkCjEntr.Value = unchecked
ChkGrDis.Value = unchecked
ChkGrImpr.Value = unchecked
ChkCjEsc.Value = unchecked
ChkPint.Value = unchecked
ChkRevGer.Value = unchecked
ChkMon.Value = unchecked
ChkCjLeit.Value = unchecked
ChkLubr.Value = unchecked
ChkCjTab.Value = unchecked
ChkCabImpr.Value = unchecked
ChkDesm.Value = unchecked
ChkAlimEscr.Value = unchecked
ChkLavTratFer.Value = unchecked
ChkRevGrMot.Value = unchecked
ChkLacr.Value = unchecked
ChkRetCilCar.Value = unchecked
ChkRevEletr.Value = unchecked
ChkSolda.Value = unchecked
ChkOutros.Value = unchecked
Txtobs.Text = Empty
TxtDataTermServ.Text = Empty
TxtHoraTermServ.Text = Empty
TxtDataInicioServico.SetFocus
End Sub
TECLA 17/08/2009 16:03:32
#320075 Resposta escolhida
Tente novamente SOMENTE com os códigos abaixo:

Private Sub Form_Load()
    [ô]abre o recordset e coloca dados da tabela clientes na combo
    rsSelecao.Open [Ô]Select * From Clientes[Ô], cnnCetecInfServiços, 1, 2
    Do Until rsSelecao.EOF
        If Not IsNull(rsSelecao!Numero_OS) Then CboNumOS.AddItem rsSelecao!Numero_OS
        rsSelecao.MoveNext
    Loop
    rsSelecao.MoveFirst
[txt-color=#0B615E][ô]Para que fechar a conexão, se a tabela estará em USO durante um TEMPO???
[ô]Teste com estes comentários e veja se funciona
[ô]Saida:
[ô]    Set rsSelecao = Nothing[/txt-color]
End Sub


Private Sub ProximoRegistro()
rsSelecao.MoveNext
If rsSelecao.Eof Then rsSelecao.MovePrevious
Call Mostrar
End Sub


PS. NÃO retire os comentários citados no evento LOAD.
NEREU1301 17/08/2009 17:22:11
#320089
retorna erro 3265 [Ô]item nao encontrado na col....[ô]
e sinalizou aqui
Private Sub Mostrar()
CboNumOS.Text = rsSelecao!Numero_OS
TxtNomeCliente.Text = rsSelecao!Nome
TxtProduto.Text = rsSelecao!Produto
TxtDataInicioServico.Text = rsSelecao!Data_Inicio_Servico
TxtHoraInicioServico.Text = rsSelecao!Hora_Inicio_Servico
If (rsSelecao!Prog = [Ô]Verdadeiro[Ô]) Then
ChkProg.Value = 1
Else
ChkProg.Value = 0
End If
If (rsSelecao!Reg = [Ô]Verdadeiro[Ô]) Then
ChkReg.Value = 1
Else
ChkReg.Value = 0
End If
If (rsSelecao!MaqAcid = [Ô]Verdadeiro[Ô]) Then
ChkMaqAcid.Value = 1
Else
ChkMaqAcid.Value = 0
End If
If (rsSelecao!GrAlim = [Ô]Verdadeiro[Ô]) Then
ChkGrAlim.Value = 1
Else
ChkGrAlim.Value = 0
End If
TECLA 17/08/2009 20:14:17
#320101
Pelo jeito, o problema do MOVENEXT já foi resolvido.

Citação:

retorna erro 3265 [Ô]item nao encontrado na col....[ô]



Este erro ocorre quando o NOME DA COLUNA foi informado incorretamente no código.
Verifique na tabela o nome CORRETO das colunas abaixo:

If (rsSelecao!Prog = [Ô]Verdadeiro[Ô]) Then
        ChkProg.Value = 1
        Else
        ChkProg.Value = 0
        End If
    If (rsSelecao!Reg = [Ô]Verdadeiro[Ô]) Then
        ChkReg.Value = 1
        Else
        ChkReg.Value = 0
        End If
    If (rsSelecao!MaqAcid = [Ô]Verdadeiro[Ô]) Then
        ChkMaqAcid.Value = 1
        Else
        ChkMaqAcid.Value = 0
        End If
    If (rsSelecao!GrAlim = [Ô]Verdadeiro[Ô]) Then
        ChkGrAlim.Value = 1
        Else
        ChkGrAlim.Value = 0
        End If


Verifique com atenção e retorne o resultado.
NEREU1301 17/08/2009 22:22:37
#320110
tecla
ta resolvido!!
nao sei se vou conseguir me explicar, mas vamo lá
eu to trabalhando no form Oficina1 tabela access oficina1 e no load do form eu chamo os dados do cliente da tabela clientes para autocompletar os dados pela combo

Private Sub Form_Load()

[ô]abre o recordset e coloca dados da tabela clientes na combo
rsSelecao.Open [Ô]Select * From Clientes[Ô], cnnCetecInfServiços, 1, 2
Do Until rsSelecao.EOF
If Not IsNull(rsSelecao!Numero_OS) Then CboNumOS.AddItem rsSelecao!Numero_OS
rsSelecao.MoveNext
Loop
Saida:
Set rsSelecao = Nothing
End Sub

Private Sub CboNumOS_Click()
[ô]os dados do cod clicado no combo sao colocados nos text indicados
rsSelecao.Open [Ô]select * from Clientes where Numero_OS = [Ô] & CboNumOS & [Ô][Ô], cnnCetecInfServiços, adOpenDynamic, adLockOptimistic
[ô]abre o recordset e coloca dados da tabela clientes na combo
If Not rsSelecao.EOF Then
TxtNomeCliente.Text = rsSelecao!Nome
TxtProduto.Text = rsSelecao!Produto
Else
MsgBox ([Ô]Não há clientes cadastrados![Ô]), vbExclamation
End If
rsSelecao.Close
End Sub


como o recorset era da tabela clientes ele nao encontrava os dados

entao para resolver fiz isso

Private Sub Form_Load()
[ô]abre o recordset e coloca dados da tabela clientes na combo
rsSelecao.Open [Ô]Select * From Oficina1[Ô], cnnCetecInfServiços, 1, 2
End Sub

agora vai pro proximo e anterior numa boa.

oque posso fazer é pedir desculpa pelo tempo que os amigos perderam
e se eu puder ajudar, to ai
Nereu
Página 2 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar