Alexandre Neves

1- Vá ao formulário na vista de estrutura e na caixa de propriedades e coloque Introdução de dados como sim 2- Utilize a função DLookup

1- Quer criar ficheiro novo? 2- Indique claramente a estrutura das tabelas para exportar e a formatação desejada (o etc. só atrapalha)

1- Deveria ter 2 campos para separar local de país 2- AoSair de TxtLocal coloque: If InStr(1,TxtLocal,",EUA")>0 Then TxtStart=DateAdd("d",Data,-65) Else TxtStart=DateAdd("d",Data,-40) 3- Coloque TxtFVR Invisível. AoSair de TxtLocal coloque: If InStr(1,TxtLocal,",EUA")>0 Then TxtFVR.Visible=True. AoSair de TxtFVR coloque: TxtFVR.Visible=False

Boa tarde, pirata Está a digitar directamente na tabela ou através de formulário?

Bom dia, Andrezosa A tabela TBL_TEMP deve ter todos os registos existentes com o campo KEY preenchido. Ultize o seguinte código que funcionará: Option Compare Database Option Explicit Private Sub Comando0_Click() On Error GoTo msg_erro Dim InputDir, ImportFile As String, Base_Name As String InputDir = "C:\BASES_IMPLANTACAO" 'Diretório Origem dos Arquivos' ImportFile = Dir(InputDir & "\*.txt") 'Selecionar todos arquivos texto' Do While Len(ImportFile) > 0 Base_Name = Left(ImportFile, (InStr(1, ImportFile, ".") - 1)) 'Identificar o nome do arquivo implantado' DoCmd.TransferText acImportDelim, "LAYOUT", "TBL_TEMP", ImportFile 'Comando p/ import. Lay-out pré-definido, Tabela Final - TBL_TEMP' ImportFile = Dir CurrentDb.Execute "UPDATE TBL_TEMP SET KEY='" & Base_Name &"' WHERE IsNull(KEY) or KEY='';" Loop Exit Sub msg_erro: MsgBox Err.Description End Sub

Explique bem porque não entendo o que pretende.

Abra o relatório na vista de estrutura e vá a inserir>número de página ...

Veja o que lhe preparei http://www.esnips.com/doc/e5248971-d2eb-48...NumeraRelatorio

Crie uma tabela com registo de impressão do relatório. Tipo: Tabela Impressao, campo NomeRelatorio (texto,50), campo DataImpresso (Data), Impressao (Número inteiro) Ao formatar o relatório, incremente o número da impressão e passe esse número para a numeração do relatório

Boa noite, beer Para UPDATE pode utilizar duas variantes: 1 - Tem valores para actualizar em cada campo - Parece-me ser o seu caso, assim utilize UPDATE SuaTabela SET Campo1=1234, Campo2='MeuNome', DataRegisto=#8-13-2009# [WHERE Condições]; 2 - Actualiza os campos com valores doutros campos obedecendo determinados critérios UPDATE Tabela1 LEFT JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoY SET Tabela1.CampoTal=Tabela2.CampoTal, Tabela2.CampoA=Tabela1.CampoA; Para eliminar: DELETE * FROM SuaTabela WHERE Campo1='MeuNome' and DataRegisto=#8-13-2009#

Utilize insert into TbCadastro values(33,'9999999999',True, 1,'alex','06021983','1000','06021983',1,'teste')

Onde é verificado se a roupa está "reservado", "Locado" ou "Disponivel"?

Em leitura rápida, parece-me que o código está um bocado enrolado mas, pela sua pergunta parece-me mais fácil formatar na própria consulta.

Boa tarde, Não consegui visualizar o ficheiro. Carregue em www.esnips.com que também é gratuito.

Bom dia, Não conheço nenhum livro sobre esta mecânica. Exige muito raciocínio lógico e imaginação.

Novamente, Veja se é isto bd

Boa noite, Carlos Não dá elementos para saber o que pretende. Suponhamos que tem uma caixa de texto (TxtMedia) para mostrar a média de 4 disciplinas (TxtDisciplina1, TxtDisciplina2,TxtDisciplina3 e TxtDisciplina4). Coloque num módulo a função que lhe forneci guarde o módulo Na caixa de texto TxtMedia, no acontecimento Ao Sair, coloque o seguinte código: TxtMedia=ArredondaMedia(TxtDisciplina1,TxtDisciplina2,Disciplina3,Disciplina4) Se não isto, dê elementos

Bom dia, Aleixo Uso pouco excel mas parece-me que não necessitará de transformar o número em texto, bastará incluir no código de concatenação a formatação incluída na célula. Se precisar, indique o código utilizado para concatenação

Bom dia, Carlos Não conseguiu? O que está a fazer? uma consulta? Se for, indique "SELECT ... ArredondaMedia(SeuValor1,SeuValor2,SeuValor3,SeuValor4) as Media, ... FROM ...;"

Boa noite, Carlos Utilize Function ArredondaMedia(Valor1 As Double, Valor2 As Double, Valor3 As Double, Valor4 As Double) As Integer 'criada por Alexandre Neves 'em 2009-07-28 'para Carlos Pontes 'do fórum ScriptBrasil If (Valor1 + Valor2 + Valor3 + Valor4) / 4 = CInt((Valor1 + Valor2 + Valor3 + Valor4) / 4) Then ArredondaMedia = (Valor1 + Valor2 + Valor3 + Valor4) / 4 Else ArredondaMedia = CInt((Valor1 + Valor2 + Valor3 + Valor4) / 4) + 1 End If End Function

Boa tarde, Carlos E se for 7 + 7 + 5+ 5 =24 média de 7 (incremento de 1, conforme pediu) ou média de 6 (média normal)?

Novamente Só agora reparei que incluiu umas aspas pelo meio Será dytotal.FindFirst "Country='" & CCountry & "' And BUNit= '" & CLBUnit & "'" Senão, Se Coutry for texto dytotal.FindFirst "Country='" & CCountry & "' Se BUnit for número " And BUNit=" & CLBUnit Se BUnit for texto " And BUNit='" & CLBUnit &"'"

Novamente, Se é formulário contínuo experimente utilizar o índice do registo para parametrizar o cálculo, por exemplo Ao sair do campo If TxtTotal<0 then TxtTotal=dsum("Campo","Tabela","Registo=" & me.TxtRegisto)*-1

Boa tarde, Welter A sua explicação está um pouco confusa, mas veja se resolve: Substitua If dytotal.EOF Then por If dytotal.NoMatch Then

Boa tarde, zerocool Se pretender que o valor negativo passe a positivo multiplique por -1