MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Código de verificação

    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    Código de verificação Empty Código de verificação

    Mensagem  AndrePeteca 7/12/2015, 13:49

    Bom dia a todo, Estou tentando fazer um programa para gerenciar as sobra de impressão da gráfica que trabalho a logica eu acho que sei, mas não sei aplicar na programação.

    ja matutei muito aqui não sei se e um Select ou DLookup...

    Ex:
    tenho um adesivo de 140x140cm ai eu vendo 70x70cm sobra 70x70cm

    lembra que a impressora tem 5cm de margem de impressão a sobra do adesivo acima só daria para fazer uma impressão de no maximo 65cm, portanto
    ao verificar as medidas teria que acrescentar + 5

    inicialmente eu pensei em verificar na tbl_sobra se o produto existe se sim verifica se a largura existe se sim verifica se altura existe se todos forem verdadeiro messageBox avisando ao usuário que existe sobra e preenche o campo IdSobra com o id da sobra se algum requisitos for falso não acontece na

    por favor me ajudem

    Meu DB Verificar sobra
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    Código de verificação Empty Re: Código de verificação

    Mensagem  formiga10x 8/12/2015, 05:33

    Vejamos se entendi...

    A altura e largura que estão na tabela será comparado à altura e largura +5 das textbox. Se os valores da tabela for maior ou igual então Positivo senão negativo.


    Download Aqui!

    Código:
    Option Compare Database
    Option Explicit
    Sub LimpaCampos()

        Me.txtAltura = ""
        Me.txtLargura = ""
        Me.cboTipo = ""
        
    End Sub

    Private Sub bgnSair_Click()
    DoCmd.Close
    End Sub

    Private Sub btnLimpar_Click()
        
        LimpaCampos

    End Sub

    Private Sub btnVer_Click()
        
        If DCount("Tipo_Material", "tbl_Sobra", "Tipo_Material ='" & Me.cboTipo.Column(0) & "'") - 1 Then
            MsgBox ("Material Inexistente!"), vbExclamation, "Atenção!!!"
            Me.cboTipo.SetFocus
            Exit Sub
        End If
        
        
        If IsNull(Me.txtLargura) Or Me.txtLargura = "" Then MsgBox ("Informe a Largura!"), vbExclamation, "Atenção": Me.txtLargura.SetFocus: Exit Sub
        If IsNull(Me.txtAltura) Or Me.txtAltura = "" Then MsgBox ("Informe o Altura!"), vbExclamation, "Atenção!": Me.txtAltura.SetFocus: Exit Sub
        If IsNull(Me.cboTipo) Or Me.cboTipo = "" Then MsgBox ("Informe o Tipo!"), vbExclamation, "Atenção": Me.cboTipo.SetFocus: Exit Sub
        
        
        
        
        Dim sngLargura, sngAltura, Alt, Larg As Single, strTipo As String
        
        
        strTipo = DLookup("Tipo_Material", "tbl_Sobra", "Tipo_Material ='" & Me.cboTipo.Column(0) & "'")
        
        sngAltura = DLookup("Altura", "tbl_Sobra", "Tipo_Material ='" & strTipo & "'")
        
        sngLargura = DLookup("Largura", "tbl_Sobra", "Tipo_Material ='" & strTipo & "'")
        
        Alt = CSng(Me.txtAltura) + 5
        Larg = CSng(Me.txtLargura) + 5
        
        
            If sngAltura >= Alt And sngLargura >= Larg Then
                Me.txtResultado = "SOBRA POSITIVO!"
                Me.txtResultado.ForeColor = vbBlue
                Else
                Me.txtResultado = "SOBRA NEGATIVO!"
                Me.txtResultado.ForeColor = vbRed
            End If
            
        
    End Sub

    Private Sub Form_Load()

        LimpaCampos
        Me.txtLargura.SetFocus
        
    End Sub


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    Código de verificação Empty Re: Código de verificação

    Mensagem  AndrePeteca 8/12/2015, 09:44

    bom dia formiga10x, vou tentar entender o código q você montou ai retorno aqui mas muito obrigado.

    Conteúdo patrocinado


    Código de verificação Empty Re: Código de verificação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:11