Hi,

What Code are you using to Insert Data in the FlexGrid...?

Regards
Veena

Hi,

Its always a Good Idea To Create a Seperate Database for each Financial year. Just copy the existing database as new one using "FILECOPY" and clear tables ..

Regards
Veena

If the DLL File is Already Registered using Regsvr or any other method, , it automatically appers on the List.

But when you have created a new dll, it may not have been registered, so it does not...

Hi,

Try This :
=Replace(FormatNumber(Sum(Fields!TotalProductPrice.Value),2),".",",")

Or Change the Local/Regional settings in Control Panel.
For Numbers, Give comma as DecimalSymbol.
...

Hi,

Also, I noticed, there is a problem in your function:

Public Function Adding2(ByVal x As Integer, ByVal y As Integer) As Integer
'Adding = x + y
' Above line has to be name of...

Hi,

First Open a New Project, Goto References, Browse and add the Dll, from the list (Project1.dll)
And Declare like this :

Dim TempCls As New Project1.MyClass
Text1.Text = TempCls.Adding2(4,...

Hi,

You can make it to Toggle with Single Click:
Write this in Form Load:

chkListBox1.CheckOnClick = True

Regards
Veena

Hi,

Well, the Code Looks Perfect,
I tried the same Code, For a "Memo" field in Access Database, and works Correctly.
Not sure, why it dosent work there.. Any ways, Try Declaring the variables...

Hi,

Well, If your field is Binary, then you need to use AppendChunk..
Just One more correction, After opening the Recordset, you need to write this line :

rsVEN.Open sSql, dbCon, 1, 3...

Hi,

CheckListBox, Automatically Toggles between Check and UnCheck, you dont have to write the code in Click event. Remove all the Code and Check..

Regards
Veena

Hi,

Why do you want to use "AppendChunk" for simple string..?

Try This :

nVNBR = "hi how are yodsf sdf"
rsVen("BITS") =nVNBR
rsVen.Fields("BITS_LENGTH") = 19
' Or

Hi,

What I guess, is txtPrincipal has been created as a Part of the Control Array.
If so, you will find some Numeric value in the "Index" property. Just Clear that, your code should work fine....

Hi,

Open your Database like this :

Set db = ws.OpenDatabase(App.Path & "\Masterfile.mdb", False, False, ";pwd=MyPassword")

Regards
Veena

Hi,

Field Names which have SpecialCharacters/Spaces, need to be enclosed in a Square Bracket..
Try This :

SQL = "Insert into Bookings(StaffID,RoomID,[Date required]," _
& " [Time...

Hi,

Move the Image and Try to refresh the form:

PictureBox1.Left = 32
PictureBox1.Top = 32
Me.Refresh()

Change Control Names accordingly...

Hi,

The error message seems to be clear, There is an "End If", without the "IF" condition.
Just Check the code block pointed by the Compiler ,
Or post it here.. somebody here will help you.
...

Hi,

In Form_Load, just write this :
(I guess "Whitebox", is the name of your Picturebox)
Whitebox.Location.X() =32
Whitebox.Location.Y() =32


OR

Hi,

If Product Name is String, then Wrap it with Single Quotes :
Try This :

Set rs = Nothing
Set rs = New ADODB.Recordset
rs.Open "select materials.unit from Materials Where...

Hi,

Whenever you change Recordset for ADODC control, Immediately follow this Code : ADODC1.Refresh

No, where in your code, you have written that. I have already Mentioned this in my first...

Hi Snta,

Start a New Thread...
Any way, Change Your SQL Statement to :

sql = "select ItemID,ItemName from Item where ItemID='" & Trim(cboItem.Text) & "'"

Replace Val() with Trim()
...

Hi,

Your Label is a a Control Array. So, Check the "Index" Property of the Label, and Change your code to, Say If Index=2 then :

lblStartTime(2).Caption = rsRecordSet.Fields("Unit").Value & ""...

Hi,

Immediately after setting recordsource, you have to refresh..
try this :


adodc1.recordsource = "Select name from emp where name='" & Text2.Text & "'"
Adodc1.Refresh
text1.text...

Hi,

Try this for access:

SELECT * INTO NewTabName FROM OldTabName

Regards
Veena

Hi,

I Guess, if it is an ADO recordset, you can give Just One Column Search, (not multiple).
Like Debasis said, open another Recordset with "Where" Condition

Regards
Veena

Hi,

First Create a ".DLL" of Project2...
Then in Project1 Include the DLL, and then you can Instantiate..

Regards
Veena

Hi,

Where are you writing this code ..? (Which event)
and is there any other code before this line ..:
If chancecount <= 8 Then ..?
I guess, there must be a Loop there..
So which IF, you want...

Hi,

Can you post sample data of few lines over here..?

Hi,

What I personally feel is,
For databases like Access(<=2k), or .dbf, just use DAO.
DAO objects/Methods are quite Flexible.
For example, ADO's FIND, does not support Multiple Column...

Hi,

Which Database..? Access/MSSQL/Oracle..?

Hi,

Try This Code:


Dim RST As New ADODB.Recordset
Dim sSQL As String
Dim i As Integer
sSQL = "Select * From MyTableName"
RST.Open sSQl, Conn,adOpenDynamic, adLockOptimistic

Hi,

Instead of Executing, "Insert" Query, Open a Recordset and add..

REgards
Veena

Hi,

Normalise your database, No need to save same data at 2 places, as you may later face syncronization problem, and Redundant data problem.
What you need to do is Create a StudentMaster Table...

Hi,

Try This Code:


Dim FromDate As Date
Dim ToDate As Date
Dim TempDate As Date
Combo1.clear
FromDate = DateSerial(Val(cmbYear.Text), (CmbMonth.ListIndex+1), 1)

Hi,

Try This :


If Right(UCase(Text1.Text), 1) <> "R" then
Text1.Text = Text1.Text & "R"
End If
Text1.Text = Right( "0000000" & Text1.Text,7)

Hi,

Try This :

Text3.Text = Format(Val(Text1.Text)+Val(Text2.Text), "0.00")

Regards
Veena

Hi,

Set ComboBox's Style = 2 -DropDown List

This will allow user to only select from the available List

Regards
Veena

Hi,

Check The Length and Prefix a 0


If Right(UCase(Text1.Text), 1) <> "R" then
Text1.Text = Text1.Text & "R"
End If
If Len(Text1.Text) < 7 Then
Text1.Text =...

Hi,

Check This Link (http://www.vbforums.com/showthread.php?t=356751)

Regards
Veena

Hi,

Install Visual Studio ServicePack6 or higher..

Regards
Veena

Hi,

So where are you passing the recordselection formula...?