wbatista

Olá galera, estou com um probleminha que está me tirando o sono. Utilizo o Excel para selecionar/trabalhar dados em um banco de dados do Access. O problema é que neste banco tenho duas tabelas, tblPedidos e tblOrcamento, sendo que ambos possuem relacionamento pelo número do centro de custo (campo cdc_Pedido e cdc_Orcamento), e não estou conseguindo somar o campo Vr_Pedido. Segue abaixo o exemplo... Na tabela tblPedido tenho as seguintes informações Código cdc_Pedido Nr_Pedido Vr_Pedido -------- ------------- ------------ ------------- 1 102010014 27256 720,00 2 102010014 27256 720,00 3 102010014 29854 560,00 4 102010014 29854 560,00 Utilizei o seguinte código: rs1.Open "SELECT NR_PEDIDO, VR_PEDIDO From tblPedido Where cdc_Pedido = '102010014' Group By NR_PEDIDO, VR_PEDIDO" O resultado deste SELECT foi: Nr_Pedido Vr_Pedido ------------ ------------- 27256 720,00 29854 560,00 Necessito de um SELECT que monte o seguinte resultado: cdc_Pedido Vr_Pedido ------------- ------------- 102010014 1.280,00 (que é a soma dos dois pedidos 720,00 + 560,00) Obrigado...

Private Sub optNovo_Click() Call DesabilitaCampos 'dá o foco ao primeiro controle de dados With txtEmpresa .SetFocus .SelStart = 0 .SelLength = Len(txtEmpresa.Text) End With End Sub Private Sub DesabilitaCampos() Me.txtNrComprovante.Enabled = False Me.txtCDC.Enabled = False Me.txtDataEmissao.Enabled = False Me.txtCodigoVeiculo.Enabled = False Me.txtKmInicial.Enabled = False Me.txtKmFinal.Enabled = False Me.txtResultado.Enabled = False Me.lblNrComprovante.Enabled = False Me.lblCDC.Enabled = False Me.lblDataEmissao.Enabled = False Me.lbl_DataEmissao.Enabled = False Me.lblCodigoVeiculo.Enabled = False Me.lblKmInicial.Enabled = False Me.lblKmFinal.Enabled = False Me.lblResultado.Enabled = False End Sub Private Sub txtEmpresa_AfterUpdate() txtNrComprovante.Enabled = True With txtNrComprovante .SetFocus .SelStart = 0 .SelLength = Len(txtNrComprovante.Text) End With End Sub A rotina em destaque está habilitando o campo txtNrComprovante, mas o cursor não cai dentro do campo txtNrComprovante (no caso o campo seguinte), mas sim sobre o botão "OK", ou seja, não segue a sequencia que eu gostaria que fosse sendo habilitada a medida que fosse sendo preenchida a tela. Galera, no primeiro post que inclui, mencionei a propriedade "VISIBLE", porém coloquei no exemplo de código anterior a propriedade "ENABLED", favor considerar a propriedade "ENABLED".

Galera, sou iniciante em programação e estou com um probleminha :wacko: e gostaria que o vocês pudessem me ajudar, já que com certeza possuem mais experiência do que eu. Estou utilizando em um UserForm vários "TextBox", dentro de um Frame1, que são preenchidos numa seqüência definida pela propriedade "TABINDEX", e que posteriormente gravam as informações em uma planilha. Neste UserForm ainda possuo dois Botões "OK" e "Cancelar" que estão fora dos Frames. Neste mesmo UserForm existem 3 opções em outro Frame (Frame2), para a operação do usuário: "Incluir", "Alterar" e "Excluir". Quando clico na opção "Incluir" utilizei a propriedade "VISIBLE" para mostrar somente o primeiro TextBox. Após preencher o primeiro TextBox utilizei o evento AfterUpdate e mudei a propriedade do segundo TextBox para "VISIBLE = TRUE", na esperança que o segundo TextBox aparecesse para ser preenchido, porém o segundo TextBox aparece mas o cursor não, e o botão "Ok" fica ativado. O que quero é mostrar os TextBox's à medida que o anterior seja preenchido, em sequencia. Como fazer para que ao clicar <ENTER> o próximo TextBox seja ativado e o cursor esteja ativado neste TextBox?