Hi,

[code]xlApp.ActiveWorkbook.Close True, App.Path & "\gegevens.xls"
xlApp.Quit
Set xlApp = Nothing[/close]

Hi,

And if you are using access use "*" instead of "%" ex:
select ename from emp where ename like 'A*'

Hi,

I don't know what is generating the error as I tested my code and it worked correctly. Try to debug in order to find where the error is. A for Me. you can remove it where the "Me" word...

Hi,

EOF will be reading the cells or the sheets ??

Hi,

Check this:


Dim xl As Object
Dim xlsheet As Object
Dim xlwbook As Object

Set xl = CreateObject("Excel.Application")

Hi,

It will look something like this:
Select tbluser.id, tblinfo.* from tbluser, tblinfo where tbluser.id=tblinfo.id

Hi,
Just replace the wdFormatRTF with number 6 (this code is for VB6, if you are using different IDE please advise).

Dim Oword As Object
Dim Odoc As Object

Private Sub Command1_Click()
Set...

Hi,

Try this, I haven't been able to test it:

Dim Oword As Object
Dim Odoc As Object

Private Sub Command1_Click()
Set Oword = CreateObject("Word.Application")
Set Odoc =...

Hi,

Use the below code while changing just the file name:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal...

Hi,
What I ususaly do is call the below SQL through regular ADO "Select GetDate()" so the statment is implemented on the SQL server on our main server.

Hi,
To disable the possibility of adding the same record twice I have amended the example a little.

Hi,

Check the attached example.

Hi,

What is the problem you are facing ... As syntax I don't see any mistake. If you are retriving wrong records try to format the value of the date picker.

Hi,

Attached file shows an example of this.

Hi,

I can't check your code right now but below is a similar code I used once for a login form (no need for the module):

Option Explicit
Dim rs As Recordset
Dim db As Connection

Private...

Hi,
Just replace the 0 by 1 for the start index:
MsgBox Mid$(txtFirst.Text, 1, 2)

Hi,

Your problem is in line 10 where you have seperated the If Then statment from their result without using End If. Just get line 11 to be directly after Then in line 10 (without going down to a...

Hi,

I think you are looking for:

Me.Combo1.AddItem " Select "
Me.Combo1.ListIndex = 0

Hi,

For the extra spacing problem use the built in excel function clean which will remove all non printable chars.

As for the problem of row height it is becuase you are exceding the accepted...