Ir para conteúdo
Fórum Script Brasil

ventrue_rj

Membros
  • Total de itens

    33
  • Registro em

  • Última visita

Sobre ventrue_rj

  • Data de Nascimento 07/07/1980

Contatos

  • MSN
    flavioash23@hotmail.com
  • Website URL
    http://
  • ICQ
    0

Perfil

  • Location
    Niterói

ventrue_rj's Achievements

0

Reputação

  1. Pessoal tenho uma tela de login e quando o usuário se loga passo o login dele para um outro form (esse login fica em um label), quando eu entro nesse form a 1ª vez o login está lá mais se eu fechar e entrar dpois o login não está mais no label... :'( Alguém sabe de algo q possa deixar o login fixo no label? Desde já agradeço...abraço
  2. fala galera... bom, como é um tópico, vou explicar meu projeto... tenho um banco de dados em Access num Servidor que está compartilhado p/ 50 máquinas + ou - numa determinada unidade "K:\TESTE" (onde TESTE é a pasta do servidor) e o arquivo já está pronto em back-end e os forms estão feitos no VB6. O sistema tem um controle de usuários, eles devem se logar e o sistema registra o setor em que o usuário trabalha. quando eles incluem um registro no banco *processos(ele possui um campo autonumérico, PK), o sistema cadastra sem problemas e não existe nenhum erro...(testado e finalizado)... o problema é quando precisamos cadastrar documentos... o bco *documentos possui um campo(autonumérico,PK) e eu preciso que o sistema crie um nº de registro p/ o referido documento e imprima na tela(isso ele já está fazendo)... esse nº de registro é um número ordenado/ano do registro e quando o ano mudar, o contador tem q ser zerado... (feito por código e funcionando), está funcionando perfeitamente, mas somente qd 1 usuário inclui o registro, se várias pessoas registram ao mesmo tempo, ele gera o mesmo nº p/ todos! ex: se 4 pessoas incluírem um registro ao mesmo tempo, e o último registro for o 12/2005, todos os registros retornam o nº 13/2005, para os respectivos usuários! vejam o código e me ajudem a solucionar o problema! rs Private Sub Salvar_Click() Dim aux1 As String Dim aux2 As String Dim aux3 As String Dim aux4 As String Dim anoo As String Dim numm As String Dim codd As Integer Dim espaco As String Dim c As String espaco = "/" aux1 = Val(Mid(aux9, 7, 1)) 'recebe o 1º dígito do ano que está em aux9 (no evento Load do form) aux2 = Val(Mid(aux9, 8, 1)) 'recebe o 2º dígito do ano que está em aux9 aux3 = Val(Mid(aux9, 9, 1)) 'recebe o 3º dígito do ano que está em aux9 aux4 = Val(Mid(aux9, 10, 1)) 'recebe o 4º dígito do ano que está em aux9 anoo = aux1 + AUX2 + aux3 + aux4 'var que recebe o ano atual If Data1.Recordset.RecordCount <> 0 Then Data1.Recordset.MoveLast c = Data1.Recordset("ano") 'recebe o ano do último registro cadastrado If c = anoo Then 'se ano atual = ano do último registro codd = Val(Data1.Recordset("cod_doc")) + 1 'add 1 ao codigo do último registro Else codd = Str$(1) 'senão zera o contador p/ o ano novo do registro End If Else codd = Str$(1) 'se não existir nenhum registro, ele recebe 1 End If numm = LTrim(Str$(codd)) + espaco + anoo 'var q recebe o código no formato q vai ser mostrado ao usuário modo (XXXX/200X) Label11.Caption = numm Label9.Caption = codd Label10.Caption = anoo If Data1.Recordset.RecordCount <> 0 Then 'inclusão do registro Data1.Refresh End If Data1.Recordset.AddNew Data1.Recordset("ano") = Label10.Caption Data1.Recordset("cod_format") = Label11.Caption Data1.Recordset("tipo") = DBCombo1 Data1.Recordset("descricao") = Text4 Data1.Recordset("anexado") = MaskEdBox1 Data1.Recordset("dt_ent") = Label12 Data1.Recordset("hr_ent") = Label8 Data1.Recordset("cod_doc") = Label9.Caption Data1.Recordset.Update Form16.Label3.Caption = numm DBCombo1.Enabled = False Call Desabilitar(Me) Cancelar.Enabled = False Adicionar.Enabled = True Salvar.Enabled = False Call Limpar_Campos(Me) Label14.Caption = "" DBCombo1.Text = "" Form16.Show Unload Me End Sub alguma sugestão???? fico no aguardo... abraços
  3. ventrue_rj

    Flag

    Estou com problema de inclusão de dados em rede... Quando duas ou mais pessoas incluem ao mesmo tempo dá erro... Um amigo nosso respondeu o tópico q coloquei dizendo q eu poderia fazer um flag para o usuário esperar enquanto o documento está sendo utilizado por outro...Como faço isso? Um flag? Desde já agradeço...Victor
  4. Existe um form no meu sistema onde tenho um código automático... Esse sistema é usado em rede...o banco de dados (em acess) está em modo back end no servidor... A chave primária da tabela é uma campo auto numérico... quando duas ou mais pessoas adicionam um documento ao mesmo tempo...um consegui adicionar...mais os outros recebem uma mensagem de erro na tela... Gostaria de saber como resolvo isso...já q o campo é auto numérico... Quem poder me ajudar....desde já agradeço!!! Victor
  5. ventrue_rj

    Timer

    Tenho uma tela de cadastro onde armazeno a hr e a data q foi cadastrado o documento...mais a hr eu coloco quando o form é aberto, mais o usuário pode ficar 10 min no form antes de salvar e a hr tah alí estática....sem mudar, a hora ficando errada. Com o comando timer eu sei q tenho como colocar a hr atualizando a cada segundo... Se alguém souber esse código...me passem por favor. Desde já agradeço.....Victor
  6. ventrue_rj

    While

    qual o comando pra eu sair do while antes q a condição acabe?
  7. ventrue_rj

    Mensagem

    Pessoal qual o comando para exibir texto e variáveis juntos?
  8. eu estou aprendendo a mexer com flash e queria fazer uma animacao simples mas não sei usar. Teria como vocês me ajudarem ? abracos
  9. ventrue_rj

    Compilar

    Preciso criar o executável do meu projeto. Se alguém souber por favor me ajude... Desde já agradeço...Victor
  10. ventrue_rj

    Select

    Pessoal preciso fazer uma seleção de dados em um intervalo de data... os campos onde essas datas vão estar armazenadas são data_ent e data_sai. Desde já agradeço.
  11. ventrue_rj

    Máscara

    valeu irmão...era isso mesmo q você falou...funcionou.
  12. ventrue_rj

    Máscara

    Em uma tabela tenho um campo senha...quando cadastro essa senha ela fica armazenada na tabela à amostra. Queria que tivesse um jeito de colocar uma máscara para mesmo a senha já armazenada no B.D não podesse ser vista... Desde já agradeço....Victor
  13. Poxa Luiz Humberto brigadão funcionou...abraço
  14. Pessoal preciso fazer uma seleção de colunas de tabelas diferentes... Na 1º tabela (cadastro) tenho os seguintes campos: (código do processo, a data de entrada, a data de saida, o número do processo, nome do fornecedor, número da audiência, assunto , auto de infração, código do usuário, nome do consumidor, CNPJ, CPF) Na 2° tabela (historico) tenho os seguintes campos: (código do histórico, código do processo, a data de entrada, setor de origem, a data de saida, entrada do usuário, setor de destino, enviado, saída do usuário) Da primeira tabela preciso apenas o número do processo...e da segunda: setor de destino, data de saida e enviado...mais só quero o número dos processos q o código da tabela cadastro seja igual ao código do processo da tabela histórico e q o enviado(da tabela histórico) estaja negativo. Desde já agradeço.
  15. Pessoal no meu sistema tenho uma tela onde faço cadastros de processos...e um outro form q eu vejo relatórios...mais estou com um probleminha: quando eu cadastro um novo processo e vou pedir o relatório de todos os processos cadastrados o processo q acabei de incluir não aparece. Se alguém souber uma código onde atualizo os dados do meu relatório...serei mt grato Desde já agradeço Victor
×
×
  • Criar Novo...