使用VBA代码提取表中的值

时间:2018-12-13 02:50:17

标签: access-vba

我在带有两列的表“ tblEngineFamilies”中寻找LM500。表格有6行

Col 1: EFID
Col 2: EF

下面是我正在计算的代码

Public Sub TestTableSearch()

Dim rstTable As Recordset
Dim rst1 As Recordset

Set rstTable = CurrentDb.OpenRecordset("tblEngineFamilies")

rstTable.Filter = "EF = 'LM500'"

错误消息:此类型的对象不支持操作。

1 个答案:

答案 0 :(得分:0)

对于这样简单的任务,请使用 DLookup

from PIL import Image
import numpy as np
from imgaug import augmenters as iaa


def main():
    im = Image.open("bg_img.jpg")
    im_arr = np.asarray(im)

    # gaussian noise
    # aug = iaa.AdditiveGaussianNoise(loc=0, scale=0.1*255)

    # poisson noise
    # aug = iaa.AdditivePoissonNoise(lam=10.0, per_channel=True)

    # salt and pepper noise
    aug = iaa.SaltAndPepper(p=0.05)

    im_arr = aug.augment_image(im_arr)

    im = Image.fromarray(im_arr).convert('RGB')
    im.show()


if __name__ == "__main__":
    main()