Search results for query: *

I don't use Acces, but I think you need the "BeforClose" event. Hope this helped ya out. --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of liberty, of thee I sing. Land where...

Do not use the Package And Deployement Wizard, but a 3th party installation tool. I recommend http://www.clickteam.com/English/index.php --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee...

To execute the code with the Keyboard - Enter-Key use the Keypress methode. Private Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 Call Combo1_Click End Select End Sub --------------------------------------- This will be the day when all of God’s...

Take a look at this site for free Installation Utilities :P http://www.hlrnet.com/frprinst.htm --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of liberty, of thee I sing. Land...

Thank you all once more for your support ;) It work fine now. Never knew that I could call a "Private Sub" within the same form. Learned something again. You also have a star pkailas. --------------------------------------- This will be the day when all of God’s children will be able to sing...

That it would be so simple.... I´d never knew... Have a shiny my friend and many thanx for the solution... ;) --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of liberty, of...

I understand that you will here a beep, but my code did not execute... This is the code I already have in the KeyPress() Private Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8, 65 To 90 Case 8, 97 To 122 Case Else KeyAscii = 0...

Hi, Got me a Combo1_Click() event. When I press the down-arrow the code executes. Is it possible to do that also with the "Enter-Key"? I thought that it would be possible to write the code under a KeyPress Event, but then nothing happened. --------------------------------------- This will be...

:lol: --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of liberty, of thee I sing. Land where my fathers died, land of the pilgrim’s pride, from every mountainside, let freedom...

Forgot the rest.. oops: Private Sub Combo1_Click() Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Blad1 WHERE DISTRICT = '" & Combo1.text & "'", cn, adOpenDynamic If Not rs.EOF And Not rs.BOF Then rs.MoveFirst Do While Not rs.EOF If rs!plaats =...

I see I made a few mistakes... oké... Í realy am a newbee: Your code would be: Option Explicit Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString =...

If you use the same code try this: If rs!plaats <> tTable Then Combo1.AddItem rs!DISTRICT tTable = rs!Place --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of...

What is the code u use to import the table? I use an AccesDatabase and import the DB with the following code: Option Explicit Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.4.0"...

Well... I'm a newbie. So the way I would write it, it would be al lot of work. Perhaps there is another way. At least I'm trying.. ;) If Check1.Checked = True then 'do this ElseIf Check1.Checked And Check2.Checked = True Then 'do something else End if...

ooops.... made a little mistake... Combo.Value = Empty --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of liberty, of thee I sing. Land where my fathers died, land of the...

Hope I can help you out here.... create a module Sub ClearCombo() Dim Combo As Control For Each Combo In UserForm1 '<-- name of UserForm If TypeOf Combo Is ComboBox Then Combo.Text = Empty End If Next End Sub Create a CommandButton and enter the following code: Private...

example: Private Sub Text1_Change() If Text1.text = "" Or Empty Then List1.Clear End sub Private Sub Combo1_Change() If Combo1.text = "" Or Empty Then List1.Clear End sub etc.... etc..... --------------------------------------- This will be the day when all of God’s children will be able...

ConString should be Con.ConnectionString --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of liberty, of thee I sing. Land where my fathers died, land of the pilgrim’s pride...

Let this noobie try to help you.... (:P) I presume that you made a Connection with a database. Private Sub List1_Click() Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Page1 WHERE Name = '" & List1.Text & "'", cn, adOpenDynamic If Not rs.EOF And Not rs.BOF Then Text1.Text =...

Hmmmmmmmmm..... That's strange. Perhaps there is something wrong with mine..... (8$) --------------------------------------- This will be the day when all of God’s children will be able to sing with a new meaning, “My country, ‘tis of thee, sweet land of liberty, of thee I sing. Land where my...