Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Dim dynReportList As Recordset Dim dynActivePers As Recordset Dim dynReportSec As Recordset Dim liPers As Long Dim liRep As Long Dim i As Integer Dim n As Integer For n = 0 To i Set dynActivePers = dbaTest.OpenRecordset("SELECT Personnel.IDNmbr from Personnel WHERE Status = 'Active' order by Personnel.IDNmbr", dbOpenSnapshot) liPers = dynActivePers("IDNmbr") Set dynReportList = dbaTest.OpenRecordset("Select ReportList.IDNmbr from ReportList order by IDNmbr", dbOpenSnapshot) liRep = dynReportList("IDNmbr") i = dynActivePers.RecordCount Set dynReportSec = dbaTest.OpenRecordset("SELECT * from ReportSecurity where ReportListID = " & liRep And PersonnelID = " & liPers", dbOpenDynaset) If dynReportSec.EOF = True And dynReportSec.BOF = True Then dynReportSec.AddNew dynReportSec("PersonnelID") = liPers dynReportSec("ReportListID") = liRep dynReportSec("AddedBy") = gsUserID dynReportSec("DateAdded") = Now() dynReportSec.Update End If Next n
|VBA to create a graph with dynamic data in a table||8||51|
|How to determine how many ODD and EVEN digits are in a number using VB6?||3||52|
|Problem to the message||13||54|
|passing parameter in sql procedure||9||22|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
25 Experts available now in Live!