Search results

Something like this,... Dim strActivePrinter As String strActivePrinter = ActivePrinter'whatever it currently is ActivePrinter = "primoPDF" '"pdf995" 'PDF printer, make it winfax ....Your code.... xx: ActivePrinter =...

Take a look at my example, I called it "Replaced". Use it the tyhe way one uses any function, in a query ...WHERE Sum(txtSales) > 100.... SELECT txtName, Date() As txtDate, .... ...ORDER BY IIF(txtNumber Is Null,txtSale, txtNumber)....

AfterUpdate Event, of control on Subform Me.Parent.Refresh or Forms!frmMain!txtSum.requery. Or on exit of Subform Me.Refresh

CurrentProject.Connection.Execute _ "INSERT INTO tblName(txtName,txtcity)" & _ "VALUES('" & Me.txtName & "','" & Me.txtcity & "')" or "UPDATE tblName Set txtName ='" & Me.txtName & "', txtCity ='" & Me,txtcity & "'"

I think you may want to look into Outlook Automation. create a reference to it, from the VBE window."OutlokObjectLibrary 11.0" If you go to your object browser, you'll see the available methods & properties in the Outlook library...

I'd create a function, along the lines that Wayne or I, described above. Use this function for one of your fields. then Order by that field; SELECT txtName, txtCity, Replacing([txtName]) As Replaced FROM..... ....ORDER BY Replaced;

Like Hootie said, where are these controls? And from which form are you calling the procedure? The Text property, will give you exaCTLY what you see. You must set focus to the control first,before you can access the Text Property. As opposed to the Value property. Forms!Workorders.setFocus...

I agree with Ian but, in case you do decide to concatenate now, or in the future;(no need to reference the table, every time) CBO_PART_CODE.RowSource = _ "Select DISTINCT " & _ "STK_PART_CODE & ', ' & STK_PART_CODE_DESCRIPTION " & _ "FROM SCREEN_ADD_PRODUCT " & _ "WHERE SAL_ACCOUNT = '" &...

As Wayne said Banaticus. In case it is numbers, in order to use Wayne's method, maybe; strNumber = CStr(txtNumber), then ... I use the Array() often, for long winded, repetitive coding... Dim varSearch As Variant, varReplace As Variant varSearch = Array("674","67","/",".","~") varReplace =...

Hi Tony, didn't have time to explain yesterday. point is, it wasn't in sequence, due to the formatting, of my report. I would recommend, not putting image controls, in page footer. but in details section, below subreport? But maybe you know more about reports than I do, and you can sync the...

This is not working, on my report. The image results, are one step ahead of rthe current record. Outside of that, it works. excuse the strange sequencing of the image control, just aesthetics. Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo xxx Dim rec...

As Peter said but, the code wouldn't run, if total wasn't declared. I'm assuming it's public. Possibly the event you're using. I don't know what your underlying table is, tblGrades? maybe the fields haven't been saved yet? but i'd think you'd get "division by zero" error? try Me.Refresh and...

Tony, does it come down to, something like this, For x = 1 To 3 Me("ImageFrame" & x).Picture = Me("ImageFile" & x & ".bmp") Next x

tscotti, how do you expect them not, to show the same image? If 3 image controls, in one record, all take the same file path??? What are you expecting. 3 different images, for each record? If so, Is there somewhere we can get the other paths?

Thanks Pat!

It should iterate 3x per record, as expected. Sorry Tony, it was just a guide, you need to alter which ImageFile corresponds with what imageframe. What is held in Me[ImageFile)? a file path? ]

Banaticus, I wasn't thinking, Why call the code, sooo many times?

Don't forget "DoEvents For i = 1 to AWholeBunch DoEvents Call UpdateSplashScreen(i) Call DoLotsOfStuffWith(i) Next i

I think so offhand, Rob. Maybe a BOUND, Boolean field (chkEdit), so each Form_AfterUpdate, it becomes true (single record), When you call Your "Sync" code recordset. Only call records, where chkEdit = True. rec.Open "SELECT .....WHERE chkEdit = True", adOpenForwardOnly,adLockPessimistic Then...

No, you could use this syntax. Me!sfrmName.Form("ImageFrame" & x).Picture = Me![ImageFile]