Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
Private Sub btnTest_Click() Dim strSql As String Dim db As Database Dim rst As DAO.Recordset Dim LngItem As Long Dim rowc As Interger With Me.txtactdesc For rowc = 0 To .ListCount - 1 strSql = "Select * From Activities Where ActDesc = '" & .Column(0, rowc) & "'" Set rst = db.OpenRecordset(strSql) If (rst.BOF And rst.EOF) Then DoCmd.RunSQL "Insert Into Activities (actdesc) Values ('" & Column(0, rowc) & "'" rst.Close End If strSql = "Select ActID from Activities Where ActDesc = '" & .Column(0, rowc) & "'" Set rst = db.OpenRecordset(strSql) DoCmd.RunSQL "Insert Into StaffActivities (ActDate, ActID, STOID, TOID)" Values "(actDate, '"rst.Fields(0).value &"'), cmbsto, cmbTO" Next rowc End With 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.