求助,如何查找大于本身的相近数

fnsmydyang

最近遇到一个难题,想得到在家帮助,还望赐教:
问题是这样的,在窗体1中,当输入厚度后,自动在厚度规格表中找出厚度+3后等于或大于厚度最相近的一个数并写入原材厚,当输入宽度后自动在宽度规格表中找出厚度+5后等于或大于宽度最相近的一个数并写入原材宽,
上传附件,请帮忙,先行谢谢!!!


[ 本帖最后由 fnsmydyang 于 2008-12-15 21:34 编辑 ]

Henry D. Sy

Private Sub 厚度_AfterUpdate()
    Dim lngHD As Long
    lngHD = Me.厚度 + 3
    Me.原料厚 = DMin("厚度规格", "厚度规格表", "厚度规格>=" & lngHD)
End Sub

另一个问题类似，你自己动手

fnsmydyang

感谢6D老师,明白了...[:24]