brunocasado

é por isso que quando se trata de dados é preferivel se manter um padrão.... geralmente não se coloca acentos..... mais vo pesquisar aqui...

pelo que notei aqui no seu bd a formula esta correta porem esta errada a forma como você quer que ela seje visualizada ele so vai atualizar o campo do jeito que esta apos você clicar nele ou andar em um registro. intao o correto seria colocar aquele codigo do calculo no controle apos atualizar do icms % e recomendo voce gravar esse resultado.... a outra duvida se eu tiver um tempo posso ver pra você

ERRADO : tenta retirar o segundo asterisco... CERTO: Como "*" & [digite] & "*" digita isso que agora vai funcionar cara.. fiz o teste aqui. retorne se deu certo!

bom acho que e simples... no campo que faz a soma insira no apos atualizar [forms]![Formulario_principal]![Campoque deseja visualizar a soma] = me.[campoquesoma] assim estara trazendo o resultado da soma no frm principal

bom galera estou desenvolvendo uma rotina mas esta meio precaria... (porem funciona) é rotina de checagem de produtos. se houver no estoque ele não cria numeros de series se existir ele pega o numero de serie já existente e copia para a tabela de pedido... enfim. estou fazendo tudo isso com fors e ifs... inclusive estou manipulando os dados abrindo os formularios em modo hidden e movimentando neles e usando sql... agora quero me aprofundar mais nessa parte de manipular dados: (ADO creio eu) por exemplo usando um with e andando pelos registros via codigo. gostaria de saber qual melhor maneira de se trabalhar assim, e se voces tem alguma apostila sobre isso. sei que o mrmalj já me passou inclusive um post que fala disso mas gostaria de saber detalhes.... so pra vocês terem ideia do que estou falando (do que eu fiz) Dim stDocName As String DoCmd.SetWarnings False Dim procura1, procura2, procuraqdade1, procuraqdade2 DoCmd.OpenForm "ordem_fabricaçao", acNormal procura1 = DLookup("[codprod]", "procurastock") procura2 = DLookup("[codprod]", "procurapi") procuraqdade1 = DLookup("[qdade]", "procurastock") procuraqdade2 = DLookup("[qdade]", "procurapi", pi = Me.pi) Dim contador, Ultimo, contA, comeso, strSERIE Ultimo = 0 contA = DLookup("[contar]", "contaregistropedidos", Me.pi = pi) If procura1 = procura2 Then 'se conter no stock então.... procuraqdade1 = Nz(DLookup("[qdade]", "procurastock", CODPROD = [Forms]![ordem_fabricaçao]!CODPROD), 0) 'procura stock procuraqdade2 = Nz(DLookup("[qdade]", "procurapi", CODPROD = [Forms]![ordem_fabricaçao]!CODPROD), 0) 'conta qdade de pedido For inicio = 1 To contA 'aqui comesa looping If procuraqdade2 < procuraqdade1 Then 'se a quantidade do pedido for maior que do stock então Dim procuraqdade3, procuraqdade4 procuraqdade3 = Nz(DLookup("[qdade]", "procurastock", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]), 0) procuraqdade4 = Nz(DLookup("[qdade]", "procurapi", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]), 0) procura2 = DLookup("[codprod]", "procurapi", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]) Dim subtracao As Variant subtracao = procuraqdade4 - procuraqdade3 'calcula o restante de maquinas a fabricar If subtracao = 0 Then 'se o numero for = 0 ou maior significa que ah disponibilidade no stock DoCmd.GoToRecord , "ordem_fabricaçao", acNext Else [Forms]![pedidos_pendentes]![qdade] = subtracao '[Forms]![pedidos_pendentes]![codprod].Value = procura2 DoCmd.OpenQuery "restante_OF", acViewNormal For contador = 1 To subtracao DoCmd.OpenForm "nseries", acNormal [Forms]![nseries]![forma].Value = (Nz(DLookup("[MaiorNr]", "GeraNSERIE"), 0) + 1) [Forms]![nseries]![nserie].Value = [Forms]![ordem_fabricaçao]![CODPROD] & Format([Forms]![nseries]![forma], "0000") [Forms]![nseries]![pi].Value = [Forms]![ordem_fabricaçao]![pi].Value [Forms]![nseries]![norc].Value = [Forms]![ordem_fabricaçao]![ncotacao].Value [Forms]![nseries]![CODPROD].Value = [Forms]![ordem_fabricaçao]![CODPROD] strSERIE = strSERIE & [Forms]![nseries]![nserie] & " " Me.junta = strSERIE DoCmd.GoToRecord , "nseries", acNewRec Ultimo = Ultimo + 1 If contador = subtracao Then DoCmd.OpenQuery "atualizaseries", acViewNormal strSERIE = Null End If Next contador DoCmd.GoToRecord , "ordem_fabricaçao", acNext 'stDocNamee = "aprovaPI" 'DoCmd.OpenQuery stDocNamee, acNormal, acEdit If inicio = contA Then DoCmd.Close acForm, "ordem_fabricaçao" DoCmd.Close acForm, "nseries", acSaveYes End If End If Else DoCmd.GoToRecord , "ordem_fabricaçao", acNext End If Next inicio Else For inicio = 1 To contA If procura1 = procura2 Then If procuraqdade2 < procuraqdade1 Then procuraqdade3 = Nz(DLookup("[qdade]", "procurastock", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]), 0) procuraqdade4 = Nz(DLookup("[qdade]", "procurapi", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]), 0) procura2 = DLookup("[codprod]", "procurapi", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]) subtracao = procuraqdade4 - procuraqdade3 If subtracao = 0 Then DoCmd.GoToRecord , "ordem_fabricaçao", acNext Else [Forms]![pedidos_pendentes]![qdade] = subtracao '[Forms]![pedidos_pendentes]![codprod].Value = procura2 DoCmd.OpenQuery "restante_OF", acViewNormal DoCmd.GoToRecord , "ordem_fabricaçao", acNext 'stDocNamee = "aprovaPI" 'DoCmd.OpenQuery stDocNamee, acNormal, acEdit If inicio = contA Then DoCmd.Close acForm, "ordem_fabricaçao" DoCmd.Close acForm, "nseries", acSaveYes End If End If Else DoCmd.GoToRecord , "ordem_fabricaçao", acNext End If Else procuraqdade3 = Nz(DLookup("[qdade]", "procurastock", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]), 0) procuraqdade4 = Nz(DLookup("[qdade]", "procurapi", CODPROD = [Forms]![ordem_fabricaçao]![CODPROD]), 0) subtracao = procuraqdade4 - procuraqdade3 [Forms]![pedidos_pendentes]![qdade] = subtracao DoCmd.OpenQuery "restante_OF", acViewNormal For contador = 1 To subtracao DoCmd.OpenForm "nseries", acNormal [Forms]![nseries]![forma].Value = (Nz(DLookup("[MaiorNr]", "GeraNSERIE"), 0) + 1) [Forms]![nseries]![nserie].Value = [Forms]![ordem_fabricaçao]![CODPROD] & Format([Forms]![nseries]![forma], "0000") [Forms]![nseries]![pi].Value = [Forms]![ordem_fabricaçao]![pi].Value [Forms]![nseries]![norc].Value = [Forms]![ordem_fabricaçao]![ncotacao].Value [Forms]![nseries]![CODPROD].Value = [Forms]![ordem_fabricaçao]![CODPROD] strSERIE = strSERIE & [Forms]![nseries]![nserie] & " " Me.junta = strSERIE DoCmd.GoToRecord , , acNewRec Ultimo = Ultimo + 1 If contador = subtracao Then DoCmd.OpenQuery "atualizaseries", acViewNormal strSERIE = Null End If If inicio = contA Then DoCmd.Close acForm, "ordem_fabricaçao" DoCmd.Close acForm, "nseries", acSaveYes End If Next contador DoCmd.GoToRecord , "ordem_fabricaçao", acNext End If Next inicio '------------------------------------------------------------ End If

