Rodrigo Hoffmann

Outubro 19, 2011

Sim, trabalho apenas com ADP, é muito engraçado, não sei se talvez falte algum recurso habilitar no sql server, mas uso muito o sql server 7 com access 2000 e tudo é normal, mesmo agora estou usando o sql server 2003, e as stored que crio no sql não aparecem no access, fiz a conexao access no sql tudo normal, e as tabelas, views, tudo aparece, não consigo resolver este problema.

Outubro 18, 2011

Olá Galera

Preciso de ajuda, uso o access para programar a um bom tempo, mas estou fazendo um sistema via ADP ligado com BD Sql Server 2003, e as stored que crio não aparece no access, tabelas, views, tudo certo, menos storeds, preciso acionar algo, li que devo usar o Access 2007, aguardo ajuda

Outubro 3, 2011

Olá Pessoal

Tenho um problema que não estou conseguindo resolver

Preciso de 3 select, cada um tem if else para ver o valor caso for TODOS faz select normal e caso for diferente de TODOS faz um WHERE no SELECT até ai tudo bem, mas não estou conseguir é atualizar um combo assim que da onchange no primeiro select, fiz via frame, até o segundo combo funcionou, mas acho que exista alguma forma para fazer isso tudo no mesma pagina

segue o código

Fiz 3 forms para os 3 combos, não sei se é necessario, sou leigo ainda em php.

?php

$conexao = mssql_connect($host,$user,$pw) or die ("Falha de coneção!");

$banco = mssql_select_db($db,$conexao);

//COMBO COLECAO

$colecao = mssql_query("SELECT AmostrasItemColecao FROM WEB_COLECAO GROUP BY AmostrasItemColecao ORDER BY AmostrasItemColecao");

?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

body {

margin-left: 0px;

margin-top: 0px;

margin-right: 0px;

margin-bottom: 0px;

}

</style>

</head>

<body>

<table>

<td width="200" style="background-image:url(img/faixa.png);font-family:'Palatino Linotype', 'Book Antiqua', Palatino, serif;font-size:17px;background-repeat:repeat-x;color:#FFF;padding-left:10px;">O que você procura?</td><tr>

</table>

<td style="font-family:Verdana, Geneva, sans-serif;font-size:10px;">COLEÇÃO</td><tr>

<td>

<? while($ccolecao = mssql_fetch_array($colecao))

{ ?><option><?= $ccolecao['AmostrasItemColecao'] ?></option><? } ?>

<option selected=selected">SELECIONAR TODOS</option>

</select>

</form>

</td>

<tr>

<td style="font-family:Verdana, Geneva, sans-serif;font-size:10px;">LINHA</td><tr>

<td>

<?

