Ms access 在帖子上，我希望内容是我的，我会对此负责。我觉得我应该把这一点推广到其他人身上。请参阅stackoverflow常见问题解答：“与Wikipedia一样，此网站是协作编辑的。如果您对其他受信任的用户编辑您的问题和答案的想法不满意，则此网站可能不适合您。”J

---

在帖子上，我希望内容是我的，我会对此负责。我觉得我应该把这一点推广到其他人身上。请参阅stackoverflow常见问题解答：“与Wikipedia一样，此网站是协作编辑的。如果您对其他受信任的用户编辑您的问题和答案的想法不满意，则此网站可能不适合您。”Joel Spolsky还鼓励用户添加现有答案，而不是创建一个新的维基风格的答案。David，我承认我自由形式键入答案，而不是复制/粘贴。这比找到用户需要的代码要快。我希望我的答案能为人们指明正确的方向，让他们能够利用编译器错误解决任何问题。我认为你应该编辑答案。当然，在我的回答中用括号编辑我的问题对我来说是好的，而不是公开评论缺陷。但话说回来……那会让你失去优越感，我想这是你不会轻易放弃的。赛斯

Function GetUserSelectedCarID() as string
dim myPopupForm as Form
set myPopupForm = new Form

myPopupForm.Show vbModal
GetUserSelectedCarID = myPopupForm.UserSelectedCar
End Function

Forms("AnOpenFormName").Controls("ControlName") = value

Public Function GetCArKey as Integer

dim intReturn as integer

docmd.openform "MyModalForm",,,,,,acdialog  

if isloaded("MyModalForm") then
   intReturn=Forms("MyModalForm").Controls("ControlName").Value
end if

GetCarKey=intReturn

End Function 

  DoCmd.OpenForm "dlgPickDriver", , , , , acDialog 
  If IsLoaded("dlgPickDriver") Then
     Me!DriverID = Forms!dlgPickDriver!cmbDriver
     DoCmd.Close acForm, "dlgPickDriver"
  End If