Search results for query: *

If TypeOf Ctrl Is TextBox Then Ctrl.BackColor = vbRed End If

No, you can make the connection directly to de mdb file

Dim Ctrl As Control For Each Ctrl In Me If Me.Check64 = True Then Ctrl.BackColor = vbRed End If Next

Another method to avoid this problem is the following rs.FindFirst "[Name] = '" & Replace(Me![Combo82],"'","''") & "'"

Replace("000 000 000 000"," ","")

Sorry, You wrote that it is an access 2000 database. I noticed it to late

if this is an access97 database I can find the password if you send me the database speedeetje@hotmail.com

The ADODC is a datacontrol which is added in the menu Project==>Components... There you will see that Microsoft ADO Data Control 6.0 (SP4)(OLEDB) is a selected item. That is the component you have added

...be able to connect to your database. After the connection is made you can drop your own code and do whatever you are doing in your application. **********************Begin code*********************** Dim lsBrains As String lsBrains = "SELECT *" & Chr(13) & "FROM...

...to connect to a database is the following. I create a module with all the parameters to connect to the database Put the following code in a module ****************************************************** Option Explicit Public myConn As New ADODB.Connection Public RS As New ADODB.Recordset Dim...

The solution I suggested here before uses a report created with crystal reports. You can find crystal reports on the third CD from VB 6.0. If you install this program you will be able to create a report with crystal reports (version 4.6)and open this report in VB when putting the crystal report...

...sqlCode As String, strPwd As String) Dim AccessConnect As String Dim stQuery As String AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=" & myDatabase & ";" & _ "DefaultDir=" & myPath &...

Hi, Indeed in my code there is an error txtNumber should be Text1 It has to be changed twice

...you reached 9 as last digit and you add 1 to 9 you get 10(2 ditgit number), the length of the original number and the new number will be the same. ******************************************************** Private Sub Command1_Click() Dim myLen1 As Byte Dim myLen2 As Byte Dim myCounter As...

Hi, You can control the length of the ID_order. Select Case Len(id_order) Case 1 id_order= "000" & id_order Case 2 id_order= "00" & id_order Case 3 id_order= "0" & id_order Case 4 id_order= id_order End Select ydate...

...data from CR I putted a CrystalReport control on my form. Then I use following syntax to display the report that was premade by Crystal Reports. ***********************Code begins************ Dim sName As String sName = InputBox("What name do you want to print?")...

...= adOpenStatic myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDB.mdb" myRS.Open "SELECT * From myTable", myCon, adOpenStatic, adLockPessimistic myRS.Requery Set adoDatagrid.Recordset = myRS 'adoDatagrid is the ADO datacontrol...

Hi, So you are saying that myTotal is a 100 time bigger then it must be. Did you miscalculate or is the value correct? If it is correct and if it is always 100 times bigger then the solution should be simple. You could try this MyString = "Total: " & CCur(MyTotal/100) For the label...

Hi, I suppose you want to retrieve multiple fields of the same table and put them together in a simple combobox You could go about it like this. ********************************** Dim myConn as New ADODB.Connection Dim MyRS as New ADODB.Recordset myConn.Open...

Hi, if you want code to be excecuted when a selection is made, you have to put this code in the click event of the listbox. I think you putted all of the code in the same event where you show your listbox. Naturally all of the code is excecuted even after the list is shown.