Search results

All I need to create an XLS-sheet based upon records in an Access-table. The XLS-should have reporttitles for each new group (and some other custom design such as font,....). I start from Access where I created a button. I am however stuck to export the records without the error "No current...

I just found the solution. I forgot to add "controls" Public Sub ReverseListbox(strX As String) Dim intCounter As Integer For intCounter = 0 To Form.Controls(strX).ListCount - 1 Form.Controls(strX).Selected(intcounter) = Not Form.Controls(strX).Selected(intCounter) Next intCounter End...

All I have a form with a lot of listboxes. Each listbox got its own "Reverse All"-button in which selected items become unselected and vice-versa. Instead of using the same code for each listbox, I try te do this with a subroutine which gets the name of the listbox as a parameter. For...

I found the solution by using oSheet.range(Chr(intChar) & intTeller).Value = "=if(L" & intTeller & "="""","""",TREND(I" & intTeller & ":L" & intTeller & ",I1:L1,M1))"

All In Access 2007 I have a form with 2 textboxes named "txtText" and "txtPreview". I defined some keywords such as [[First Name]], [[Last Name]], [[Email]]. There is also a button "Preview" which shows the result in txtPreview where the keywords are replaced by its corresponding values...

All I have an Access-database which creates an Excel file. I have to calculate the TREND, but for some reason next code does not work oSheet.range(Chr(intChar) & intTeller).formula = "=IF(I" & intTeller & "="""";"""";TREND(I" & intTeller & ":L" & intTeller & ";I$1:L$1;M$1))" This results...

Thank, this did solve my problem. I changed xlIconGreenCheck to 22 xlIconYellowExclamation to 23 xlIconRedCross to 24 and now I get the expected (and wanted) output. Regards Ino

All I need to create an Access module which exports some data into an Excel 2007-file. I also need to define a conditional formatting. I started by recording the macro in Excel. Next I copied it into an Access module and tried to get it work. My current code in the Access module: Dim...

I found the probem. I opened the table instead of the SQL-string strSQL = "select * from tblSWF where teller = " & intX Set rsSWF = CurrentDb.OpenRecordset("tblSWF") should be strSQL = "select * from tblSWF where teller = " & intX Set rsSWF = CurrentDb.OpenRecordset(strSQL)

The application shows a "end year countdown flash file". This flash movie should play until 10 seconds in the new year 2011. That's why I use DateDiff("s", Now(), "1/1/2011 00:00:10") < Int(-10) Afterwards a flash file with "new year greetings" should be played. I have 32 different flash...

Thanks I also was able to solve this next code DateDiff("s", Now(), "1/1/2011 00:00:10") < Int(-10) I have now another question I used a timer-function wich happens every second. On my form I add a Microsoft Web Component ActiveX which shows a random FLASH-file. The flash-movie to show...

All I need to compare two dates (with time) in Access 2010, but obviously next code does not work as excpected if now > "#1/jan/2011 00:00:10#" then ... end if The code between the IF-function should activate after 10 seconds in the new year. It seems the result is TRUE although it NOW...

It does not matter: the problem occurs with a single form and also with a continuous one. It is some kind of bug in Access 2007 as I just figured out this issue does not occur in Access 2010. Problem is that the database must work with Access2007.

All I have a problem with a picturebox in Access 2007. I created a table tblJPG with two fields: Counter: an automatic incremental number which is the Primary Key Text: some text about the picture The effective pictures are stored in a folder JPG which is a subfolder of the location where...

I found the solution by adding the name of my mailbox Set mapifolder = gnspNameSpace.Folders("Mailbox - Ino").Folders("Export")

Chris This results in error Run-time error '-2147221233 (8004010f)': The operation failed. An object could not be found. My mailbox is connected with a MS Exchange mailserver Regards Ino

All I need to import Outlook email in an Access 2007-database. I found code how to read mails stored in the Inbox Set golApp = Outlook.Application Set gnspNameSpace = golApp.GetNamespace("mapi") Set mapifolder = gnspNameSpace.GetDefaultFolder(olFolderInbox) For Each item In mapifolder.Items...

All Hereby a simple representation of my problem. I created a table with two fields (Product and Price) which contains some records Product..............Price Product A..........€1.20 Product B..........€1.80 Product C..........€5.00 Next I created a form based on this table. In the...