窗体查询功能如何显示复合框、复选框的内容等问题

104914741

VBA的小白一个，以君以沫先生的“员工信息查询系统”为基础（其实代码基本上都是照搬）重新设计符合自己要求的窗体，现在碰到了三个问题，不知该如何解决，请老师帮忙解决一下。万分感谢！
一是君以沫先生的“员工信息查询系统”按姓名查询后的数据都是文本框格式的，而我的窗体中有部分是复合框和复选框，如何才能让查询结果同步显示姓名所在行的复合框、复选框数据呢？（复选框显示√或空白，复合框显示文本内容，我是在窗体初始化代码中加入了复合框的选项文本）
二是输入姓名后，如果姓名不在EXCEL表格中，那么如何才能让录入的相关内容保存到EXCEL表格中最后一行非空行呢？（也就是新增一条记录）
三是如何才能让图片嵌入EXCEL表格中的“个人照片”单元格，并在查询是同步显示姓名所在行的图片呢？



(求助)基本信息登记表录入窗体.zip (418.89 KB, 下载次数: 36)

2020-3-13 23:15 上传

点击文件名下载附件

蓝桥玄霜

先把照片导出到文件夹，见导出代码.
查询中增加的代码如下：

104914741

蓝桥玄霜 发表于 2020-3-14 12:47
先把照片导出到文件夹，见导出代码.
查询中增加的代码如下：

感谢版主！我等下就按您说的方法尝试一下，谢谢！
不知能不能麻烦您帮忙看一下另外那两个问题。

104914741

蓝桥玄霜 发表于 2020-3-14 12:47
先把照片导出到文件夹，见导出代码.
查询中增加的代码如下：

版主，非常感谢您的指导！将图片导出文件后，查询时引用姓名图片已经成功（增加代码时，得先把nm和myPath定义为字符型），但在“首页”运行窗体的话，查询照片会出现错误，如果在“基本信息登记表”中运行窗体的话，则可正常查询显示。这个影响不大，就是不明白问题出在哪里。

蓝桥玄霜

nm = Cells(row, 2).Value
    myPath = ThisWorkbook.Path
改为：
nm = Sheet1.Cells(row, 2).Value
    myPath = ThisWorkbook.Path

104914741

蓝桥玄霜 发表于 2020-3-15 07:47
nm = Cells(row, 2).Value
    myPath = ThisWorkbook.Path
改为：

感谢！
麻烦请问要让查询结果显示复合框和复选框的话，可有什么办法吗？