Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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.