galera como posso estar fazendo uma consulta e trazendo todas as informaçoes de um campo em um campo so? exemplo: tenho varios numeros de series relacionados com um numero de pedido ai eu queria trazer todos os numeros de series em um campo de texto dessa forma: LU001001 LU001002 LU001003 e assim por diante como posso estar fazendo? visto que presciso pegar todos os numeros gerados e na visualizaçao mostrar os numeros de serie....

ah sim agora intendi cara... pensei que ele atualizava o caminho para o BE, mas mesmo assim acho que vou adotar esse sistema pois faço muitas modificaçoes no MDB

humm esse seu sistema é capaz de atualizar mais de 2 BE vinculados? meu front end tem 2 back ends vinculados e queria saber se é capaz de atualiza-los um diferente do outro

Winrar ou a nova versao do Winzip.... se ao descompactar estiver um arquivo sem extensao renomeia para rar denovo. e descompact

resolvi galera o codigo invez de colocar no vba coloquei na consulta e mandei abri-la e vuala XD vlw pela luz evanjos

hehe acho que vou acabar usando tambem , pelo que eu li a instrucao sql insert into não pode ser usada em vba. me corrijam se eu estiver errado xD

galera estou aqui novamente com uma duvida como poderei utilizar o Insert into porem copiando dados de uma outra tabela? por exemplo tenho uma tabela que se chama nseries, que serve para armazenar os numeros de series. e as series são criadas quando o pedido interno é gerado.... quando se cancela um pedido interno o numero de serie não pode ser excluido pois a maquina estava em produçao ou ateh mesmo foi produzida.... então eu pensei em COPIAR(não DELETAR NEM TRANSFERIR) o numero de serie, copiando da tabela nseries para a tabela de Nº de series em pendencia.... imagino que terei que usar um comando sql como o insert into porem ele tem que ter como criterio o campo do numero do pedido interno e jogar os n serie na tabela de Nº de series pendentes acho que deve ser algo assim Dim SQL SQL = "INSERT INTO SERIESP(NSERIE,FORMA,PI,NORC,CODPROD) SELECT(NSERIE,FORMA,PI,NORC,CODPROD) FROM NSERIES WHERE pi = [Forms]![pedido_interno]![pi]" DoCmd.RunSQL SQL porem ta dando erro de sintaxe(virgula) alguém poderia da uma força?

