Copy text from Ms Access record to Excel text box
When I execute code and click on the button the text does not appear in
the textbox. The rest of the code seems to be working except that "text
box" thing. What am I doing wrong?
Private Sub Command105_Click()
Dim strText As Variant
Dim FirstRec As String
Dim LastRec As String
Set RecSet = Me.RecordsetClone
FirstRec = InputBox("First record: ", "First record", 0, 0, 0, 0, 0)
RecSet.MoveFirst
Set ExcelApp = CreateObject("Excel.Application")
With ExcelApp
..Workbooks.Open "Q:\DATA\PRODUCTION\NPDJG.XLS"
..Visible = True
End With
Me.Current_Situation.SetFocus
RecSet.Move (Int(FirstRec))
Set WSheet = ExcelApp.Worksheets(1)
strText = Me("Current Situation").Value
'WSheet.Shapes("Text Box 2").Select
WSheet.Shapes("Text Box 2").TextFrame.Characters.Text = strText
'Set ExcelApp = Nothing
'Set WSheet = Nothing
End Sub
|