$colecao = $_GET['colecao];

if ($colecao <> "SELECIONAR TODOS")

{$linha = mssql_query("SELECT AmostrasItemLinha FROM WEB_COLECAO WHERE AmostrasItemColecao = '$colecao' GROUP BY AmostrasItemLinha ORDER BY AmostrasItemLinha");}

else

{$linha = mssql_query("SELECT AmostrasItemLinha FROM WEB_COLECAO GROUP BY AmostrasItemLinha ORDER BY AmostrasItemLinha");}

while($clinha = mssql_fetch_array($linha))

{ ?><option><?= $clinha['AmostrasItemLinha'] ?></option><? }

?>

<option selected=selected">SELECIONAR TODOS</option>

</select>

</form>

</td><tr>

<td>

<?

$linha = $_GET['linha];

//COMBO TIPO

if ($linha <> "SELECIONAR TODOS")

{$tipo = mssql_query("SELECT Tipo FROM WEB_COLECAO WHERE AmostrasItemLinha ='$linha' GROUP BY Tipo ORDER BY Tipo");}

else

{$tipo = mssql_query("SELECT Tipo FROM WEB_COLECAO GROUP BY Tipo ORDER BY Tipo");}

while($ctipo = mssql_fetch_array($tipo))

{ ?><option><?= $ctipo['Tipo'] ?></option><? } ?>

<option selected="selected">SELECIONAR TODOS</option>

</select>

</form>

</td>

<tr>

<td>

</table>

</div>

</body>

</html>

Novembro 3, 2010

Olá

Estou com esse problema em vba

alguém consegue me ajudar por favor

Dim cnn             As ADODB.Connection
    Dim CMD             As ADODB.Command
    Dim Prm             As New ADODB.Parameter
    Dim rst             As ADODB.Recordset
    Set rst = CreateObject("ADODB.Recordset")
    Set cnn = CurrentProject.Connection

    Set CMD = New ADODB.Command
    Set CMD.ActiveConnection = cnn
    CMD.CommandText = "dbo.[Formulario Subformulario PRD_PRE_PEDIDO_CHECK_CONSUMO]"
    CMD.CommandType = adCmdStoredProc
    Set Prm = CMD.CreateParameter("@Referencia", adInteger, adParamInput, , Nz(Me.ReferenciaCodigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@MATERIAL", adInteger, adParamInput, , Nz(Me.MaterialCodigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material1", adInteger, adParamInput, , Nz(Me.MaterialNivel1Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material2", adInteger, adParamInput, , Nz(Me.MaterialNivel2Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material3", adInteger, adParamInput, , Nz(Me.MaterialNivel3Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material4", adInteger, adParamInput, , Nz(Me.MaterialNivel4Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material5", adInteger, adParamInput, , Nz(Me.MaterialNivel5Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material6", adInteger, adParamInput, , Nz(Me.MaterialNivel6Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material7", adInteger, adParamInput, , Nz(Me.MaterialNivel7Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material8", adInteger, adParamInput, , Nz(Me.MaterialNivel8Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Material9", adInteger, adParamInput, , Nz(Me.MaterialNivel9Codigo, Null))
    CMD.Parameters.Append Prm
    Set Prm = CMD.CreateParameter("@Cor", adInteger, adParamInput, , Nz(Me.ProdutoNivel5, Null))
    CMD.Parameters.Append Prm
    Set rst = CMD.Execute
    If rst.EOF Then
    MsgBox "SEM CONSUMO", vbOKOnly
    End If

O erro que dá é: OPERAÇÃO NÃO PERMITIDA QUANDO OBJETO ESTA FECHADO

Novembro 3, 2010

Olá

Tenho um problema.

Fiz uma stored com 10 parametros em sql server e via vba access queria se comunicar com ela num formulario folha de dados, nele eu tenho 10 campos, e precisaria que a cada vez que saisse do registro ele passava os valores dos 10 campos a stored e ele rodava e se não retorna-se nenhum resultado daria mensagem: "nenhum item encontrado

Eu tentei fazer de duas maneiras mas sou meio nato nisso ainda

Maneira 1

Dim cnn As ADODB.Connection

Dim CMD As ADODB.Command

Dim Prm As New ADODB.Parameter

Dim rst As ADODB.Recordset

Set cnn = CurrentProject.Connection

Set CMD = New ADODB.Command

Set CMD.ActiveConnection = cnn

CMD.CommandText = "DBO.[Formulario Subformulario PRD_PRE_PEDIDO_CHECK_CONSUMO]"

CMD.CommandType = adCmdStoredProc

Set Prm = CMD.CreateParameter("@Referencia", adInteger, adParamInput, , Nz(Me.ReferenciaCodigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material", adInteger, adParamInput, , Nz(Me.MaterialCodigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material1", adInteger, adParamInput, , Nz(Me.MaterialNivel1Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material2", adInteger, adParamInput, , Nz(Me.MaterialNivel2Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material3", adInteger, adParamInput, , Nz(Me.MaterialNivel3Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material4", adInteger, adParamInput, , Nz(Me.MaterialNivel4Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material5", adInteger, adParamInput, , Nz(Me.MaterialNivel5Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material6", adInteger, adParamInput, , Nz(Me.MaterialNivel6Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material7", adInteger, adParamInput, , Nz(Me.MaterialNivel7Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material8", adInteger, adParamInput, , Nz(Me.MaterialNivel8Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Material9", adInteger, adParamInput, , Nz(Me.MaterialNivel9Codigo, Null))

CMD.Parameters.Append Prm

Set Prm = CMD.CreateParameter("@Cor", adInteger, adParamInput, , Nz(Me.ProdutoNivel5, Null))

CMD.Parameters.Append Prm

rst = CMD.Execute,,adOpenDynamic

If rst.EOF Then

MsgBox "ITEM SEM CONSUMO", vbOKOnly

Else

rst.Close

End If

End Sub

maneira 2

Dim cnn As ADODB.Connection

Dim CMD As ADODB.Command

Dim rst As ADODB.Recordset

Set cnn = CurrentProject.Connection

Set CMD.ActiveConnection = cnn

CMD.CommandText = "[Formulario Subformulario PRD_PRE_PEDIDO_CHECK_CONSUMO]"

Set rst = CMD.Execute(, Nz(Me.ReferenciaCodigo, Null), Nz(Me.MaterialCodigo, Null), Nz(Me.MaterialNivel1Codigo, Null), Nz(Me.MaterialNivel2Codigo, Null), Nz(Me.MaterialNivel3Codigo, Null), Nz(Me.MaterialNivel4Codigo, Null), Nz(Me.MaterialNivel5Codigo, Null), Nz(Me.MaterialNivel6Codigo, Null), Nz(Me.MaterialNivel7Codigo, Null), Nz(Me.MaterialNivel8Codigo, Null), Nz(Me.MaterialNivel9Codigo, Null), Nz(Me.ProdutoNivel5, Null), adCmdStoredProc)

Set CMD = Nothing

If rst.EOF Then

MsgBox "ITEM SEM CONSUMO", vbOKOnly

Else

rst.Close

End If

Posso estar completamente errado ou talvez quase certo

Mas aqui da erro

Até mais

Outubro 7, 2010

Sim Mas quero que apareça no subform que já é ligado numa tabela

Outubro 6, 2010

Poisé já tentei isso e não funciona

É que não estou com o formulario da empresa aberto quando uso o form da ordem de compra

entende então na tabela da empresa não esta setado a empresa para que la o sub fique com os dados e possa então copiar estes dados

Outubro 6, 2010

Olá

Estou com problemas para resolver isso

Tenho dois subs

SUB ORDEM DE COMPRA CONDICOES DE PAGAMENTO

SUB EMPRESA CONDICOES

No FORM EMPRESA eu cadastro as condições de pagamento no SUB EMPRESA CONDICOES ali possuo 5 colunas

Gostaria que quando eu fosse no form ORDEM DE COMPRA, quando fizesse um cadastro novo e colocasse o nome da empresa, e entrasse no SUB ORDEM DE COMPRA CONDICOES DE PAGAMENTO já puxasse la do SUB EMPRESA CONDICOES as condições padroes

Lembrando que os dois subs estão ligados em tabelas distintas, sem ligação nenhuma,

acho que se fizer um select e colocar um paramentro pelo nome da empresa daria, mas não consigo montar isso em vba,

Me ajudem por favor

Setembro 29, 2010

Olá me ajude nunca trabalhei com esse metodo ainda

minha consulta é essa, onde colocaria isso

CREATE PROCEDURE DBO.[Formulario LFC_GERACAO_ARQUIVO_RECEITA_FEDERAL_431]

(

@PCodEmpresa INT,

@PDataI DATETIME,

@PDataF DATETIME

)

AS

SELECT

BAS_DOCUMENTO.NotaFiscalEntSai,

BAS_DOCUMENTO.ModeloNotaCod,

BAS_DOCUMENTO.NotaFiscalSerie,

BAS_DOCUMENTO.NotaFiscalSubSerie,

BAS_DOCUMENTO.NotaFiscalNumero,

(SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataEmissao, 103), '/', '') AS numeric) AS NotaFiscalDataEmissao,

BAS_DOCUMENTO.NotaFiscalEmpCodigo,

(SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataLancamento, 103), '/', '') AS numeric) AS NotaFiscalDataLancamento,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorProdutos) AS TotalMercadoria,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorDesconto) AS TotalDesconto,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorFrete) AS TotalFrete,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorSeguro) AS TotalSeguro,

(SELECT

SUM(OUTRAS.NFRLOutrasIPI)

FROM

BAS_DOCUMENTO_REG_LAN AS OUTRAS

INNER JOIN BAS_DOCUMENTO ON OUTRAS.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador

INNER JOIN BAS_DOCUMENTO_HISTORICO ON OUTRAS.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo

INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod

INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao

WHERE

(OUTRAS.HistoricoCodigo in ('193301','193302','193307','135201','193303','135203','135204','135205','135206','135207','135208','135209','135210','130201','235202','235201')) AND

(OUTRAS.NotaFiscalContador = BAS_DOCUMENTO_REG_LAN.NotaFiscalContador)) AS TotalDespesa,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorIPI) AS TotalIPI,

'0' AS TotalICMS,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorContabil) AS TotalContabil,

'00000000000000' AS SubsTributario,

'000000000000000' AS ViaTransporte,

(SELECT TOP 1

BAS_EMPRESA.EmpCódigo

FROM

BAS_EMPRESA

WHERE

BAS_EMPRESA.EmpFantasia = BAS_DOCUMENTO.EmpFantasiaTransportador) AS CodigoTransportador,

NotaFiscalQuantidade,

NotaFiscalEspecie,

NotaFiscalPesoBruto,

NotaFiscalPesoLiquido,

(CASE WHEN ISNULL(BAS_DOCUMENTO.NotaFiscalFrete,0) = 1 THEN 'FOB' ELSE 'CIF' END) AS NotaFiscalFrete,

NotaFiscalPlaca,

'N' AS Cancelado,

'2' AS Fatura,

(LTRIM(RTRIM(ISNULL(BAS_DOCUMENTO.NotaFiscalOBS,'')))+ISNULL(NotaFiscalDadosAdicionais,'')) AS Observacao

FROM

BAS_DOCUMENTO_REG_LAN

INNER JOIN BAS_DOCUMENTO ON BAS_DOCUMENTO_REG_LAN.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador

INNER JOIN BAS_DOCUMENTO_HISTORICO ON BAS_DOCUMENTO_REG_LAN.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo

INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod

INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao

WHERE

(BAS_DOCUMENTO_MODELO.ModeloNotaSintegra = 1) AND

(BAS_DOCUMENTO.CodEmpresa = @PCodEmpresa) AND

(LFC_DOCUMENTO_OPERACAO.NaturezaOperacaoTransICMS<>1) AND

(BAS_DOCUMENTO.NotaFiscalDataLancamento BETWEEN CONVERT(DATETIME,@PDataI, 102) and CONVERT(DATETIME,@PDataF, 102)) AND

(BAS_DOCUMENTO.NotaFiscalEntSai in ('E')) AND

(BAS_DOCUMENTO.NotaFiscalEmpTipo in ('J')) AND

(BAS_DOCUMENTO.ModeloNotaCod IN ('1','55','6','22','8'))

GROUP BY

BAS_DOCUMENTO.NotaFiscalEntSai,

BAS_DOCUMENTO.ModeloNotaCod,

BAS_DOCUMENTO.NotaFiscalSerie,

BAS_DOCUMENTO.NotaFiscalSubSerie,

BAS_DOCUMENTO.NotaFiscalNumero,

BAS_DOCUMENTO.NotaFiscalDataEmissao,

BAS_DOCUMENTO_REG_LAN.NotaFiscalContador,

BAS_DOCUMENTO.NotaFiscalEmpCodigo,

BAS_DOCUMENTO.NotaFiscalDataLancamento,

BAS_DOCUMENTO.NotaFiscalOBS,

BAS_DOCUMENTO.NotaFiscalDadosAdicionais,

BAS_DOCUMENTO.EmpFantasiaTransportador,

BAS_DOCUMENTO.NotaFiscalEspecie,

BAS_DOCUMENTO.NotaFiscalPesoBruto,

BAS_DOCUMENTO.NotaFiscalPesoLiquido,

BAS_DOCUMENTO.NotaFiscalFrete,

BAS_DOCUMENTO.NotaFiscalPlaca,

BAS_DOCUMENTO.NotaFiscalQuantidade

UNION ALL

SELECT

BAS_DOCUMENTO.NotaFiscalEntSai,

BAS_DOCUMENTO.ModeloNotaCod,

BAS_DOCUMENTO.NotaFiscalSerie,

BAS_DOCUMENTO.NotaFiscalSubSerie,

BAS_DOCUMENTO.NotaFiscalNumero,

(SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataEmissao, 103), '/', '') AS numeric) AS NotaFiscalDataEmissao,

