Jump to content
Fórum Script Brasil

GLEIDSONMACEDO

Membros
  • Content Count

    12
  • Joined

  • Last visited

Community Reputation

0 Neutro

About GLEIDSONMACEDO

  • Birthday 03/21/1983

Contatos

Perfil

  • Gender
    Male
  • Location
    Boa Vista - RR
  1. apesar de resolvido já, vou deixar outro comentário aqui... como eu teria feito, acho que á mais simples: colocando também no evendo após atualizar SuaCaixadeTextoNãoAcoplada = Format(Weekday(SuaData), "dddd") se eu soubesse como anexo um exemplo, poderia enviar mais não sei! hehheheheheh abraço, espero ter contribuido
  2. tenho 2 impressoras instaladas em uma máquina onde roda um aplicativo que criei. uma impressora de etiquetas e outra normal. em alguns casos quando se faz uma alteração relevante em algum objeto do banco de dados, o relatório é impresso automaticamente após a confirmação da transação (uso o comando DoCmd.OpenReport "nome do relatório", acNormal) e deverá ser assinado e arquivado pelo responsável. no mesmo aplicativo existe um formulário que imprime automaticamente com o mesmo comando que já citei, etiquetas pré definas. tudo bem, tudo certo, mas preciso que... sem precisar escolher a impressor
  3. cria uma tabela no modo desing com os campos: nome do campo - tipo de dados pergunta - texto (aqui é a pergunta. Exemplo: que cor é a laranja?) resposta1 - sim/não (aqui é a opção1) resposta2 - sim/não(aqui é a opção2) resposta3 - sim/não (aqui é a opção3) resp1 - texto (aqui é o que seria a resposta 1. Exemplo: branco) resp2 - texto (aqui é o que seria a resposta 2. Exemplo: azul) resp3 - texto (aqui é o que seria a resposta 3. Exemplo: laranja) tipo1 - texto (aqui retornará o numéro 1, se for escolhida a opção1 ou zero se for outra opção escolhida) tipo2 - texto (aqui retornará o numéro 1, s
  4. defina os campos de hora_inicial e hora_final como hora abreviada(mudando nas propriedades, Formato) para não ter erro, ainda em propriedades coloca a máscara de entrada desses campos como Hora abreviada também. vou criar 2 textbox de apoio aqui... chamarei eles de "apoio1" e "apoio2" coloca um botão, no evento click coloca o seguinte: If data_final<data_inicio then msgbox("data final menor que a data inicial") data_final.setfocus else apoio1=datediff("d", data_inicial, data_final) * 24 end if apoio2=( hora_final - hora_inicial ) * 24 tempo_total = apoio1 + apoio2 lembrar que as horas deve
  5. se o nível de segurança do Access que eu for rodar meu aplicativo estiver como Alto ou médio tenho que ir la e mudar manualmente pra poder rodar sem problemas, existe a possibilidade de rodar sem problemas sem que tenha q mudar o nível de segurança, porque quando faço a distribuição do arquivo aqui na empresa, tem usuário q liga dizendo q não funciona, quando vou la ver é só por isso que não funciona, mas tem gente que não sabe mexer nisso, e fico perdendo tempo tendo q mudar o nível de segurança, além de, realmente comprometer o compuador se eles rodarem algo que não deve, então tem como cria
  6. terminado o aplicativo, percebi que. como fiz as pressas, de madruga, simplesmente esqueci de colocar o Title de várias MSGBOX, o Title deveria ser padrão, sempre o Mesmo, digamos que fosse "PROGRAMA TESTE", em algumas MsgBox eu coloquei, em outras... e são várias, várias eu não coloquei e aparece: "MICROSOFT ACCESS", tem como eu trocar "automaticamente todos os títulos das MsgBox que estão sem títulos para "PROGRAMA TESTE", ou terei que fazer um por um em todos vários formulários, e todos as várias MsgBox???? algumas MsgBox(nesse caso, em todas, coloquei o title) tem, exclusivamente, title
  7. no modo desing cria um campo com o nome de "Enviado", em tipo de dados para este campos coloca Sim/Não no formulário, coloca o seguinte evento "ao carregar" (Private Sub Form_Load()): Enviado.Enabled = False 'isso é par ninguém ficar mexendo na seleção If Enviado = True Then Campo1.Enabled = False 'aqui você desabilita um por um, todos os campos da tabela Campos2.Enabled = False else Campo1.Enabled = True Campo2.Enabled = True End If no botão que você criou coloca o seguinte (Private Sub botão_Click()) Enviado = True espero ter ajudado
  8. eu faço assim: Me.FilterOn = False 'isso remove o filtro, se houver Me.Filter = "campo1 = critério1 And campo2 = critério2" Me.Filteron = True ' aplica o filtro mas o melhor é fazer uma consulta com todos os critérios e depois fazer um relatório com base na consulta. espero ter ajudado.
  9. primeiramente você parece ta gastando mais do que tem ne.... então você tem 16.000,00 e gasta 111.300,00 so no primeiro produto!!! me parece ser só uma quetão matemática, regra de 3 simples: se 16.000,00 é 100%, 111.300,00 será quantos %? 16.000,00 -------- 100% 111.300,00 ------- X 16.000,00 * X = 111.300,00 * 100 X = 111.300,00 * 100 / 16.000,00 X = 695,625% para o produto 1 seria 695,625% porque você tem gastado mais que você tem! para calcular os outros é a mesma coisa. ------------------------------------------------------------------------------------------------- agora se você quer sab
  10. já tentou colocar o evento refresh depois de atualizar a combobox? coloca la subformulário_seila.refresh até mais
  11. amigo... um aparelho leitor de código de barras nada mais é do que um aparelho de "digita" os números que tem no código de barras rapidamente, tem o mesmo efeito de você digitar no teclado, assim... você pode trabalhar como se fosse um dado inserido pelo teclado normalmente. Agora se você quer gerar o código de barras, v deve instalar uma fonte de código de barras no PC (code 3of9 por exemplo) você pode criar o campo onde você digita o código de barras, e outro que seria igual ao campos q você digitou só que numa fonte de código de barras, que você pode baixar na net, eu uso a code 3of9 que ba
  12. criei um banco de dados em Access (.mdb) que ficou muito bom, troquei a extensão para .teste(exemplo) gostaria de criar um assistente de instalação que copiasse os .dll para as pastas destino, acrescentasse no registro do Windows a extensão .teste e associasse ela ao Access e ainda atribuísse um ícone para a extensão .teste, este ícone estaria junto com o programa. valeu pessoal!
×
×
  • Create New...