Search results

Kevin, Again I might misunderstood due to my poor English. try this strSQL = "INSERT INTO tblexample " _ & "(fileName, filePath, fileExt, beforeFileName, afterFileName, dateImported) " _ & "SELECT '" & strEqu1 & "'" _ & ", '" & strFolder & "'" _ & ", '" &...

Sending revised version of your mdb attached . Please do not forget "set a reference to "Microsoft Excel 8.0 Object Library" under Tools Menu/References first." as Ashish said. Of cource it can also be Microsoft Excel 9.0 Object Library. HTH OlcayM

Hi, I believe this link will help you.... http://www.mvps.org/access/modules/mdl0035.htm

Hi, I am sorry for offering something stupid ; use the form in the report ?

Hi, If "it was unsuccessful because the record already exists" then; Make a select query which are linked from the fields which makes your append query fail. Then dcount the result of the select query. If any record exist then dcount>0 which means that many records are not appended. HTH OlcayM

Hi, You need to know the link field between main and subform. If they are non duplicate key fields, possibly you will get an error message. Will you give a little more detail? OlcayM

This code is taken from http://www.mvps.org/access/api/api0025.htm HTH OlcayM

ajetrumpet made the most of it... what you need is to change your code a little. Private Sub txtWeeklyPts1_LostFocus() Dim x As Long Dim p As Long Dim a As Currency Dim b As Currency Dim c As Currency Dim d As Currency a = 1 b = 1.15 c = 1.3 d = 1.45 p = Me.txtWeeklyPts1.Value x = 100 Select...

First of all ruralguy is right. But if you have to do it your way, then run a dcount to sfrmyear forms table to see if the same link field value exist with SfrmApproved's link field value . If dcount is zero then warn the user... Olcaym

Hi Again, Change Form_Switch parameters to STRING. I am using a similar function with the same name IsLoaded. It is below; Function IsLoaded(ByVal FormName As String) As Boolean On Error Resume Next If SysCmd(acSysCmdGetObjectState, acForm, FormName ) <> 0 Then IsLoaded= True End Function...

Hi, Try this link http://www.mvps.org/access/api/api0025.htm OlcayM

Hi, Change your toolbar form's BorderStyle Property to "NONE". This way it will not be possible to move it, unless user makes a lot of tricks. This way you don't have to use timer, and you should not (as far as you mention) HTH OlcayM

Hi, There is a small mistake in your code. I believe, it will be solved after you change; WRONG Call Form_Switch(Forms![frm_Test_One], Forms![frm_Test_Two]) RİGHT Call Form_Switch("frm_Test_One", "frm_Test_Two") HTH Olcaym

Hi, May be you should try it first in query view, then copy the sql string of that query to vba... HTH OlcayM

Hi, Change the line "lboListCtl.RemoveItem (intListRow)" with this line "lboListCtl.RemoveItem (0)" HTH OlcayM

Hi, I might understood your explanation wron but, seems you are willing to go on each record on a form and apply your sql... If this is right then - take the "strEqu1 = [Forms]![frmCode]![FileName] strEqu2 = [Forms]![frmCode]![ strEqu3 = [Forms]![frmCode]![AfterFilename]" lines, out of...

the link http://www.access-programmers.co.uk/forums/showthread.php?t=99179 will help you export your macros as text. may be you will impoert them to a note field and make your search... well long run, but at least works if there is no better way... olcaym

if possible put it at the header section of form. i think it helps? olcaym

This is because you are using datasheet view. If you use form view it will be refreshed immideately. In datasheet view, you should try the columnwidth property by assigning 0. On the other hand, then you have to know the column widths or just assign any width to that column. HTS Olcaym

Hi, I simulated what you have done, adn seems there should be no problem. I noticed something in your code. It may not be wrong but??? Me.subform1.SourceObject = "form1" line should read Me!subform1.SourceObject = "form1" Me.parent!subform1.SourceObject = "form2" line should read...