BAS_DOCUMENTO.NotaFiscalEmpCodigo,

(SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataLancamento, 103), '/', '') AS numeric) AS NotaFiscalDataLancamento,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorProdutos) AS TotalMercadoria,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorDesconto) AS TotalDesconto,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorFrete) AS TotalFrete,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorSeguro) AS TotalSeguro,

(SELECT

SUM(OUTRAS.NFRLOutrasIPI)

FROM

BAS_DOCUMENTO_REG_LAN AS OUTRAS

INNER JOIN BAS_DOCUMENTO ON OUTRAS.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador

INNER JOIN BAS_DOCUMENTO_HISTORICO ON OUTRAS.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo

INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod

INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao

WHERE

(OUTRAS.HistoricoCodigo in ('193301','193302','193307','135201','193303','135203','135204','135205','135206','135207','135208','135209','135210','130201','235202','235201')) AND

(OUTRAS.NotaFiscalContador = BAS_DOCUMENTO_REG_LAN.NotaFiscalContador)) AS TotalDespesa,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorIPI) AS TotalIPI,

'0' AS TotalICMS,

SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorContabil) AS TotalContabil,

'00000000000000' AS SubsTributario,

'000000000000000' AS ViaTransporte,

(SELECT TOP 1

BAS_EMPRESA.EmpCódigo

FROM

BAS_EMPRESA

WHERE

BAS_EMPRESA.EmpFantasia = BAS_DOCUMENTO.EmpFantasiaTransportador) AS CodigoTransportador,

