Search results

check what fields you are setting up as the main link to link the combo box to the form e.g. put the PK field on the form, and set this as the 'bound' colum in the combo box

use the combo box wizard to 'Find a record on the form based on combo box selection'

would u like the info to come up in the same form or a seperate form?

here's the code that I use to do it Public Function SendNotesMail(strSendTo As String, strBody As String, strSubject As String) 'This public sub will send a mail and attachment if neccessary to the recipient including the body text. 'Requires that notes client is installed on the system. 'Set...

search the Microsoft K'base, it's covered in there

please only post on one forum

ta, that got it

Hi I have some code which loops through records in a recordset, then changes the properites on a control in a form. e.g. for each record in table Bay (numbered 1-209), check that the equivalent control on the form has data in, if so then change the backcolor of an adjoined control using the...

= DCount("*", "Job Summary Query", "SIndex =" & SIndex & "And Index =" & [Index])

If IsNull Me!SearchOperations Then MsgBox "There is no value" Else MsgBox "Please enter or select " + "'" + Me!SearchOperations.Value End If DoCmd.Close acForm, "SRO_Search_Add"

ta I've gone for the display print dialog box

I would like to be able to tell my db to print certain private and confidential documents to a specific printer, is this possible?

note - I also removed this line MailDoc.CREATERICHTEXTITEM ("C:\Consoles\Hfxtest.txt") it also works with any file type, I am using it with .xls documents

I now have it working!!!!! Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "C:\Consoles\Hfxtest.txt") replace this line with this, and the mail gets sent with the attachment Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "C:\Consoles\Hfxtest.txt")

I've been playing around with this as I need to achieve similar If Attachment <> "" Then Set AttachME = MailDoc.CREATERICHTEXTITEM.Add("C:\Consoles\Hfxtest.txt") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "C:\Consoles\Hfxtest.txt") MailDoc.CREATERICHTEXTITEM...

remove the quotes from the numbers

I don't think you've posted this in the Reports forum yet

try these http://support.microsoft.com/default.aspx?scid=kb;en-us;141373 and http://support.microsoft.com/default.aspx?scid=kb;en-us;191224

if the carton # is of consistant length use the Mid function e.g barcode - (00)00052177740894485 create a new textbox and enter the below in the control source Mid([BarCode],13,8) will return 74089448

make your code a public procedure like Public Sub SendMail(strAddressee As String, strSubject As String, strBody As String) Dim objNotesWS As Object Dim notesdb As Object Set objNotesWS = CreateObject("Notes.NotesUIWorkspace") Set notesdb = objNotesWS.COMPOSEDOCUMENT(, , "memo")...