rs.Open "Select * from general", db, 3, 3 strSQL = "SELECT statement goes here"
rs.Open strSQL, cnnSqlSrvr, adOpenDynamic, adLockOptimistic
If Not rs.BOF And Not rs.EOF Then
Set Adodc1.Recordset = rs
Dim oApp As Word.Application
Dim oDoc As Word.Document
'Start a new document in Word
Set oApp = CreateObject("Word.Application")
Set oDoc = oApp.Documents.Add
With oDoc.MailMerge
.DataSource = Adodc1.Recordset
What else goes here?
I have a .DOC file with the fields added already in a template
I do not want to add fields through the code
How can I use the template file to load the data into?
End With
End IfOption Explicit
Private Sub Command2_Click()
Dim numCmdBtnsWanted As Integer
Dim numCmdBtnsAllowedInRow As Integer
Dim numRows As Integer
Dim z As Integer
numCmdBtnsAllowedInRow = Form1.Width / Command1(0).Width
numCmdBtnsWanted = 25
numRows = numCmdBtnsWanted / numCmdBtnsAllowedInRow
Dim x As Integer
Dim y As Integer
Dim wd As Integer
wd = Command1(0).Width
Dim ht As Integer
ht = Command1(0).Height
For x = 1 To numCmdBtnsWanted
Load Command1(x)
Command1(x).Caption = "CMD" & Str(x)
Command1(x).Visible = True
Next x
For x = 1 To numCmdBtnsAllowedInRow
Command1(x).Top = Command1(0).Top
Command1(x).Left = Command1(x - 1).Left + wd
Next x
End Sub