QVeen72

Hi, USe MSChart Control For the Graph. U can also use Crystal Reports Build Graph on Data stored in Database To Show Another Form use : Form2.Show REgards Veena

Hi, Refine ur Query, which u use to fill the Dataset: check this: [code] MyStr = [COLOR=#800000]"Select Distinct FldName From MyTable" [/COLOR]OCmd = [COLOR=#0000ff]New[/COLOR] OleDbCommand(MyStr, oConn) da.SelectCommand = OCmd da.Fill(oDS, [COLOR=#800000]"t1"[/COLOR]) [/code] Regards Veena

Hi, Keep a Form Level Boolean Variable, and after Navigating to the Record, make it False. Make Form's Property : KeyPreView = True. And in KeyPress event of the Form, Make it to True.. Check for this Boolean Variable while Saving. Regards Veena

Hi, To Get Data from Serial Port use [COLOR=green][B]"MSComm" [/B][/COLOR]Control. Yes u can write directly into Note Pad, Open the TextFile using[COLOR=red][B] "Open[/B][/COLOR]" key word, Write by using [COLOR=red][B]"Print[/B][/COLOR]" Or Else U can also use [COLOR=red][B]"File Scripting Objects"[/B][/COLOR] to write to Notepad. REgards Veena

Hi, Why dont u Right Click the Field and Format it to "Print on Multiple Lines " Max Lines =0 (Prints all) Regards Veena

Hi, Write this code in Grid_Click Event: [code=vb] Grd.Col=0 Grd.Colsel = Grd.Cols-1 [/code] Regards Veena

Hi, "SQL Client" has to be installed on all the Client machine. Regards Veena

Hi, Max Number of OpenTables is 2054. More than that, you shud be aware of few more realities with Access: Practically, After 10 Concurrent users , Access Slows Down/Does Not Accept New Connections/Throws errors.. Max Limit of Access is 2gb, which is easy to hit for Multi-User large Applications.. Its …

Hi, It is not possible to change the GridLines Colour for individula Column wise. What I could think of is , you can "Merge the Cells " so that the Merged Cells will show single line of text and gives the appearance of a Group.. Regards Veena You can use …

Hi, May be the field [B]tblfrist.Bau_id [/B]is Null.. Just Concatenate it with a Blank String : [code=vb] .TextMatrix(.Row, 1) = adoMieter.Recordset("tblfrist.Bau_id") & "" [/code] Regards Veena

Hi, Create a Custom MessageBox of Your own.: 1. Add a new for say frmMsg 2. Add a LabelControl To Display Message. 3. Make Controls WordWrap = True 4. Add 5 Command Buttons 5. Name them :Yes, No, Cancel, YesToAll, NoToAll 6. Add a Public Variable in a Module. and …

Hi Jireh, Change in ur connection string : SERVER=ServerName Check ConnectionStrings.com for format of conn string LocalHost means , it will run only in Server REgards Veena

Hi PlusPlus, What is AdoReminder....? if it is a Connection object, then use Execute method.. say: [code=vb] adoreminder.Execute = "INSERT INTO tblreminder([user-id]) SELECT tbluser.id FROM tbluser WHERE tbluser.Name = '" & txtname.Text & "'" [/code] Wrap complicated column names with square breackets.. (- in ur case) always UnderScore ( _ …

Hi, In design time, Cut the Label Coontrols and the Text Controls and Paste them on the Frame. This way, Frame Acts as a "Parent Container". and in Run Time, Just change the Left , Top Position of the Frame, all the other controls within it will be moved along …

Hi, One more easier way, is to keep another FlexGrid Hidden, with same number of Rows and Cols as the main Flex Grid. Save the Info in 2nd grid, corresponding to Same Textmatrix of the main ones. say, Grid1.TextMatrix(2,3) = "Multiply : 5 * 9" Grid2.TextMatrix(2,3) = "Value : 45" …

Hi, Say ur datepicker is dtpk_F, dtpk_T code u need to write is, Dim FromDate As Date Dim ToDate As Date Dim MyDate As Date Dim MyFile As String Dim FNo As Long FromDate = Format(dtpk_F.Value,"dd-mm-yyyy") ToDate = Format(dtpk_T.Value,"dd-mm-yyyy") MyDate = FromDate Do MyFile = "C:\textlog\" & Format(MyDate,"ddmmyyyy") & ".txt" …

Hi tgif, I think u want a Custimized Page Footer. This is how you do it : [code=vb] ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "New Page Footer " .CenterFooter = "" .RightFooter = "" End With [/code] REgards Veena

Hi, what u actually want..? Search all the fields of all the tables for any one Specific condition...? -Vee

Hi, Yes VAL is a Reserved Word. Instead of CInt use Val() value = Val(sValuex) U may Get Error if Integer declared variables cross 32k REgards Veena

Hi, Check the query in OK button: [code=vb] RS.Open ("Select * from TB_Users Where Name = '" & TXTUserName & "' and Password='" & TXTPassword & "'"), CNN [/code] There is an extra single quote before Where. and Wrap the Text Fields with Single quote.. REgards Veena

Hi, Just Set form's ControlBox = False BorderStyle = 1 the corner "X" will be removed... Regards Veena

Hi, No, u cannot change the Length of each string in that array, U have 2 work arounds : Use a Collection Or Mantain a Seperate Array, which holds Corresponding Lengths of the string Array.. (Both linked with same Index) REgards Veena

Hi Anto_nee, Year(SomeDate) Returns a Numeric value, so, u dont have to wrap it with single quotes.. Check this : rsYear1.Open "select count(ComplaintNo) from tblcomplaint where year(cDate) =" & Year(DTPicker1.Value) , ConSQL, adOpenDynamic, adLockOptimistic REgards Veena

what does that mean..? Post ur Question properly...

Hi, Start with Access (mdb) file. Collect all the necessary info u need to store in db. then u can start designing the database. If this is ok, and if ur DB is huge, u can shift to SQL Server. Regards Veena

Hi, Add a Bracket for date condition.. check this: [code] SELECT distinct room.roomtype, room.description, room.[maximum people allowed],room.[nightly rate] FROM room INNER JOIN link_bookingroom ON room.roomid <> link_bookingroom.roomid INNER JOIN booking ON link_bookingroom.bookingid = booking.bookingid WHERE [B][COLOR=red]([/COLOR][/B]('" + txtStartDate.Text + "' NOT BETWEEN booking.arrivedate AND booking.enddate) AND ('" + txtEndDate.Text + …

Hi, Installing Oracle Client In all the Client Machine is a Must. Instal , Configure Net Connection, Without that, u cannot access Oracle from Server.... This is according to my exprnce, I would like to know if any body has connected to Oracle without OraClient being installed.. REgards Veena

Hi, Check this Code, Write at the end and before the "Loop": Dim TStr As STring [code=vb] TStr = "A" & CStr(ii+1) & ":M" & CStr(ii+1) Range(TStr).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic …

Hi, Write this Code in KeyUp Event of grid control : [code=vb] If KeyCode = vbKeyUp Then msgbox "UpArrow Pressed" ElseIf KeyCode = vbKeyUp Then msgbox "Down Arrow Pressed" End If [/code] REgards Veena

Hi, Can u post what the query is in Oracle.. and what Grouping u have done in CR...? Table /field names..? Grouping should be done in the same order of fields both sides, then u get perfect results... REgards Veena

Hi, I dint get u, U already r appending outside the loop, what u want to do here..? REgards Veena

Hi, Create a new Form and Show the Form in Modal Form.say "frmMsg" on this new form, Place a Label Control and a Command Button With Caption OK. Also Place a Timer Control Set its Interval =5000 (5 secs), In frmMsg write this code in Timer1_Timer Event: [code] Private Sub …

Hi, What is the back end DB...? If SQLServer/Oracle, then u have to pass connection string... REgards Veena

Hi, "Sleep" is a Windows API u need to Declare it. Copy this code and paste it at the Top of ur Form Code window: (or Declare as Public and paste it in .bas Module) [code] Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) [/code] Regards Veena

Hi, After refresh do some move operation like "Data1.RecordSet.MoveLast" and then check the RecordCont, it will display properly.. REgards Veena

Hi, So Why not Trim and Check...? [code] [COLOR=red]Do While Trim(strLineValue) <> ""[/COLOR] [/code] REgards Veena

Hi. [URL="http://vb-helper.com/howto_net_use_vsa.html"]Check This[/URL] Regards Veena

Hi, Write the data to some Text file. and in second exe read from the same text file.. u can also use Winsock Control.. REgards Veena

Hi, Add a Picture box Control on the form and use this code: [code] Picture1.Picture = LoadPicture("C:\Mypict.bmp") [/code] Regards Veena

Hi, Check This: [code] dim TextVar As String Dim NumbVar As Currency Dim DateVar As Date Dim sSQL As String sSQL = "Insert Into MyTable(TextField,NumbFld,DateFld) Values ('" & TextVar & "' , " & NumbVar & ", #" & DateVar & "#) " AConn.Execute sSQL [/code] REgards Veena

Hi, It shud be some thing like this: [code] rsinPers.MoveFirst Do rsinPers.Find "Name='" & M.qBW![Personnel2] & "'" If rsinPers.EOF Exit Do Else xlWksht.Cells(ii, 5).Value = rsinPers![Initials] & Chr(10) & M.qBW![TotalProg2Hrs] End If Loop [/code] Regards Veena

Hi Suneel, Open CD WORKS FINE, BUT Close CD does noty work on all types of CD Readerss. It works only for those CD Readers which has got the functionality to close thru codes. any way u can try this code: declare this at the top of form [code] Private …

Hi, check this: [code] [B]sql = "SELECT T.* FROM thresholdTable T, Configuration C Where C.Configuration = T.Config"[/B] [/code] Regards Veena

Hi, Suneel, Why dont u copy old project and paste it in some other directory and open it, remove unnecessary things from new proj...? Most of the times it wud be, ADO Dll or Office dll's or FSO.. REgards Veena

Hi, Touch screen is nothing but Mouse-Click. Add command buttons on the form with Caption='A', 'B', C and so on. In command click event write this code: [code] text1.text =Text1.Text & command1.Caption [/code] In above code, replace command1 with the name of all the command buttons. u can simplify this, …

Hi, Why use InputBox, for such large Values, Add a TextBox to the form and use it for input. Another way round is to add a TextBox in another Form and show that Form in Modal. Textbox can take 64K. REgards Veena

Hi, Keep a Public Variable To Count the corrct Answers In the beginnig, make Value of that variable =0. And In all the forms add a Command button to goto next page/Form. and in command button write the code to check if the selected option in that form is correct, …

Hi, Must be Problem with the Code. Post ur Code here, we can help u... Regards Veena

Hi, are u trying to change Source Sheet or Destination Sheet...? Regards Veena

Hi, Change in in the first Inner Do Loop: [code] Do Until rsinPers.EOF If rsinPers![Name] = M.qBW![Personnel2] Then xlWksht.Cells(ii, 5).Value = rsinPers![Initials] & Chr(10) & M.qBW![TotalProg2Hrs] rsinPers.MoveNext Loop [/code] REgards Veena