Estampagem o registro de uma tabela de banco de dados no Microsoft Access envolve a inserção de uma data escolhida pelo usuário no registro. O usuário pode inserir a data manualmente ou usar o Visual Basic for Applications para carimbar automaticamente a data . Coisas que você precisa
Microsoft Access
Mostrar Mais instruções
1
Abra o Microsoft Access e crie um banco de dados de amostra , clicando em " File> New modelos > Exemplo > Eventos, " e , em seguida, no botão " Criar". Clique no botão " Painel de Navegação " no lado esquerdo da tela, em seguida, os "objetos de apoio" de ir para expor o " Eventos " ícone da tabela . Clique duas vezes nesse ícone para abrir a tabela de eventos para entrada de dados .
2
Digite duas linhas de dados de exemplo na tabela de eventos usando o seguinte texto , que corresponde aos campos " Título ", " Hora de Início "e" Fim dos Tempos ". Não entre as vírgulas , que mostram onde a pressionar a tecla "Tab" . Não substitua os campos com datas de amanhã hoje e .
Cortar a grama, , pintar a casa , ,
3 Comece a programação necessária para carimbar o tempo começar automaticamente, criando primeiro um formulário no qual o programa será executado : pressione " Criar> Form. " Botão direito do mouse na guia da nova forma "Evento" e selecione " modo de design. "
4
Pressione o botão " Ativar Conteúdo" na barra de ferramentas para permitir a execução de macros neste banco de dados.
5
clique com o botão direito do mouse no campo " Data do Selo " e selecione "Propriedades ", clique na aba " Eventos" na janela " Folha de Propriedades " . Clique na seta para baixo na linha "On Got Focus" e selecione " [ procedimento de evento]. " Clique no botão com as reticências , que fica imediatamente à direita da seta para baixo , para entrar no ambiente de desenvolvimento Visual Basic integrado ( IDE).
6
colar o seguinte código de programa no código do IDE janela :
Private Sub Start_Time_GotFocus ( ) Dim x As VariantIf ( IsNull ( Start_Time ) ) thenm = Month ( Now () ) d = Day ( Now () ) y = Year ( Now () ) x = m & " /" & d & "/" & yStart_Time = xend IfEnd
Sub
7
Retornar para acesso com a tecla " alt - f11 ", clique com o botão direito na aba " Eventos " e selecione " formar View " para ativar o formulário para entrada de dados .
8
Tab através de todos os campos de cada registro de amostra que você digitou até o" id "mostra de campo " ( Novo) . " Tab até o campo campo " Hora de início " e observe o efeito de sua macro , que preencheu a hora de início com a data atual .
9
Data selo " End Time " por re- entrar no IDE e colar o seguinte código abaixo o código introduzido anteriormente :
Sub End_Time_GotFocus privada () ' Altere a 1 na próxima declaração para o número desejado de dias após o início datetm = DateAdd ( "d" , 1, Start_Time ) eND_TIME = tmEnd Sub
10
Re- executar o formulário , garantindo que o campo " End Time " exibe uma data , um dia após o campo " hora de início " .