Search results for query: *

...Name:=currentDbName, LinkToSource:=True, Connection:="DSN=MS Access Database;" & "DBQ=" & CurrentDb.Name & ";", _ sqlstatement:="SELECT * FROM [tblSeveranceLetters]" ObjWord.MailMerge.DataSource.ActiveRecord = wdLastRecord LastRecord =...

...Name:=currentDbName, LinkToSource:=True, Connection:="DSN=MS Access Database;" & "DBQ=" & CurrentDb.Name & ";", _ sqlstatement:="SELECT * FROM [tblSeveranceLetters]" ObjWord.MailMerge.DataSource.ActiveRecord = wdLastRecord LastRecord =...

Thanks! I will try that!!

I don't believe I can modify the opendatasource to equal one name because I could have up to 100 employees in that table to process to letters. The names change with every run.

yes, I am trying to output everything in the tblSeveranceLetters to a mailmerge that saves each by a Word and PDF with the employee's name as the filename. It works perfect only, it bundles them.

...Name:=currentDbName, LinkToSource:=True, Connection:="DSN=MS Access Database;" & "DBQ=" & CurrentDb.Name & ";", _ sqlstatement:="SELECT * FROM [tblSeveranceLetters]" ObjWord.MailMerge.DataSource.ActiveRecord = wdLastRecord LastRecord =...

When it stops for the message below, it shows 2 records to be processed, however, it seems to be looping through through both records at once and processing them in one file. It does create 2 Word and 2 PDF, but both employees are in each file. If MsgBox(LastRecord & " employee severance...

...Name:=currentDbName, LinkToSource:=True, Connection:="DSN=MS Access Database;" & "DBQ=" & CurrentDb.Name & ";", _ sqlstatement:="SELECT * FROM [tblSeveranceLetters]" ObjWord.MailMerge.DataSource.ActiveRecord = wdLastRecord LastRecord =...

..._ Name:=currentDbName, LinkToSource:=True, Connection:="DSN=MS Access Database;" & "DBQ=" & CurrentDb.Name & ";", _ SQLStatement:="SELECT * FROM [tblSeveranceLetters]" Dim rec, LastRecord As Integer Dim docNameField, strDocName, savePath As String...

...a selection(s) from the list", , "Selection Required !" Exit Sub End If 'select all employees from query strSQL = "SELECT * FROM qrySeveranceLetters" 'Build the IN string by looping through the listbox For i = 0 To LetList.ListCount - 1...

The script below works for a small SharePoint list but I cannot seem to get it to work with a large list over 900,000 rows. Any suggestions would be greatly appreciated. I am very new to PowerShell but I think I am missing the loop. $SiteName = "https://folio.com/mysite" $list = "Audit Only...

This is the code to call on the 64 bit procedure: Public Sub ImportSeveranceData() Dim strCurrProjPath As String Dim objExcel As Object 'Excel.Application Dim objWorkbook As Object 'Excel.Workbook Dim objWorksheet As Object 'Worksheet Dim strXlFileName As String 'Excel Workbook name Dim...

...Compare Database Option Explicit 'Dim strFilter As String 'Dim strInputFileName As String ' 'strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS") 'strInputFileName = ahtCommonFileOpenSave( _ ' Filter:=strFilter, OpenFile:=True, _ ' DialogTitle:="Please select an input...

...Dim strFilter As String Dim lngFlags As Long Dim varFileName As Variant On Error GoTo Err_ImportSeveranceData strFilter = "All Files (*.*)" & vbNullChar & "*.*" lngFlags = tscFNPathMustExist Or tscFNFileMustExist Or tscFNHideReadOnly varFileName = tsGetFileFromUser( _...

Hello, since my pc was upgraded, this code will not run. It goes directly to the "File selection was canceled." It worked fine before the upgrade but I had to put PtrSafe declarations in the following to get it it even open. Any help would be greatly appreciated on ideas to fix???

Okay, maybe I entered it wrong but your code is working now. It could be my declaration of "VarItem" that did it but not sure. Anyway, I am very happy that it works!! strSQL = "UPDATE tblSeveranceData " _ & " SET [Date Sent Payout] = Date() " _ & " WHERE [AutoNumber] = " &...

Here was what I was getting with just the AutoNumber as the criteria. The AutoNumber was reading blank. I totally agree with you that it should be pulling because it is a primary key: UPDATE tblSeveranceData SET [Date Sent Payout]=Date() WHERE [EID]='2248808' And [AutoNumber] = Here is...

Okay, this seems to be working: I simply used both the Employee ID and Autonumber for the criteria to find the record in the table. strSQL = "UPDATE tblSeveranceData SET [Date Sent Payout]=Date() " & _ "WHERE [EID]='" & Me.EEList.Column(0, varItem) & "' And [Autonumber] =" &...

Umm, this updated all records for the employees. Wonder why it is not recognizing the autonumber? When I pull the following, column 19 is equal to the autonumber in tblSeveranceData. 'Grab items selected in Listbox iCount = 0 If Me!EEList.ItemsSelected.Count <> 0 Then...

Correct, [Term Date]= Date Since the employee may have duplicate records, I am thinking I could use the AutoNumber as a unique identifier to update the tblEmployeeData![Date Pay Out] rather than use two criteria to find the unique record. I tried this: MyDB.Execute ("UPDATE tblSeveranceData...