NotaFiscalQuantidade,

NotaFiscalEspecie,

NotaFiscalPesoBruto,

NotaFiscalPesoLiquido,

(CASE WHEN ISNULL(BAS_DOCUMENTO.NotaFiscalFrete,0) = 1 THEN 'FOB' ELSE 'CIF' END) AS NotaFiscalFrete,

NotaFiscalPlaca,

'N' AS Cancelado,

'2' AS Fatura,

(LTRIM(RTRIM(ISNULL(BAS_DOCUMENTO.NotaFiscalOBS,'')))+ISNULL(NotaFiscalDadosAdicionais,'')) AS Observacao

FROM

BAS_DOCUMENTO_REG_LAN

INNER JOIN BAS_DOCUMENTO ON BAS_DOCUMENTO_REG_LAN.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador

INNER JOIN BAS_DOCUMENTO_HISTORICO ON BAS_DOCUMENTO_REG_LAN.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo

INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod

INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao

WHERE

(BAS_DOCUMENTO_MODELO.ModeloNotaSintegra = 1) AND

(BAS_DOCUMENTO.CodEmpresa = @PCodEmpresa) AND

(LFC_DOCUMENTO_OPERACAO.NaturezaOperacaoTransICMS<>1) AND

(BAS_DOCUMENTO.NotaFiscalDataLancamento BETWEEN CONVERT(DATETIME,@PDataI, 102) and CONVERT(DATETIME,@PDataF, 102)) AND