consegui galera fiz assim: adiconei uma variavel fim = 0 e no laco fui incrementando e criei um if quando o fim fosse igual a qdade(criterio TO) ele fecharia o formulario...

galera fiz um sisteminha de geraçao de nseries com for.. so que eu gostaria de ao atingir o end for ele executar um comando.... vo por meu codigo For contador = 1 To Me.QDADE Dim Form DoCmd.OpenForm "nseries", acNormal [Forms]![nseries]![forma].Value = (Nz(DLookup("[MaiorNr]", "GeraNSERIE"), 0) + 1) [Forms]![nseries]![nserie].Value = Me.codprod & Format([Forms]![nseries]![forma], "0000") Me.nserie.Value = Me.nserie & " " & [Forms]![nseries]![nserie].Value DoCmd.GoToRecord , , acNewRec Next contador End If depois de atingir o end(ou to) gostaria de fechar o formulario... como poderei estar fazendo isso?

aaaaaa agora sakeii.... no ultimo if você volta o auxiliar no valor 0..... agora sim xD

consegui fiz assim <?php include "conecta_mysql.inc"; $resultado = mysql_query("select * from produtos"); $linhas = mysql_num_rows($resultado); $auxiliar = 0; echo "<table>"; for ($i=0; $i<$linhas; $i++) { if ($auxiliar == 0){echo "<tr>";}else{} $registro = mysql_fetch_row($resultado); echo "<td>"; echo "$registro[0] <br>"; echo "$registro[1] <br>"; echo "$registro[2] <br>"; echo "<img src=" . "$registro[4] /><br>"; echo "</td>"; if ($auxiliar == 2){echo "</tr>"; $auxiliar=0;}else{$auxiliar++;} } echo "</table>"; mysql_close($conexao); ?> porem eu não incrementei o $inicio, alias nem fiz a variavel $inicio..... eu não sakei tb uma coisa, como ele intende que apos 3 td ele gera o proximo tr? eu sakei que quando o auxiliar ta em 0 ele poe um <tr> ai ele vai incrementando ate chegar em 3 e ele fecha o tr so q ai eu não intendi como ele poe outro tr sendo que o auxiliar ficaria no valor de 4..... daria pra me explica direito?

