Search results

When I insert Tiff files they work fine! Are you just using them on the report or are they An OLE Object in A certain table? Jerry

Private Sub Command0_Click() DoCmd.RunSQL ("UPDATE [Table1] SET [Table1].[Storage] = 'No box number for storage' WHERE [Table1].[Box] Is Null") End Sub

1.Query the information you need 2.Build a report based on that query that has the Feilds all in the right places. 3.Output the Report To a text file using the Export Function... In a Form It would look Like:Private Sub Command4_Click() On Error GoTo Err_Command4_Click Dim stDocName As...

What would youre recordcount be of, I mean What recordsource? RecordSource.RecordSet.RecordCount I am pretty Sure Count(*) is for something in a query! Just guessing here! [This message has been edited by Surjer (edited 10-23-2001).]

I have 2 tables Final_MH and Dup Checks Then I have 1 querySELECT Final_MH.*, [DUP CHECKS].*, [Final_MH]![Northing]-[DUP CHECKS]![NORTHING] AS Expr1, [Final_MH]![Easting]-[DUP CHECKS]![EASTING] AS Expr2, [Final_MH]![Elev]-[DUP CHECKS]![ELEV] AS Expr3, [DUP CHECKS].MH_ID FROM Final_MH, [DUP...

What do you want you're "Text File" To look like?

I sent the DB!!!!!!!! Don't forget to hold down shift~!!

QBE GRID? I guess this is the Design Grid... Anyways I didn't know you had to use the Group By Function!! I'm just poking around Access trying to figure it out! Thanks, youre suggestion did make it work! Thanks again, Jerry

I used the Form Wizard to make a form from my table "Pictures" This intern sets the recordsource and controlsource what have you! So the answer to youre question is: It updates whatever record that the form is on! Actually It updates the "Bound Object frame"? that the wizard created on the...

Another quick question... I can't seem to figure out how to use the Count function... I want to count the number of occurences of a certain Text string in a field.. IE.. Table: Feature ' String Northing ' Double easting ' Double Elev ' Double Inventory ' String Comment ' Note There are only 5...

Thanks a million *.... Jerry

((InStr([table].[field],"criteria"))<>"0"))

I have a table that consist of: Feature ' string Northing ' Double Easting ' Double Elev ' Double MH_ID ' String ' "KEY" Inventory ' String Comment ' Now, each MH_ID is unique and contains two parts MH_ID = 123-s456 123 = Landllot -s = indicates sewer 456 = Unique ID What I want to do is...

In VB 6.0 I called access through Automation and here is how I set the mousepointer.. But I'm not sure about access itself..Dim X As Object DBpath = "c:\DupeCheckNew\dupechecknew.mdb" Set X = CreateObject("Access.Application.8") With X frmDupeCheckNew.MousePointer = 11' Sets mousepointer to...

Wow, that was fast. Thanks for you're help.. Worked great.. I have learned sooooo much from this forum. Thanks again, Jerry

I have a form which has two fields. Station ' String To_Reach ' Note After the user enters text into the field To_Reach how can I use a command button to run Spell Checker>Option Compare Database Option Explicit Private Sub Command4_Click() To_Reach.SetFocus 'What Do I use End Sub

Thanks PCS, Youre code worked perfect.. Now that I have the code for actually inserting the image my next challenge is to get the loop part.... It shouldn't be that hard...You took care of the hard part.. This is what I used... Thanks Again.. Option Compare Database Option Explicit Public...

This is where I stand... My table has three feilds [Name], [Sketch (BMP)], [File] I want it to loop through and grab the [file] name for each record and embedd the appropriate [File] to the [Sketch (BMP)] Feild Table: Pictures Feilds: [Name] ' Key, String [Sketch (BMP)] ' OLE Object [File] '...

I just put this on the unload event of the frmSplash form, and since the only thing open after frmplash closed was the Database window, Thats what it apllied it to... Hope this helps... Private Sub Form_Unload(Cancel As Integer) DoCmd.Maximize End Sub

Try Something Like This... I pretty new at this but it works for me... Private Sub Command1_Click() Dim X As Object Set X = CreateObject("Access.Application.8") With X .OpenCurrentDatabase DBpath 'Opens the Current Database file. .Visible = True .DoCmd.OpenQuery...