(BAS_DOCUMENTO.NotaFiscalEmpTipo in ('J')) AND

(BAS_DOCUMENTO.NotaFiscalEntSai in ('S'))

GROUP BY

BAS_DOCUMENTO.NotaFiscalEntSai,

BAS_DOCUMENTO.ModeloNotaCod,

BAS_DOCUMENTO.NotaFiscalSerie,

BAS_DOCUMENTO.NotaFiscalSubSerie,

BAS_DOCUMENTO.NotaFiscalNumero,

BAS_DOCUMENTO.NotaFiscalDataEmissao,

BAS_DOCUMENTO.NotaFiscalEmpCodigo,

BAS_DOCUMENTO.NotaFiscalDataLancamento,

BAS_DOCUMENTO_REG_LAN.NotaFiscalContador,

BAS_DOCUMENTO.NotaFiscalOBS,

BAS_DOCUMENTO.NotaFiscalDadosAdicionais,

BAS_DOCUMENTO.EmpFantasiaTransportador,

BAS_DOCUMENTO.NotaFiscalEspecie,

BAS_DOCUMENTO.NotaFiscalPesoBruto,

BAS_DOCUMENTO.NotaFiscalPesoLiquido,

BAS_DOCUMENTO.NotaFiscalFrete,

BAS_DOCUMENTO.NotaFiscalPlaca,