cara não to conseguindo adequa isso .... teria como você da uma olhada no meu codigo? <?php include "conecta_mysql.inc"; $resultado = mysql_query("select * from produtos"); $linhas = mysql_num_rows($resultado); $auxiliar = 0; echo "<table>"; for ($i=0; $i<$linhas; $i++) { $registro = mysql_fetch_row($resultado); echo "$registro[0] <br>"; echo "$registro[1] <br>"; echo "$registro[2] <br>"; echo "<img src=" . "$registro[4] /><br>"; } echo "</table>"; mysql_close($conexao); ?> como ficaria?

aeeeeeeeeee sakei mestre quanto a duvida do posicionamento já tinha imaginado o o tr td alias ateh consegui porem to tentano fazer um controle tipo 4 registros depois linha debaixo to tentano usar um for....

galera to com algumas duvidas... alguns sites quando você entra em determinada area dos produtos eles são listados da esquerda para direita e não um de baixo de outro... prescisaria pelo menos da esquerda para direita uns 4 itens e so assim ir para linha de baixo.... outra duvida e o seguinte quandos esses produtos são listado aparece um pequena descriçao dele(que esta gravada no BD) e logo depois um "+ Detalhes" esse + Detalhes eu teria que gravar no BD tb? ou acredito eu que eu teria que fazer uma query string, que eu aponte para o codigo do produto no BD e ele me traz a pagina que eu fizer sobre os detalhes..... se for por query string tenho uma outra duvida como gerarei para cada produto um + Detalhes dinamicamente sem escrever isso em uma tabela? vlw galera xD

sim acho que já pensei como vou fazer... vou fazer um looping sendo que a condiçao para gerar vai como criterio a qdade. ai no campo de nserie ele vai concatenando os n de serie.... acho que desse modo da para fazer tranquilo....

ae consegui galera o problema tava na inserçao dos dados..... float e smallint não pode ser null....

coloquei e agora quando ele vai acessar o administra.php a tela fica em branco mixeu consegui ver o problema não tava informando porque o mysql_result tava assim mysql_result($sql,$conexao) pelo que eu vi o problema ta no tipo de dados do campo codigo_produto

lol não intendo não esta indo eu fiz igual um outro que eu tinha feito e esse não funciona fala serio....

mas os campos que coloquei sem aspas simples são campos apenas de numeros..... e eu já tentei colocar as aspas. e tb desse metodo não presciso colocar os nomes do campo amenos q eu fizece asssim insert into(nome tabela) (campos,....) Values(1,2);

