Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by AdamIT

  1. AdamIT

    Adding ActiveX Colour Palette

    FYI: here is the answer, for future reference... Public Property Let BackColor(tColor As OLE_COLOR) UserControl.BackColor = tColor End Property Public Property Get BackColor() As OLE_COLOR BackColor = UserControl.BackColor End Property
  2. AdamIT

    Database Program

    This might be a little bit over-doing it, but: You should setup a Header-LineItem structure. This would involve three tables. A Header table, a LineItem table, and a Speaker table. Here is an example of the fields in each table: ------------------------------ Header.ID Header.Date Header.Notes...
  3. AdamIT

    Playing movies in VB6

    How about shelling out to Windows Media Player and making your program the parent form? Check out this example using notepad: -------------------------------------------------- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long...
  4. AdamIT

    Recording Info in Text File from VB Form

    Try using the old Open statement: ------------------------- Open "c:\output.txt" For Output As #1 Write #1, Text1.Text, Check1.Value, ....... Close #1 ------------------------- Open "c:\output.txt" For Input As #1 Input #1, Text1.Text, Check1.Value, ....... Close #1...
  5. AdamIT

    Compact and Repair Access from VB

    Add a reference to the DAO object library and use this code: DBEngine.CompactDatabase "c:\source.mdb", "c:\destination.mdb" DBEngine.RepairDatabase "c:\source.mdb" These two features will compact and repair your database. Unfortunately, since this is DAO...
  6. AdamIT

    character codes?

    Add the "Microsoft Masked Edit Control" to your project and use that to accept formatted input rather than a standard text box. I'm guessing you are inputting currency values. -- To add the control to your project -- Click the Project menu Click on Components Scroll down to Microsoft...
  7. AdamIT

    Combobox list is changed by selction of other conbobox

    Woops, I think I got a little ahead of myself there... I think what you are asking is this: Sub ComboBox1_Click() ComboBox2.Clear Select Case ComboBox1.Text Case "Test1" ComboBox2.AddItem "Test1 - Test1" ComboBox2.AddItem "Test1 - Test2&quot...
  8. AdamIT

    Combobox list is changed by selction of other conbobox

    I've done this with two ListBox controls. You would need to find a combobox control that has a scroll event: Sub List1_Scroll() List2.TopIndex = List1.TopIndex End Sub Otherwise you will need to subclass the ComboBox control to capture the Scroll event. Check out...
  9. AdamIT

    Visual Basic CR/LF not compatible with MSQuery / Excel

    Use Chr(10) instead of vbCrLf
  10. AdamIT

    How Many Front-ends Can Be Attached To A Single Back-end?

    Geez, Access is not much of an enterprise level DBMS is it? 25 user recommended limit, 1 gig max db size (97 anyhow, don't know about 2000). Quick question though, does Access support stored procedures? As far as creating a command object in VB and using it to run a stored procedure that...
  11. AdamIT

    DataGrid and hair loss

    When close frmChangeRackNum, are you unloading that form or hiding that form? If you unload it, the RackNumber variable is lost, hence the blank string. This would not return an error, just a blank string. Try frmChangeRackNum.Hide instead of Unload frmChangeRackNum Hope this helps, Adam
  12. AdamIT

    conditional page breaks

    Yes. Format your Detail section. Click the Formula button next to "New Page Before". Enter a formula such as: {table.field} = "ABC123" Anytime the field is equal to ABC123, that record will start on a new page.
See more

Part and Inventory Search

Back
Top