Hi all Again
I fixed it here is my code
======
Dim rs As ADODB.Recordset
Dim str As String
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
With Con
.CursorLocation = adUseClient
.Mode = adModeRead
.ConnectionString = "Provider=SQLOLEDB.1;" & _...
HI
I am trying to create a form in MS word. i want to have a drop downlist that is populated (automaticly) from a table that is in the SQLDB. That form will be used everybody.
I am having problem with setting my connection.
here is my code so far....
======
Dim rs As DAO.Recordset
Dim str As...
HI
I have a list in MS Excel looks like this
ID Fname LName ContactRoleID
1 A B 1
1 A B 2
2 C D 1
3 E F 1
3 E F 2
4 G H 1
5 I J 1
5 I J 2
What i want to do is, remove...
Yes i've tried it like that too. i am using the northwind db that comes with sql server. i also checked if it has any parameter. it doesnt so i dont know what i am doing right now.
Here is the error ms dialog box
Microsoft Visual Basic
Runtime error '-2147217900(80040e14)'
Automation Error...
Hi Roy-Vidar
i changed my connection string to oledb which it looks like
cn.ConnectionString = "Provider=sqloledb;" & _
"Data Source=END4258-5;" & _
"Initial Catalog=Northwind;" & _
"Integrated Security=SSPI"
now i am having problem when it is trying to execute...
Hi
I am trying to execute a sql sp in ms excel. it seems like i am doing something wrong that i couldnt figure out.
here is the code
========
Sub PutRecordsetInRange()
Dim cn As ADODB.Connection
Dim cd As ADODB.Command
Dim rsData As ADODB.Recordset
Set cn = New ADODB.Connection...
here is my code(partial)
DataGrid1.AutoGenerateColumns = False
Dim datagridcol As New BoundColumn
datagridcol.HeaderText = " Image Name "
datagridcol.DataField = "Name"
DataGrid1.Columns.Add(datagridcol)
Dim...
i have a button on the form with click event that opens a different access application. I have to get the variable from the first application and use it on the second one. Could you tell me how?
Thanks
I have a form that has 5 frames with option boxes. before updating my table, i want to see if they select all frames or not. if they didn't, i want to show a warning msgbox with the frame name that they didn't select.
Thanks in advance
I got It here is the code
Dim catname As String
Dim catid, intcount As Integer
catname = Me.txtCatName
catid = DLookup("CategoryID", "dbo_tblCategory", "CategoryName = '" & catname & "'")
catid = "a" & catid
Me.xTree.SetFocus
For intcount = 1 To xTree.Nodes.Count
xTree.Nodes(intcount).Expanded =...
Hey MajP
I have another question regarding to tree view control. I have a text box on he form. when the user types the node name, it will select the node automaticly
here is my code:
Private Sub cmdFind_Click()
Dim catname As String
Dim catid As Integer
catname = Me.txtCatName
catid =...
i did this way
Dim res As Integer
res = Right(Node.Key, Len(Node.Key) - 1)
If DCount("FrmName", "dbo_tblCategory", "dbo_tblCategory.CategoryID=" & res) = 0 Then
Me.mysubform.SourceObject = ""
Else
Me.mysubform.SourceObject = DLookup("FrmName", "dbo_tblCategory", "dbo_tblCategory.CategoryID...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.