What error do you get? The following could be issues with your code: poonams wrote: MessageBox.Show(item.SubItems(0).Text) item is not instantiated poonams wrote: MsgBox(LstRecord.SelectedItems(1).Text) or MsgBox(LstRecord.SelectedItems(1).SubItems(2).Text) or l1.Text = LstRecord.SelectedItems(3).Text.ToString Most likely the maximum array subscript of SelectedItems is less than 1, ie., you have only selected 1 item from the list.

poonams wrote: can any one tell me how to store & retrive images from Access http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1334194&SiteID=1 Thanks and Regards, Michael Sync ( Blog: http://michaelsync.net)

hi nilesh plz tell me hw i know application running in debug or release mode.& hw i solve the problem. thanks for reply poonam

Hi, I am also using same thing in mine project, however I don't have enough time to look into your code but I am sending u mine code so it will be easy for u to check it out what was wrong with your code.mine code is error free. let u try it......... Imports Microsoft.VisualBasic Imports Excel Imports System Imports com.lowagie.text Imports com.lowagie.text.Image Imports pdfWriter = com.lowagie.text.pdf.PdfWriter Imports com.lowagie.text.pdf.PdfPTable Imports java.io Public Const vbCenter = 2 Public Const vbRightJustify = 1 Public Const vbLeftJustify = 0 '/* Master Report Section Start * / Public Function BranchMaintenanceReport(ByVal strSearchText As String, Optional ByVal strUserNo As String = "") As String Dim objXL As New Excel.Application, wbXL As Excel.Workbook, wsXL As Excel.Worksheet Dim intRow As Long, intCol As Long, intColCount As Long, intSNo As Long Dim rs As New ADODB.Recordset, SQL As String 'Dim st As New ADODB.Stream Dim psUtil As New PensionSystemUtil Dim ctr As Integer Dim tempDir As String, fileName As String, filePath As String fileName = "" intRow = 0 intColCount = 3 wbXL = objXL.Workbooks.Add Try 'intRow = intRow + 1 'wsXL.Range(wsXL.Cells(1, 1), wsXL.Cells(1, intColCount)).Merge() 'SQL = "select * from sa_company_logo where company_code='" & p_company & "'" 'psUtil.ConnectToHDDB() 'rs = New ADODB.Recordset 'rs.Open(SQL, psUtil.conHD, 2, 3) 'If Not rs.EOF Then ' st = New ADODB.Stream ' st.Open() ' st.Type = ADODB.StreamTypeEnum.adTypeBinary ' st.Write(rs.Fields("company_logo").Value) ' If psUtil.IsPathExists(tempDir + "\CompanyLogo.jpg") Then ' psUtil.KillFile(tempDir + "\CompanyLogo.jpg") ' End If ' st.SaveToFile(tempDir + "\CompanyLogo.jpg", ADODB.SaveOptionsEnum.adSaveCreateOverWrite) ' wsXL.Shapes.AddPicture(tempDir + "\CompanyLogo.jpg", _ ' Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, 0, 0, 650, 100) ' wsXL.Rows(1).RowHeight = wsXL.Shapes.Item(1).Height ' st = Nothing 'Else 'End If 'intRow = intRow + 1 ''-> Cell 3,1 Report Name and Report

Hi, Even I am not much good at crystal reports but even I faced same problem in my application for crystal reports and I learnt to add its Installer, so I helped you out in it. Regarding this problem, your Logon to database is failing, thts why your report fails to load. Try this code : dim rptObject as new ReportObject rptObject.SetDatabaseLogon(username,password) rptObject.SetDataSource(dataTableObject) crv.ReportSource = rptObject Here rptObject is an object of your "enq.rpt" report. Regards, Ujjaval Modi :) Manpower moves wrenches, horsepower moves cars, and the power of the mind moves the world.

poonams wrote: i want to import excel sheet on a form? You may wish to rephrase that. It looks like you are asking if we know what you want to do. As we are not mind readers we can't tell you what you want or not. Did you mean "How do I import an excel sheet on a form?" Upcoming FREE developer events: * Developer Day Scotland My website

deathbat wrote: If this does not work why not just use a varible as a counter if you creat it as a user varible it will hold even when the program shuts down What exactly is a "user variable" and how is it different to any other kind of variable? How does it hold on to the value when the program shuts down? Upcoming FREE developer events: * Developer! Developer! Developer! 6 * Developer Day Scotland My website

[code] Dim mShowMenuItem As System.Windows.Forms.MenuItem mShowMenuItem = DirectCast(sender, System.Windows.Forms.MenuItem) mShowMenuItem.MenuItems.Clear() Dim n, i As Integer Dim a, b As String s = "Select srno from cash" com = New OleDbCommand(s, con) con.Open() dr = com.ExecuteReader While dr.Read n = dr(0) End While con.Close() For i = 1 To n s = "Select account from cash" com = New OleDbCommand(s, con) con.Open() dr = com.ExecuteReader While dr.Read() a = dr(0) Dim mSubSubMenuItem As System.Windows.Forms.MenuItem mSubSubMenuItem = New System.Windows.Forms.MenuItem mSubSubMenuItem.Index = i mSubSubMenuItem.Text = a mSubSubMenuItem.Enabled = True mSubSubMenuItem.Visible = True AddHandler mSubSubMenuItem.Click, AddressOf MenuClickHandler mShowMenuItem.MenuItems.Add(mSubSubMenuItem) i = i + 1 End While con.Close() Next this will generate menus Public Sub MenuClickHandler(ByVal Sender As Object, ByVal e As System.EventArgs) 'Don't know wt to write here End Sub poonam

easyst way would be to put i into the tag property of mssubsubmenuitem then in you'r menuclickhandler cast sender to a menuitem and you can extract i from the tag property again code would look something like this: While dr.Read() a = dr(0) b = a Dim mSubSubMenuItem As System.Windows.Forms.MenuItem mSubSubMenuItem = New System.Windows.Forms.MenuItem mSubSubMenuItem.Index = i mSubSubMenuItem.tag = i mSubSubMenuItem.Text = b mSubSubMenuItem.Enabled = True mSubSubMenuItem.Visible = True AddHandler mSubSubMenuItem.Click, AddressOf MenuClickHandler mShowMenuItem.MenuItems.Add(mSubSubMenuItem) i = i + 1 End While private sub MenuClickHandler (sender as object , e as system.eventargs) Dim menu As System.Windows.Forms.MenuItem = sender dim i as integer = menu.tag end sub hope it helps If my help was helpfull let me know, if not let me know why. The only way we learn is by making mistakes.

the below code generating a single menu.it was not working properly.I don't know hw to proceed??? [code] For i = 1 To n s = "Select account from cash" com = New OleDbCommand(s, con) con.Open() dr = com.ExecuteReader While dr.Read() a = dr(0) b = a 'End While 'con.Close() 'For i = 1 To n Dim mShowMenuItem As MenuItem mShowMenuItem = DirectCast(sender, MenuItem) mShowMenuItem.MenuItems.Clear() Dim mSubSubMenuItem As MenuItem ' This second sub menu item causes a problem: mSubSubMenuItem = New MenuItem mSubSubMenuItem.Index = i mSubSubMenuItem.Text = b mSubSubMenuItem.Enabled = True mSubSubMenuItem.Visible = True AddHandler mSubSubMenuItem.Click, AddressOf MenuClickHandler mShowMenuItem.MenuItems.Add(mSubSubMenuItem) i = i + 1 End While con.Close() Next poonam