Jx_Man

'in another form [CODE]classname.InsertNewRecord()[/CODE]

stats79,, are u using vb.net or vb6? streamreader is a function in vb.net not in vb6..

@AndreRet : alleybye learn much about date from u, i think ;)

your question is not clear.. i can't understand what you mean exactly but i try to answer it.. you want to manage forms depend on user rules. Use File Menu,,you can disable links on file menu depend on their authority.. After login form, show the main form that contain menu.. …

your procedure navigaterecords() not have a parameter.. so when u call it, your procedure didn't get new value of inc variable. so,, add the parameter on your procedure : [CODE]Public Sub navigaterecords(ByVal inc as Integer) ... End sub[/CODE] when call : [CODE]If inc <> 0 Then inc = 0 navigaterecords(Inc) …

[CODE]me.combobox1.text = 3[/CODE]

just check leap year on monthbox event..so u didn't need to check on yearbox event.

your information is not clear..

control box? u mean title bar? using API files i think..

@Jaseem Ahmed : your code use sql server or access for database? @AndreRet : i think this code using sql server, coz your codes using for access, maybe u missed it :)

[URL="http://www.daniweb.com/forums/thread289679.html"]see this thread[/URL]

what the problem with your code friend?

show how far u trying it.. just post the codes where u have a wrong logic of put a msgbox..

[URL="http://www.daniweb.com/code/snippet217076.html"]see this snippet [/URL] [URL="http://www.daniweb.com/forums/thread90761.html"]see this thread[/URL] [URL="http://www.daniweb.com/forums/thread186332.html"]this thread too[/URL]

make a procedure to select the last number on tran_head and add it with 1..that a autonumber logic..

Try the following codes: Copy [CODE]Clipboard.Clear Clipboard.SetText ActiveForm.ActiveControl.SelText, vbCFText[/CODE] Cut [CODE]Clipboard.Clear Clipboard.SetText ActiveForm.ActiveControl.SelText, vbCFText ActiveForm.ActiveControl.SelText = "" [/CODE] Paste [CODE]If Clipboard.GetFormat(vbCFText) Then ActiveForm.ActiveControl.SelText = Clipboard.GetText(vbCFText) End If[/CODE]

check your module connection.if this an be running good, you can't connect with database.so, see the thread which showing by agrothe.

add this code to module to connected sqlserver with vb.net: [code]Imports System.Data Imports System.Data.SqlClient Module Koneksi Public conn As SqlConnection Public Function GetConnect() conn = New SqlConnection("server = MyServerName;database = MyDatabaseName;Trusted_Connection = yes") Return conn End Function End Module[/code] add this code to button event click : [code]Private Sub btnAdd_Click(ByVal …

[QUOTE]txtAccountHolder.Text = myDataReader.Item("First_Name&" - " &Surname")tostring] [/QUOTE] chage it with : [CODE]txtAccount_Name.Text = myDataReader.Item("First_Name").ToString & "-" & myDataReader.Item("Surname").ToString [/CODE]

do like codeorder codes..and add timer to make it moving like an animation.

try this : [code]For Each controlx In Form3.Controls If TypeOf controlx Is TextBox Then controlx.Text = "" Next controlx[/code]

so you want the item remove and when it remove the price add in text box..

i m with u selvaganapathy, Select Max of Company_id , split it between character and number then increment number with 1.

>> process of creating - Add new Item -> Module -> OK - Just put code that u want to access from any form. >> using module.. - call function or procedure or anything you have declare in your module

Good Info :)

try this following code : [code=vb]Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal …

This following code to connect vb 6 with access place this code in module : [code=vb]Global Conn As ADODB.Connection Global rs As ADODB.Recordset Sub Access_Connector() Set Conn = New ADODB.Connection Conn.Provider = "microsoft.jet.oledb.4.0" Conn.CursorLocation = adUseClient Conn.Open App.Path & "\SIS.mdb" End Sub [/code]

window still opened (i mean your program is not currently closed), so when you try to delete it error came out cause picture box still opened it. thats my guesting.

end

maybe using text file to save setting...

try this link... [URL="http://www.softpedia.com/progDownload/VBto-Converter-Download-21217.html"]http://www.softpedia.com/progDownload/VBto-Converter-Download-21217.html[/URL]

just put your code in function method. this an example : [code=vb] Public Function GetSpecialFolder(ByVal mFolder As Environment.SpecialFolder) As String GetSpecialFolder = Environment.GetFolderPath(mFolder) End Function Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = GetSpecialFolder(Environment.SpecialFolder.System) End Sub[/code]

i was answer your question in you newer thread.

show us your effort :)

install .net framework first on client pc

post your codes friend..we will fix it..

try this following code : [code=vb]Private Const SND_APPLICATION = &H80 ' look for application specific association Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier Private Const SND_ASYNC = &H1 ' play asynchronously Private …

what data format??specify more the problem friend :)

what a piece code :)

[code=vb.net]Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged textbox1.Text = ComboBox1.SelectedItem End Sub[/code]

piracy its bad..its same like you still money without do anything...and its happened in my country...so many piracy here.

1. Start Microsoft Visual Studio .NET 2. On the File menu, point to New, and then click Project 3. Under Project Types, click Visual Basic Projects 4. Under Templates, click Windows Application. Form1 is created. 5. Change Form1's Properties: .Text="Click to Start", .FormBorderStyle="FixedToolWindow", .Size="192,64" 6. Place a new Label control …

See this link : - [URL="http://vb-helper.com/howto_net_dollars_to_words2.html"]http://vb-helper.com/howto_net_dollars_to_words2.html[/URL]

try to use Search Facility in this forum and search for it with searching key is "Final Project". you'll find many similar thread. there are many suggestion about final topic from many members.

You must to specify the character in ascci that contains numbers only Try This following code : [CODE]Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then e.Handled = True End If If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then e.Handled …

i think its textbox

specify your table name... Use join to select data.

use format(MoneyValue,"currency")

in properties -> passwordchar = *

Data clustering with clustering method (k-mean,etc)