Ir para conteúdo
Fórum Script Brasil

wootzor

Membros
  • Total de itens

    480
  • Registro em

  • Última visita

Posts postados por wootzor

  1. É possível colocar a estrutura da tabela 'testecombobox'?

    Já agora, dependendo do conteúdo do campo 'cmbitens', a linha:

    <?php $valor = $_POST['cmbitens']; ?>
    

    não faz grande sentido porque essa variável $valor nem sequer é utilizada depois.

    Se esse campo contém os dados que pretendes mostrar no elemento select, sugiro a utilização do foreach. Algo como:

    <select>
      <?php foreach ($valor as $chave => $item): ?>
        <option value="<?php echo $chave; ?>"><?php echo $item; ?></option>
      <?php endforeach; ?>
    </select>

    Segue um exemplo.

  2. Já está resolvido.

    Recrei o formulário e ficou a funcionar. Fiquei foi sem saber a origem do erro.

    Entretanto tenho outro problema:

    Como saber o número de linhas devolvidas por uma consulta presente num sub-formulário?

    O que tenho é o seguinte:

    Me.subfrmOrigem.Form.Requery
    If Me.subfrmOrigem.Form.Count > 0 Then
      Me.subfrmOrigem.Visible = True
    End If
    

    No entanto, o sub-formulário está a passar a visível mesmo quando não há dados para mostrar.

    Edit:

    Aparentemente ficou resolvido substituindo a segunda linha por:

    If DCount("*", "Consulta1") > 0 Then (...)
    
  3. Olá a todos,

    Sou novo no fórum e também novo na utilização de VB, pelo que estou com problemas na criação de um procedimento.

    O que tenho é o seguinte:

    Um formulário (frmMenu) que tem hiperligações para os diversos formulários da aplicação. Essa parte é pacífica e funciona correctamente. Acontece que tenho a necessidade de copiar uma tabela que está a ser usada em "produção" devido ao facto de estar ainda numa fase de teste e não querer correr riscos com os dados originais.

    O que pretendo é que quando o referido frmMenu for aberto, executar duas instruções SQL (neste momento em forma de consulta) para apagar o conteúdo de uma tabela temporária (tBuffer) e voltar a preenchê-la com os dados actuais da tabela original:

    Consulta 1 (LimparTBuffer):

    DELETE *
    FROM tBuffer;
    
    
    

    Carregar 'buffer' com dados actualizados da tabela em "produção" - Consulta (copiarTOrigem):

    INSERT INTO tBuffer
    SELECT *
    FROM tOrigem;
    
    

    O código VBA que tenho actualmente é o seguinte:

    Private Sub Form_Open(Cancel As Integer)
        'Disabilitar temporariamente os avisos e caixas de mensagem
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        DoCmd.SetWarnings False
        'Executar queries
        CurrentDb.Execute LimparTBuffer
        CurrentDb.Execute CopiarTOrigem
        'Activar novamente os avisos
        DoCmd.SetWarnings True
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
    End Sub
    

    E produz o seguinte erro quando é executada:

    vDqic.jpg

    Não consigo perceber onde está o problema. Já agora, existirá forma mais optimizada de atingir o mesmo objectivo no que ao código VBA diz respeito?

    Obrigado desde já.

×
×
  • Criar Novo...