Search results

SOLVED SetFormIcon Me.hWnd, CurrentProject.Path & "\hsicon.ico" this will use the current db's patch and the icon names hsicon.ico contained in that directory.

Hi, I use a simple macro to export a report to excel - export with formatting - however it is cutting my memo field short - only giving half or quarter of the field in some occurances? Anyone else had this issue?

Hi, I had similar issues with this functionality so decided to change my form to make it more user friendly - i set up comboboxes to choose filter values and then a button to filter the form.. code as follows: Private Sub cmdFilterConvErrors_Click() Dim strWhere As String Dim lngLen As...

[SOLVED] -Access Form Icon - Store in DB Hi, I currently use code in a module and code on each form in the on_load event to change the icon of the form.. the code i use is as follows.. in a module: Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long...

Hi, I have a report which gives me a count of records found for each group group 1 - 10 group 2 - 13 group 4 - 82 what i want is a total below this - ive looked at calculated controls however cant seem to get it what soever - ive tried likes of =sum([counts]) any help would be fab

Thanks for replies multiple solutions and each one great :)

Hi, im looking to have a combobox on a unbound form to select a product code (this i can do) however i want a textbox to auto populate with the description aswell - both in the same table tblproducts - product_id,pcode,pdesc any help would be fab

Hi, the following code added to a command button to open your report will filter dependant on a miriad of factors - textboxes or combos or even check boxes Private Sub cmdFilterRecords_Click() Dim strWhere As String Dim lngLen As Long Const conJetDate = "\#mm\/dd\/yy\#" If Not...

I have the following in a class module (as it supports the me.controls format) Public Function CheckForm() For Each ctl In Me.Controls Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox If Len(Nz(ctl.Value, vbNullString)) = 0 Then...

Hi, I have a number of global variables set when a user logs into my application which i want to use in an SQL string to record these in a table however im not sure how i go about it i know simply inserting the defined names in the SQL wont work. Is there a way to define these in global...

Hi, it has to be in the form C:\......

HI, I have an access program and i want it to save a copy into a location... ive got it so it can save however - i want it to save to the current users documents folder (win 7) what file path would i use?

Ohh the difference a few #'s instead of 's make - i really should read more closely!! Thanks for the help and apologies for my lack of reading properly! Working brilliantly now! Thanks to you both :)

Hi, Thats the page i used to try and build my DCOUNT howver still cant get it to work correctly?

Sorry about that, added now

Hi, I'm trying to use DCOUNT to check to see if a date exists and if it does then i can cancel the input. The code im using is as follows however its returning datatype mismatch. Any help would be fantastic. If DCount("[pick_date]", "tblPicker_Stats", "[pick_date] = '" & txtPickDate & "'") >...

Looking at your problem id say you will be able to do this just with related tables and a query to calculate out the result. If you upload your db file i will have a look and make changes as needed and guide you through changes for future reference :)

if you want to check to see fields are filled before inserting the data to the table then you could look at the following: Dim strSQL As String txtEnteredBy.SetFocus If txt1.Text = Null Then MsgBox "Please Enter Entered By", vbOKOnly, "Error" End End If strSQL = "INSERT INTO tblYour_Table...

Unbound isnt as hard as you may think, set up your form as youd like it with unbound's or combo's etc then add a button and add this code with your own field names and txtbox or cmbbox names etc. Dim strSQL As String strSQL = "INSERT INTO tblError (field2,field2,field3) VALUES(txt1, txt2...

HI, Finally solved this, thanks very much for your help :) For anyone looking to do the same this is the following code i used: txtPickDate.SetFocus If txtPickDate.Text = Null Then MsgBox "Please Enter a Date", vbOKOnly, "No Date" End End If If DCount("*", "msysobjects"...