BAS_DOCUMENTO.NotaFiscalQuantidade

ORDER BY

5,

6

Setembro 29, 2010

Olá

Estou com um problema

Iniciei a pouco tempo sql e estou com duvidas para criar um cursor

A minha consulta que fiz me retorna por exemplo 50 codigos, cada um com seu numero eu gostaria de preencher com algum comando em sql os codigos nulo

Exemplo

Minha consulta retornou

1 jose

2 joao

4 maria

5 juca

6 pedro

9 marta

10 fulano

etc

e gostaria que se não possui o codigo ele prenchesse então ficaria

1 jose

2 joao

3

4 maria

5 juca

6 pedro

7

8

9 marta

10 fulano

etc

Esperam que entendam, preciso de ajuda

Obrigado

Agosto 30, 2010

Tem como resolver esse erro de alguma forma

Pois ele aparece na query quando executo a consulta

E com este erro que esta dando não consigo fazer os filtros no relatorio access

Agosto 30, 2010

Poisé

Essa consulta ela me passa uns 3000 registros

então toda a noite eu teria que rodar essa consulta para pegar os registros dessas consulta que esta em um banco chamado status e passar os resultados para outro banco em um tabela chamado statusweb.

De que forma posso resolver isso

Agosto 30, 2010

Estou com esse problema numa consulta

Acho que tem haver com o group by

Consigo fazer filtro num subformulario access com ela, mas quando puxo o filtro para um relatorio access da erro

Agosto 30, 2010

Olá

Preciso de uma ajuda que nunca fiz em sql

Tenho sql server 7 e preciso rodar uma consulta e pegar os resultados dela e com os resultados fazer um insert em outra tabela

Nome da consulta - PRD_PRONTA_ENTREGA Campos que pego o resultado - Codigo - Modelo

Nome da tabela que vai ser inserido o resultado dos dois campos da consulta - STATUSWEB.ProntaEntrega

Preciso fazer uma stored para isso funcionar

Aguardo ajuda por favor

Agosto 27, 2010

Ola estou com um problemao aqui

Tenho uma consulta em sql server

E queria definir toda ela com um AS para colocar outra consulta junto com outro AS exemplo CONSULTA 1 AS A CONSULTA 2 AS B e fazer calculos entre elas

Até

Agosto 25, 2010

Olá

Sou novato em access ainda

e gostaria de saber como defino uma variavel global num relatorio

gostaria de dar o nome a ela de INDICE

Até

Agosto 23, 2010

Obrigado por enquanto

Agosto 23, 2010

Certo

Olha só

Tenho um campo da consulta que me retorna resultados

36

37

38

39

40, um abaixo do outro,

Gostaria que ficasse assim

36 37 38 39 40

Poderia fazer um subrelatorio e colocar eles com varias colunas nas propriedades de impressao, então queria saber outra forma se precisar usar esse subrelatorio

