MSHFLEXGRID E TABELA ACCESS

NEREU1301 21/08/2009 08:53:45
#320510
amigos
refiz a sub que ficou assim

For i = 0 To GrdIncluiPec.Rows - 2
With cnnComando
.ActiveConnection = cnnCetecInfServiços
.CommandType = adCmdText
[ô]cria o modulo sql
.CommandText = [Ô]INSERT INTO Oficina1[Ô] & _
[Ô](Data_Inicio_Servico, Hora_Inicio_Servico, Numero_OS, Nome, Produto, 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, CodPeca, NomePeca, Quant, Valor, TotLinha, Obs, Data_Term_Serv, Hora_Term_Serv) Values([ô][Ô] & _
TxtDataInicioServico.Text & [Ô][ô], [ô][Ô] & TxtHoraInicioServico.Text & [Ô][ô], [Ô] & _
TxtNumOS.Text & [Ô], [ô][Ô] & TxtNomeCliente.Text & [Ô][ô], [ô][Ô] & TxtProduto.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 & [Ô], [Ô] & _
GrdIncluiPec.TextMatrix(i, 0).Text & [Ô], [Ô] & GrdIncluiPec.TextMatrix(i, 1).Text & [Ô], [Ô] & _
GrdIncluiPec.TextMatrix(i, 2).Text & [Ô], [Ô] & GrdIncluiPec.TextMatrix(i, 3).Text & [Ô], [Ô] & _
GrdIncluiPec.TextMatrix(i, 4).Text & [Ô], [ô][Ô] & _
Txtobs.Text & [Ô][ô], [ô][Ô] & _
TxtDataTermServ.Text & [Ô][ô], [ô][Ô] & TxtHoraTermServ.Text & [Ô][ô]);[Ô]
.Execute
Next i
End With

e me retornou erro [Ô]Invalid Qualifer[Ô] sinalizando no .textMatrix
alguma ideia sobre o erro???
Nereu
TECLA 21/08/2009 08:59:35
#320511
Poste um SCREEN do FORM para que os colegas possam visualizar.
NEREU1301 21/08/2009 09:03:00
#320512
tecla
sinceramente nao sei como fazer isso?
TECLA 21/08/2009 09:10:46
#320514
Citação:

NEREU1301 escreveu:
tecla
sinceramente nao sei como fazer isso?



Baixa o PDF e dá uma olhada no procedimento.
ASHKATCHUP 21/08/2009 09:28:50
#320519
Citação:

NEREU1301 escreveu:
tecla
sinceramente nao sei como fazer isso?



Achei o teu erro.
Você usou

 GrdIncluiPec.TextMatrix(i, 4).Text


O comando [Ô]TextMatrix[Ô] já é uma propriedade. Você não pode acessar a propriedade [Ô]TEXT[Ô] de um [Ô]TEXTMATRIX[Ô].

Corrigindo:


 GrdIncluiPec.TextMatrix(i, 4)
NEREU1301 21/08/2009 09:49:43
#320522
ASH
ficou assim
For i = 0 To GrdIncluiPec.Rows - 2
With cnnComando
.ActiveConnection = cnnCetecInfServiços
.CommandType = adCmdText
[ô]cria o modulo sql
.CommandText = [Ô]INSERT INTO Oficina1[Ô] & _
[Ô](Data_Inicio_Servico, Hora_Inicio_Servico, Numero_OS, Nome, Produto, 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, CodPeca, NomePeca, Quant, Valor, TotLinha, Obs, Data_Term_Serv, Hora_Term_Serv) Values([ô][Ô] & _
TxtDataInicioServico.Text & [Ô][ô], [ô][Ô] & TxtHoraInicioServico.Text & [Ô][ô], [Ô] & _
TxtNumOS.Text & [Ô], [ô][Ô] & TxtNomeCliente.Text & [Ô][ô], [ô][Ô] & TxtProduto.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 & [Ô], [Ô] & _
GrdIncluiPec.TextMatrix(i, 0) & [Ô], [Ô] & GrdIncluiPec.TextMatrix(i, 1) & [Ô], [Ô] & _
GrdIncluiPec.TextMatrix(i, 2) & [Ô], [Ô] & GrdIncluiPec.TextMatrix(i, 3) & [Ô], [Ô] & _
GrdIncluiPec.TextMatrix(i, 4) & [Ô], [ô][Ô] & _
Txtobs.Text & [Ô][ô], [ô][Ô] & _
TxtDataTermServ.Text & [Ô][ô], [ô][Ô] & TxtHoraTermServ.Text & [Ô][ô]);[Ô]
.Execute
End With
Next i
correçao feita e retornou erro [Ô]numero de valores da consulta e campos nao coicidem[Ô]
mas a tabela access tem os mesmos campos??
NEREU1301 21/08/2009 09:52:02
#320523
Tecla
desculpe a burrice mas o form esta em .frm e nao tem esse aquivo disponivel na pag
Tentei salvar como outro tipo mas nao consegui
ASHKATCHUP 21/08/2009 09:54:41
#320525
Coloca a tela em .ZIP
E quais são os tipos dos campos

NomePeca,
Quant,
Valor,
TotLinha,


Pois a propriedade [Ô]TextMatrix[Ô] retorna um string. Para salvar em um campo number, você tem que usar CDBL ou alguma função de conversão.
NEREU1301 21/08/2009 10:08:14
#320527
CodPeca é numero
NomePeca é texto
Quant é numero
Valor é unidade monetaria
totlinha é unidade monetaria sendo que esse valor surge desta 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
ASHKATCHUP 21/08/2009 10:35:52
#320534
Faz assim:


Cdbl(GrdIncluiPec.TextMatrix(i, 0)) & [Ô], [Ô] & GrdIncluiPec.TextMatrix(i, 1) & [Ô], [Ô] & _
Cdbl(GrdIncluiPec.TextMatrix(i, 2)) & [Ô], [Ô] & cdbl(GrdIncluiPec.TextMatrix(i, 3)) & [Ô], [Ô] & _
Cdbl(GrdIncluiPec.TextMatrix(i, 4)) & [Ô], [ô][Ô] & _
Página 2 de 6 [58 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar