Recent content by AdamIT

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

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...

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...

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...

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...

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...

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...

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...

Use Chr(10) instead of vbCrLf

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...

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

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.