Código de verificação

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

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


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