galera vo pedi arrego já li e reli meu codigo q eu fiz aqui e o programa não insere os dados no mysql vo por os codigos codigo administra.php <?php include "conecta_mysql.inc";(aqui esta correno pois otras paginas estao funcionando..) $cod = $_POST["cod"]; $desc = $_POST["desc"]; $modelo = $_POST["modelo"]; $preço = $_POST["preço"]; $capacidade = $_POST["capacidade"]; $potencia = $_POST["Potencia"]; $tanque = $_POST["tanque"]; $gabinete = $_POST["gabinete"]; $cod1 = $_POST["cod1"]; $cod2 = $_POST["cod2"]; $cod3 = $_POST["cod3"]; $coda1 = $_POST["coda1"]; $coda2 = $_POST["coda2"]; $coda3 = $_POST["coda3"]; $caminho = $_POST["caminho"]; $sql = "insert into produtos values "; $sql .= "('$cod','$desc','$modelo',$preço,'$caminho',$capacidade,'$tanque','$gabinete','$cod1','$cod2','$cod3','$coda1','$coda2','$coda3',$potencia)"; $resultado = mysql_query($sql); echo "Produto Incluido Com Sucesso!"; mysql_close($conexao); ?> codigo da pagina <form action="administra.php" method="POST"> <table width="685" height="531" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="168" valign="top"> <label for="cod"></label> <p>Código:</p> </td> <td width="517" valign="top"><input name="cod" type="text" id="cod"/></td> <tr> <td valign="top"><span class="style4">Descrição: <label for="label"></label> </td> <td valign="top"><span class="style4"> <textarea name="desc" cols="50" id="desc"></textarea> </span></td> </tr> <tr> <td valign="top"><span class="style4">Modelo:</span></td> <td valign="top"> <label for="modelo"></label> <input type="text" name="modelo" id="modelo" /> </td> </tr> <tr> <td valign="top"><span class="style4">Preço:</span></td> <td valign="top"> <label for="preço"></label> <input type="text" name="preço" id="preço" /></td> </tr> <tr> <td valign="top"><span class="style4"></span></td> <td valign="top">&nbsp;</td> </tr> <tr> <td valign="top">&nbsp;</td> <td valign="top" bgcolor="#CCCCCC"><div align="center" class="style4"><strong>Detalhes</strong></div></td> </tr> <tr> <td valign="top"><span class="style4"></span></td> <td valign="top">&nbsp;</td> </tr> <tr> <td valign="top"><span class="style4">Capacidade(L)</span></td> <td valign="top"> <label for="capacidade"></label> <input name="capacidade" type="text" id="capacidade" size="10" maxlength="10" /> </td> </tr> <tr> <td valign="top"><span class="style4">Pôtencia de Limpeza(Watts):</span></td> <td valign="top"> <label for="potencia"></label> <input type="text" name="Potencia" id="potencia" /> </td> </tr> <tr> <td valign="top"></td> <td valign="top" bgcolor="#CCCCCC"><div align="center" class="style4"><strong>Dimensões(mm):</strong></div></td> </tr> <tr> <td valign="top"><span class="style4"></span></td> <td valign="top">&nbsp;</td> </tr> <tr> <td valign="top"><span class="style4">Tanque (CxLxP):</span></td> <td valign="top"> <label for="tanque"></label> <input type="text" name="tanque" id="tanque" /> </td> </tr> <tr> <td valign="top"><span class="style4">Gabinete (LxPxA):</span></td> <td valign="top"> <label for="gabinete"></label> <input type="text" name="gabinete" id="gabinete" /> </td> </tr> <tr> <td valign="top"><span class="style4"></span></td> <td valign="top">&nbsp;</td> </tr> <tr> <td valign="top"><span class="style4"></span></td> <td valign="top" bgcolor="#CCCCCC"><div align="center" class="style4"><strong>Códigos:</strong></div></td> </tr> <tr> <td valign="top" bgcolor="#CCCCCC"><div align="center" class="style4"><strong>Sem Aquecimento:</strong></div></td> <td valign="top">&nbsp;</td> </tr> <tr> <td valign="top"><span class="style4">110 Volts:</span></td> <td valign="top"> <label for="cod1"></label> <input type="text" name="cod1" id="cod1" /> </td> </tr> <tr> <td valign="top"><span class="style4">220 Volts:</span></td> <td valign="top"> <label for="cod2"></label> <input type="text" name="cod2" id="cod2" /> </td> </tr> <tr> <td valign="top"><span class="style4">Bivolt:</span></td> <td valign="top"> <label for="cod3"></label> <input type="text" name="cod3" id="cod3" /> </td> </tr> <tr> <td valign="top"><span class="style4"></span></td> <td valign="top">&nbsp;</td> </tr> <tr> <td valign="top"><div align="center" class="style4"><strong>Com Aquecimento:</strong></div></td> <td valign="top">&nbsp;</td> </tr> <tr> <td height="19" valign="top"><span class="style4">110 Volts:</span></td> <td valign="top"> <label for="coda1"></label> <input type="text" name="coda1" id="coda1" /> </td> </tr> <tr> <td valign="top"><span class="style4">220 Volts:</span></td> <td valign="top"> <label for="coda2"></label> <input type="text" name="coda2" id="coda2" /> </td> </tr> <tr> <td valign="top"><span class="style4">Bivolt</span></td> <td valign="top"> <label for="coda3"></label> <input type="text" name="coda3" id="coda3" /> </td> </tr> <tr> <td valign="top"><span class="style4">Foto:</span></td> <td valign="top"><label for="caminho"></label> <input type="text" name="caminho" id="caminho" /> <tr> <td valign="top">&nbsp;</td> <td valign="top"><input type="submit" name="Inclui" id="button" value="Incluir Produto" /> </table> </form>