Hi,
How is the Query...?
Say if you are querying from multiple tables, with Join, then the recordset will be read-only.
If the Query is for Single Table, then 'dbOpenDynaset' , should work...
Regards
Veena
QVeen72
Last Activity: Aug 16 '12, 11:32 AM
Joined: Oct 19 '06
Location: Bangalore
-
-
Hi,
Post the code here, what is there in module... and also the procedure calling in main program.
Regards
VeenaLeave a comment:
-
Hi,
Which Grid Control, you are talking about...?
Regards
VeenaLeave a comment:
-
Hi,
try something like this:
...Code:Dim MyStr As String MyStr = Chr(27) + "!" + Chr(18) + rc.lot.id + Chr(27) + "!" + Chr(0) + Chr(18) sHeader = "/cABC MALAYSIA SDN BHD" _ + "/n/cNYNAME" _ + "/n/cNEWYORK , UNITED STATE" _ + "/n/n/c SUMMARY" _ + "/n/n/lLOT ID: "Leave a comment:
-
Hi,
Try this :
Forms![frm0].RowHeight = 450
Regards
VeenaLeave a comment:
-
Hi,
Declare a Form Level Variable, say Dim MyScore As Integer.
Adda Textbox/Label Control on the top of the form...(Not inside frame)
@ the beginning, initialize it with Zero.
Keep adding score, in Next button, and deisplay in the Text/label...
Regards
VeenaLeave a comment:
-
Hi,
What version of CR u have..?
Regards
VeenaLeave a comment:
-
Hi,
Use Error Handler... First Open Conn to First server, If it opens without error, Exit Sub... OR Else try to Open Conn to second server..
Regards
VeenaLeave a comment:
-
Hi,
Try :
Check1.BackColo r =vbRed
Regards
VeenaLeave a comment:
-
Hi,
Execute on Connection Object :
Db.Execute " update TblName set FldNum=" & text1.Text & " where ID_FldName=" & Text2.Text
Regards
VeenaLeave a comment:
-
Hi,
Ok... Since your String contains Single Quote, you have to write an extra Single quote for each one...
Try this :
[code=vb]
issuerName = Replace(issuern ame,"'","''")
mySQL3 = "SELECT z_RatingsByIssu er.Rating_Ratin gType_ID, z_RatingsByIssu er.Rating_Ratin gType_Name"
mySQL3 = mySQL3 + " FROM z_RatingsByIssu er"
mySQL3 = mySQL3...Leave a comment:
-
Hi,
A Double Quote to End and Restart the string...
....Issuer_Name )= '" & issuername & "'))"
Regards
VeenaLeave a comment:
-
Hi,
Change the Populate code like this :
[code=vb]
For j = 0 To rs.Fields.Count - 1
If Not IsNull(rs.Field s(j).Value) Then
If j = 3 Then
grid1.TextMatri x(i, j) = Format(rs.Field s(j),"0.00")
Else
grid1.TextMatri x(i, j) = rs.Fields(j).Va lue
End If
End If
Next
[/code]
Regards
VeenaLeave a comment:
-
Hi,
Try This :
Grid1.Clear
Grid1.Rows= 1
Grid1.Cols = 1
I'am assuming, Grid Is not Bound with a data source..
If Bound, then Clear the dataSource/RecSet..
Regards
VeenaLeave a comment:
-
Leave a comment:
-
@MA10,
After doing all the modifications, what error are you getting..? and What part of the code is the error pointing..?Leave a comment:
-
Hi,
Try this :
VBA.Environ("Us erName")
Regards
VeenaLeave a comment:
-
Hi,
OK.. u are saving Update Status of Each row, in That row's Column-20..
so when you edit Column's 1 to 19 columns of that row, clear Col-20..
To do this, you need to write another macro..
And then in ur upload macro, check for Col-20 of each row, upload only if blank..
Any way, If u cant understand the logic.. leave it.Leave a comment:
-
Let me know how are you Clearing Col-20 of each row, when editted..?Leave a comment:
-
May be 11th row has Blank record.. as you are checking for Blank in your macro...Leave a comment:
No activity results to display
Leave a comment: