Question

我创建了一个包含2个重要表的Access 2010数据库：患者和样本。患者可以有多个样本。在患者I中输入患者数据在样本中，我查找一些患者数据并添加该样本的数据。

在splitform样本中，我可以搜索患者的所有样本，或从下拉按钮中选择患者（查找）我想要的是：我从患者中选择一个样本，然后我想为该患者创建一个新的样本。当我创建一个按钮：AddRecord时，所有字段都是空的，我必须再次选择患者。我可以创建一个按钮来创建一个新的样本，患者已经填写好了吗？

-Tried：OpenForm [Patient-nr] = [表格]！[Patiens]！[Patient-nr]但在这里我只是过滤而不创建新记录

-Tried：添加Button，GoToRecord：new（使用的使用控件向导）

-Tried：google ....

2016-02-25，添加了截图和额外信息

1）首先，我从患者名单中打开一名患者

2）点击“打开Pt样本（带PID）”按钮，获取该患者的样本列表

Patients form and Samples form

3）我点击“新样本”并获得一个空白样本表

此DB的关系

New sample and Relations in DB

我想要的是3）当[在2时]我点击“新样本”我得到样本表格，其中“PID”（患者号码），“Pt名称”和“出生日期”预先填写了我刚才看到的病人的数量。现在我必须在该字段的下拉列表中查找PID。

更新2016-02-26

谷歌搜索后，我发现了一些提示并创建了：

Private Sub Command353_Click()  
On Error Resume Next  
DoCmd.RunCommand acCmdSelectRecord  
If (MacroError = 0) Then  
    DoCmd.RunCommand acCmdCopy  
End If  
If (MacroError = 0) Then  
    DoCmd.RunCommand acCmdRecordsGoToNew  
End If  
If (MacroError = 0) Then  
    DoCmd.RunCommand acCmdSelectRecord  
End If  
If (MacroError = 0) Then  
    DoCmd.RunCommand acCmdPaste  
End If  
Sample_nr = ""  
Sample_Date = ""  
Sample_Type = ""  
Sample_Volume = ""  
        {all other fields the same}
Me.Refresh  
If (MacroError <> 0) Then  
    Beep  
    MsgBox MacroError.Description, vbOKOnly, ""  
DoCmd.GoToRecord , , acLast  
End If  
End Sub

这很有效。也许不是最好的方式，但......它确实是它的工作

访问2010表格新记录预填充按钮

0 个答案: