Ir para conteúdo
Fórum Script Brasil

ventrue_rj

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    33

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por ventrue_rj

  1. Me Ajudem Por Favor....

    em Visual Basic

    Postado

    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. Access Em Rede Com Vb6

    em Visual Basic

    Postado

    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! mad.gif

    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. Flag

    em Visual Basic

    Postado

    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. Chave Primária Duplicada

    em Visual Basic

    Postado

    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. Timer

    em Visual Basic

    Postado

    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

  12. Máscara

    em Access

    Postado

    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

  14. Consulta Em Sql

    em Visual Basic

    Postado

    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. Crystal Report

    em Crystal Reports

    Postado

    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

  17. Combo Box

    em Visual Basic

    Postado

    Aí pessoal eu tenho no meu programa um combo box direcionado a uma coluna de uma tabela...mais nessa coluna existem registros repetidos.

    Uso a propriedade Listfield para direcionar a coluna ao combobox...

    Como faço pra não aparecer registros repetidos nesse combo box?

    Desde já agradeço.

  18. Problemas Com O Crystal Report 6.0

    em Crystal Reports

    Postado

    Pessoal vejam se vocês podem me ajudar...

    Estou utilizando o Crystal Report 6.0 para elaborar o relatório do meu projeto...

    Tenho um relatório onde são listados todas as empresas que tem processos cadastrados...

    Pode existir uma empresa com mais de um processo cadastrado.

    Mas no relatório se acontecer de existir dois processos com a mesma empresa...a empresa aparece quantas vezes estiver com processos cadastrados...

    Por favor se alguém souber como consiguo resolver esse filtro por favor me ajudem...preciso muito disso

    Desde já agradeço....

  19. Crystal Report

    em Crystal Reports

    Postado

    Pessoal...me ajudem por favor...

    Estou usando o crystal report 9.0 e estou de um componente Crystal Report Control q não consiguo achar em nenhum lugar....um componente q eu possa interagir com crystal report..mandar imprimir...visualizar..td...preciso desse componente por favor me ajudem....Desde já agradeço

  21. Problema Com Máscara No Cpf

    em Visual Basic

    Postado

    Tem um de cadastro onde precisa ser feito uma validação de CPF.

    Quando o CPF é digitado num text ele verifica....mas quando coloco o CPF numa máscara ele não verifica, o resultado sempre é CPF inválido.

    O código de vallidação é esse:

    Function ConfereCPF(CPF As String)
Dim Soma As Integer
Dim Dígito1, Dígito2 As Integer
Dim Resto As Integer
ConfereCPF = False
If Not IsNumeric(CPF) Or Len(CPF) < 11 Or (CPF = "11111111111") Or (CPF = "22222222222") Or (CPF = "33333333333") Or (CPF = "44444444444") Or (CPF = "55555555555") Or (CPF = "66666666666") Or (CPF = "77777777777") Or (CPF = "88888888888") Or (CPF = "99999999999") Or (CPF = "00000000000") Then
 Exit Function
End If
Soma = 0
Soma = Soma + Val(Mid(CPF, 9, 1)) * 2
Soma = Soma + Val(Mid(CPF, 8, 1)) * 3
Soma = Soma + Val(Mid(CPF, 7, 1)) * 4
Soma = Soma + Val(Mid(CPF, 6, 1)) * 5
Soma = Soma + Val(Mid(CPF, 5, 1)) * 6
Soma = Soma + Val(Mid(CPF, 4, 1)) * 7
Soma = Soma + Val(Mid(CPF, 3, 1)) * 8
Soma = Soma + Val(Mid(CPF, 2, 1)) * 9
Soma = Soma + Val(Mid(CPF, 1, 1)) * 10
Resto = Soma Mod 11
Dígito1 = IIf(Resto = 0 Or Resto = 1, 0, 11 - Resto)
Soma = 0
Soma = Soma + Val(Mid(CPF, 10, 1)) * 2
Soma = Soma + Val(Mid(CPF, 9, 1)) * 3
Soma = Soma + Val(Mid(CPF, 8, 1)) * 4
Soma = Soma + Val(Mid(CPF, 7, 1)) * 5
Soma = Soma + Val(Mid(CPF, 6, 1)) * 6
Soma = Soma + Val(Mid(CPF, 5, 1)) * 7
Soma = Soma + Val(Mid(CPF, 4, 1)) * 8
Soma = Soma + Val(Mid(CPF, 3, 1)) * 9
Soma = Soma + Val(Mid(CPF, 2, 1)) * 10
Soma = Soma + Val(Mid(CPF, 1, 1)) * 11
Resto = Soma Mod 11
Dígito2 = IIf(Resto = 0 Or Resto = 1, 0, 11 - Resto)

If Dígito1 = Val(Mid(CPF, 10, 1)) And Dígito2 = Val(Mid(CPF, 11, 1)) Then
ConfereCPF = True
End If
End Function

    Eu quero que esse código seja validado num text com máscara (maskedit)

  22. Validação De Login E Senha

    em Visual Basic

    Postado

    bom, acho q o seu exit sub está errado...

    tenta o seguinte:

    Private Sub Command1_Click()
Dim logusr As String
Dim senusr As String
logusr = Text1.Text
senusr = Text2.Text
Data1.Refresh
    Do While Not (Data1.Recordset.EOF)
            If Data1.Recordset("login") = logusr Then
                If Data1.Recordset("senha") = senusr Then
                       Form3.Label19.Caption = logusr
                       Form2.Label11.Caption = logusr
                       Form1.Show
                       Unload Me
                       Exit Sub
                Else
                MsgBox ("Senha Incorreta!")
                Text2.SetFocus
                End If
            Else
            Data1.Recordset.MoveNext
            End If
        Loop
        MsgBox ("Usuário Inválido!")
End Sub

    valeuz

  24. Setup E Package

    em Visual Basic

    Postado

    bom, ele tá dizendo o seguinte

    "Ocorreu erro desconhecido enquanto criava o arquivo cab (meuprimeiroprograma.cab). Por favor verifique se você possui acesso permitido ao destino e se possui espaço suficiente para criar o arquivo."

    bom, isso nunca ocorreu comigo, mas será q você tem espaço no disco?

    ou se você estiver numa rede, você está com login de usuário ou de adm???

×
×
  • Criar Novo...