Apenas pegar o campo la em detalhes e se existir algum codigo para na hora eu definir o numero de colunas que DETALHE do realatorio ira ter

Entende

Agosto 23, 2010

Poisé

Gostaria de saber se existe algum codigo

Para pegar dois campo da consulta e alinhar os resultados em coluna

Agosto 23, 2010

Olá

Estou com um relatório access

E queria saber como faço para meus resultados no relatório que esta ligado a uma consulta ficarem em coluna e não linhas

Tem alguma opçao do access mesmo ou no evento ao formatar do relatório

Aguardo

Agosto 20, 2010

O problema é o seguinte

cor preço grade grade pares total

ICE US$ 12.000 5.500 36 8 16.000

ICE US$ 12.000 6.500 37 16 32.000

ICE US$ 12.000 7.500 38 23 46.000

ICE US$ 12.000 8.500 39 23 46.000

ICE US$ 12.000 9.000 40 15 30.000

ICE US$ 12.000 10.000 41 8 16.000

Eu gostaria que os as resultado das colunas grade pares total virassem coluna cada item para não repertir todas as linhas iguis tipo cor preço e cor

Colunas tipo 36 37 38 39 40 41 com seu resultados para eu conseguir fazer um group by e juntar os itens pelas referencia

Ou se tiver alguma forma que no subformulario do access eu consiga agrupar estes itens

Qualquer coisa posso te passar a sql para dar uma olhada

Agosto 20, 2010

Olha.

O problema é o seguinte

cor preo grade grade pares total

ICE US$ 12.000 5.500 36 8 16.000

ICE US$ 12.000 6.500 37 16 32.000

ICE US$ 12.000 7.500 38 23 46.000

ICE US$ 12.000 8.500 39 23 46.000

ICE US$ 12.000 9.000 40 15 30.000

ICE US$ 12.000 10.000 41 8 16.000

Eu gostaria que os as resultado das colunas grade pares total virassem coluna cada item para não repertir todas as linhas iguis tipo cor preço e cor

Agosto 20, 2010

Olá

Preciso de uma luz por favor

Tenho um subform como folha de dados e gostaria de que 7 campos da consulta que puxo fiquei listados por coluna e não por linha

Faço isso na consulta, a consulta é em SQL, como agrego isso ao subform.

Aguardo

Agosto 20, 2010

Olá

Preciso de uma luz por favor

Tenho um subform como folha de dados e gostaria de que 7 campos da consulta que puxo fiquei listados por coluna e não por linha

Faço isso na consulta, a consulta é em SQL, como agrego isso ao subform.

Aguardo

Agosto 19, 2010

Ola

Gostaria de agrupar um campo de uma consulta que esta ligada a um relatorio, na consulta mesmo eu não posso agrupar estes campos devido a uma grade nela

Mas gostaria que ao abrir o relatorio o campo referencia que possui varias iguais agrupasse

Uso algo do tipo

GROUP BY REFERENCIA

na origem de controle ou devo usar alguma instrucao sql

Até mais

Entrar

Rodrigo Hoffmann

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Rodrigo Hoffmann

Access 2000 X SQL SERVER 2003

Access 2000 X SQL SERVER 2003

Select 3 combox com 3 forms

Operação não permitida quando objeto esta fechado

Ligação vba com stored em sql server

Passando valores para subform

Passando valores para subform

Passando valores para subform

Usando cursor e loop em consulta SQL

Usando cursor e loop em consulta SQL

Warning: Null value eliminated from aggregate.

Select e Insert

Warning: Null value eliminated from aggregate.

Select e Insert

Como definir Alias para consulta

como definir varialve global para relatorio

Resultado relatorio por coluna

Resultado relatorio por coluna

Resultado relatorio por coluna

Resultado relatorio por coluna

registros listagem por coluna

registros listagem por coluna

registros listagem por coluna

registros listagem por coluna

GROUP BY em campo origem de controle

Navegação

Atividades