Visual Basic 4 / 5 / 6 Forum

How do I generate non repeating number randomly? Private Sub cmdGetRandomNumber_Click() Dim intResult As Integer '// Initializes the random-number generator, otherwise each time you run your '// program, the sequence of numbers will be the same Randomize intResult = Int((10 * Rnd) + 1) '// Generate random value...

database-MS access language-VB6.0 i have attached the error screen.. database at server system.. on my desktop application i given database path at server and LAN connected to all PC.. if i opened the app on one PC and same time if i opening on different PC its showing error and app not opening same error scree i have attached. kindly...

Good Day to you all, I have an application where i want to limit a user's input to the textbox. What i want is that they wont exceed the textbox width and when that textbox is full it will automatically go to the next textbox. Im using Visual Basic 6.0. Thanks for the help.

Dear experts, I am a beginner of MS Access and seeking for help on how I could sort out the issue of deleting all records in a field by using a button with underlying VBA codes. I have a table that I use as a subform... below is the subform table layout. ProductID Category Type Description

hI, would you like to help my problem, I'm a new programmer and I had encounter an error in my new program. Compile Error : Method or data member not found I'm using vb6 and my database is access. Here's my code that i'm using Private Sub Form_Load() BSE1.InitSubClassing

i have an application that has a list of printers to print, using a class module. my problem is when you print many times on different printers. it only prints on the first printer you choose even though i chose different printers. in order to print to another printer i have to close the application and choose another printer. its like its setting...

Please I would appreciate if you can help me with the correct code to countdown characters left in a TextBox. Here is my code but doesn't work on real time, I mean, when I type in TxtBox2. TextBox3 is where I put the counter. TextBox2 is where it's the text. // Private Sub TextBox3_Change() Me.TextBox3 = 250 - Len(Me.TextBox2.Text) & "...

Hi there I am a novice on microsoft access 2007 VBA and would like to seek advise/help from anyone that knows. I have two tables... Main form table (use for my data entry) consisting fields: - QuoteID (autonumber) - SalesPerson - Date

It's urgent please help. It's deadline is tomorrow morning, please help. I have a form. The following controls are used in this form... • Rich Text-box • 4 Buttons Bold Italic Red Blue

I'm building a vb6 application and I need to run it on a LAN network on Windows XP or newer. So far, I've made an algorithm to make and manage databases (Microsoft JET 4.0 databases .mdb) and I can normally use them while on a network using this connection string: Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data...

i want to send 2 line text for printing with olivetti pr4 sl slip printer connected to com1 port. i use vb6 . sorry for my bad english ;Please help... Thanks !

how to create a capslock command button

Private Sub txtCity_GotFocus() sForText = "txtCity" End Sub Private Sub txtCity_LostFocus() If txtCity = "" Then picMsgBox.Visible = True picMsgBox.Top = 600 picMsgBox.Left = 1560 txtMyMSG = ""

Hi, Good day! I would like to ask for a code. Im doing a Daily Time Record system in VB 6.0 the problem is when i time in on the next day, it's debugging. it wont add new record since it has the same employee number. i need to add new data on new date. how is it possible? Thanks in advance!

Hi all i have text1.text change every 10 m/s like this 0.555kg0.566kg0.590kg0.00 and after 10m/s 55kg0.670kg0.590kg0.00 kg0.605kg0.6155kg0.00 How can i make text2.text = the forth characters after any kg like this 0.566

I have created 1 form. and I want to put image as a icon of that form into the form in vb.net How can I do this? I have an image with ".png" extension which I want to put, and I have used the "ICON" property of the form to put my image into the form, but in this property, we can use only the files which have the ".ico" extension. I changed...

I downloaded a program and in the program, the following declaration exists: Dim p(1 To 5,1 To 6) As Integer For i = 1 To 5 For j= 1 To 5 if p(i,j) = 1 Then 'action starts here End If Next Next The question is, how would the program do the manipulation so that p(i,k) becomes one?

i have a code that get, set, save and close an excel document. my problem is when i have other excel open, all of them closes here is my current code which is not mine, i copied it from some one else. Private Sub Command1_Click() Dim xlApp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet

Hi, I am trying to create this software sales program for class. This is my first programming course. I cannot get my program to calculate correctly. What am i doing wrong ? Public Class Form1 Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click 'This application should calculate and...

It's urgent please help! I have created the small notepad. How can I open Page Setup dialogbox in vb.net (Visual Studio 2008)? & How can I open Print dialogbox? I mean how can I create the "Page Setup" & "Print" options of the file menu of notepad in vb.net?

It's urgent please help! I want to create the "Save" option for the small Notepad(in vb.net) I have created this as follows... If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, RichTextBox1.Text, True)

I have created the login form in vb.net In this form there are 2 labels : Username & Password and 2 Text-boxes for enter the username and password and 1 button "Login" I have created the ms access database named "Project.mdb" and in this database, I have created 1 table named "UserAccount" and it's fields are "ID", "UserName" & "Password" ...

I have an Excel 2010 workbook which opens to full screen. The problem is that if you minimize the application, it shows the ribbon and formula bar. How would I go about either: Disabling the application min / max buttons (I don't this this is wise). Reinstating the fullscreen feature if the application is minimized.

Hi, I'm doing a project in vb6 i have a data where when i search it should give multiple answers in combo box. example i have a debtor code each debtor code as more than one addresses when i search in one debtor code how can i get multiple addresses in the combo box. my search engine command as follows Private Sub Command2_Click()...