labq5

could you to tell us what your Project Component and Project References B'cause I get error on descr below Dim [COLOR="Red"]rTela [/COLOR]As [COLOR="Red"]tCoord[/COLOR]

may be solved whit this [url]http://www.vb6.us/tutorials/vb6-string-functions[/url]

How to show field/row serial number on detail data report without use data environment? simply view like this |Number|WO Number|WO DATE|ERROR DESCRIPTION|LOCATION|EXECUTOR NAME| ___________________________________________________________________ | [COLOR="Red"]1[/COLOR] |N0.000001|10-01-1| | [COLOR="Red"]2[/COLOR] |N0.000002|10-01-2| | [COLOR="Red"]3[/COLOR] |N0.000003|10-01-3| | [COLOR="Red"]4[/COLOR] |N0.000004|10-01-4| | [COLOR="Red"]5[/COLOR] |N0.000005|10-01-5| ___________________________________________________________________

[QUOTE=leesysmuthu;1291526]how to run the vb exe without VB6.0[/QUOTE] That's simple You must Compile your project first. for example your Project is Project1 click Menu File >> Make "Project1.exe" >> Type the File name >> Choose Folder for saving (example My Documents) >> OK see on Folder for saving (example My …

it's with ADO connection first you must have Access.mdb then add your project component choose Microsoft ADO Data Control 6.0 (SP6)(OLEDB) add adodc to your form then open ADODC properties and build your Connection String. or do like [B]shweta102030[/B] or [B]ryan311[/B]

[QUOTE=debasisdas;1287400]DTPicker is better control in comparison to calendar control.[/QUOTE] :-/ I guess your reply it's not solving the problem, but like give a opinions. read the questions provided and then provide a good answer

may be your code for insert is not correnct i usually make this [code]Conn.BeginTrans MySqL = "INSERT INTO table_name (Field1, Field2, etc) " & _ "Values ('" & String & "','" & String & "','" & etc & "')" Conn.Execute MySqL Conn.CommitTrans[/code] hope this solve

execuse me, i am newer, but I hope it's work. B-cause some time i get code from friends forums. And forgive me if this code it's has yours. so try this.... [code]Public Sub TB_Zone(frm As Form, Optional vntUseScaleValues As Variant) Dim bUseScaleValues As Boolean If Not IsMissing(vntUseScaleValues) Then bUseScaleValues = …