1st issue, im having a hard time linking various hyperlinks using label to various pdf files.. ive tried various codes already including the the code below.. it worked perfectly but the problem is that my database has more than 2000 records, all with various pdf files.. all these are located in another PC.. what i wanted to happen is that instead of putting all the path name one by one for example C:\file1.pdf, C:\file2.pdf, and so on, i would like VB to search the database based on the path that is on the label caption.. here's the code that i used..
Private Sub Command1_Click() retval = ShellExecute(Form1.hwnd, "Open", "C:\TEST.pdf", 0&, 0&, 1) End Sub
2nd issue, case insensite database search.. Psychocoder helped me with this one but unfortunately, it didnt work in my system.. though i didnt get any errors.. anyway, my database is linked to MSFlexGrid.. im using the code below and it works fine.. it's just that i would like the system to search all those records even if it is in the lower/upper case.. here's the code..
MSFlexGrid1.FillStyle = flexFillRepeat MSFlexGrid1.Col = 0 MSFlexGrid1.Row = 0 MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1 MSFlexGrid1.CellFontBold = False MSFlexGrid1.FillStyle = flexFillSingle For i = 0 To MSFlexGrid1.Cols - 1 For j = 1 To MSFlexGrid1.Rows - 1 If InStr(MSFlexGrid1.TextMatrix(j, i), TEXTSEARCH.Text) > 0 And _ UCase("textsearch.text") = UCase(MSFlexGrid1.TextMatrix(j, i)) Then MSFlexGrid1.Col = i MSFlexGrid1.Row = j MSFlexGrid1.CellFontBold = True MSFlexGrid1.CellBackColor = &H80FFFF TEXTSEARCH.SetFocus 'Else 'MsgBox "Record not found", vbInformation + vbOKOnly, "MEMOS" 'TEXTSEARCH.Text = "" 'TEXTSEARCH.SetFocus 'Exit Sub End If Next j Next i End Sub
3rd issue, in one project i have several data objects.. one of the databases has 3 topics.. 2 forms in the project is linked to this database.. one form has 3 combo boxes all linked to the 3 topics.. the other form has 3 list boxes all linked to the 3 topics as well.. i tried a sample project at first using the code below, and it worked just the way i want it to.. but when i applied it to my application, i keep on getting this error "invalid use of null" for the code "combo1.additem rum1!topic" or "listtopic.additem rsMyRS!topic".. here's the code..
Dim dbMyDB As Database Dim rsMyRS As Recordset Private Sub Form_Load() Set dbMyDB = OpenDatabase("F:\KAITH DBASE\FILE MAINTENANCE\TABLEACCESS.mdb") Set rsMyRS = dbMyDB.OpenRecordset("TOPICTABLE", dbOpenDynaset) If Not rsMyRS.EOF Then rsMyRS.MoveFirst Do While rsMyRS.BOF LISTTOPIC.AddItem rsMyRS!TOPIC rsMyRS.MoveNext Loop Set dbMyDB = OpenDatabase("F:\KAITH DBASE\FILE MAINTENANCE\TABLEACCESS.mdb") Set rsMyRS = dbMyDB.OpenRecordset("SIGNTABLE", dbOpenDynaset) If Not rsMyRS.EOF Then rsMyRS.MoveFirst Do While Not rsMyRS.EOF LISTSIGNATORY.AddItem rsMyRS!SIGNATORY rsMyRS.MoveNext Loop Set dbMyDB = OpenDatabase("F:\KAITH DBASE\FILE MAINTENANCE\TABLEACCESS.mdb") Set rsMyRS = dbMyDB.OpenRecordset("FOLDERTABLE", dbOpenDynaset) If Not rsMyRS.EOF Then rsMyRS.MoveFirst Do While Not rsMyRS.EOF LISTFOLDER.AddItem rsMyRS!FOLDER rsMyRS.MoveNext Loop end sub
i used the same code for the other form with combo boxes.. i just changed rsMyRS to rum1 and dbMyDB to dum1, and listtopic to combo1, listfolder to combo2 and listsignatory to combo3..
4th issue, in another form is where the user can search the database linked to msflexgrid.. i used the same code as the one above with the case insensitive.. but what i would like to do is that all the records that matched the textsearch textbox would show in another flexgrid.. because with the code that i have, it would only highlight the records that matched and the user will have to scroll throughout the flexgrid to view the result.. i hope you guys can help me with all these issues and i hope that these codes would be helpful to others.. thanks for your time and to those who have will have or who already has shared their thoughts and ideas for my dilemma.. thanks again!