Member Avatar for dev_kc

How can i print values on the word document from access table,there are more than 1 records for a single person
Here recordcount holds 4 values,bt it is not beng printed on the word doc,it is coming out of the procedure

If rs.RecordCount <> 0 Then
    If Not IsNull(rs!Name) Then
        WordDocument.Edit "Nm"
        strEntr = rs!Name
        strEntr = AppWord.set_Mixcase(strEntr)
        WordDocument.Insert strEntr
    End If
    If Not IsNull(rs!BANK) Then
        WordDocument.Edit "BnkNm"
        strEntr = rs!BANK
        strEntr = AppWord.set_Mixcase(strEntr)
        WordDocument.Insert strEntr
    End If
End If

Please help

  • 2 Contributors
  • 4 Replies
  • 189 Views
  • 9 Hours Discussion Span
  • Latest Post Latest Post by dev_kc

Recommended Answers

All 4 Replies

Member Avatar for dev_kc

Coz that doesnt help,my word document is opening properly,n current date bookmark is working jst fine,i m not able to print values from table,bt from text box its working fine.It is jst goin in 1 if condtn n leaving rest of them,so thats the main prob........

Member Avatar for Comatose

mkay. Have you done a msgbox on rs.RecordCount, to ensure it has the right number of elements? Like, just before the first if?

Member Avatar for dev_kc

yes rs.recordcount is correct,bt at this line,it is comin out of the procedure
strEntr = AppWord.set_Mixcase(strEntr)
although strEntr is holding the correct value
It is not going to Mixcase procedure,bt whn i am using textbox,values are being printed just fine.This is the code I used for textbox:
If txtName.Text <> "" Then
WordDocument.Edit "Nm"
Selection.Text = txtName.Text
strEntr = Selection.Text
strEntr = AppWord.set_Mixcase(strEntr)
WordDocument.Insert strEntr
End If

Please help,how can i print all the values which are there in the table corresponding to the PSno.....:-O

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.