Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Private Sub LoadJobVenues() Dim strSQL As String strSQL = "SELECT tblJob.JobID, tblJob.JobName, tblJob.JobtartDate,, tblJob.JobEndDate FROM tblJob WHERE (((tblJob.JobID)= " & intJobID & "));" Me.dataDisplaySubform.SourceObject = "Query.qryJobs" Me.dataDisplaySubform.Form.RecordSource = strSQL Me.dataDisplaySubform.Requery Me.dataDisplaySubform.Form.AllowEdits = False Me.dataDisplaySubform.Form.AllowAdditions = False Me.dataDisplaySubform.Form.AllowDeletions = False End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.