MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Código de verificação

    Compartilhe
    avatar
    AndrePeteca
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Código de verificação

    Mensagem  AndrePeteca em Seg 07 Dez 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 [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Código de verificação

    Mensagem  formiga10x em Ter 08 Dez 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.


    [Você precisa estar registrado e conectado para ver este link.]

    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
    avatar
    AndrePeteca
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Código de verificação

    Mensagem  AndrePeteca em Ter 08 Dez 2015, 09:44

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

      Data/hora atual: Sex 15 Dez 2017, 00:21