If there are any textboxes in the form (which I'm sure there are), don't connect them to the database. Then if there is a button that adds the data into the database, then get the data from the textboxes then add them to the database.
I see. Please take this into consideration. Let's say a frog is in front of a car going left. The moment the frog's right touches the car's left, then a collision should already occur. So the code should say that frogright > left , right? Theoretically, the same goes for top, bottom and right of the frog and the car.
What version of MS Access is it? Correct me if I'm wrong, but I think that VB6 doesn't recognize Access database later than 2000. Meaning Access 02/03 cannot be used. Dunno about the other versions of VB.
Hey all. I'm not exactly new but I'm still a newbie.:$ I'm from the Philippines. I just finished studying VB6 last semester and since then, I try to make a variety projects just to improve my skills, most especially in using API functions. So far, I enjoy staying here and helping those with simple problems. Good day to you all.
There are 10 different results. The frequency array stores the frequency of each result. For example, if the value of frequency(1) is 5, it means that out of 40 students, 5 gave a score of 1. In the code, for every student that gave a score of 1, frequency(1) will increase by one and the same for the others.
Ok, so you have made the equals into a label as well and it has an index of 4? Let's look at your lblsign_click Sub. It assigns a value to first, then deletes the text in txtdisplay, then assigns the sign which could be "=" and this will make an error later on. Next, txtdisplay.text will be equal to the value of second, to which you have not assigned a variable. If you allow me to correct part of the code, I'm going to add 2 new boolean variables called check which will check if one of the variables have already been assigned a value and checktext which will decide when to clear the textbox during continuous arithmetic processes. So the editions are:
Dim check as Boolean
Dim checktext as Boolean
Private Sub lblnumber_Click(Index As Integer)
If checktext = True Then
txtdisplay.Text = ""
checktext = False
End If
If txtdisplay.Text = "" Then
txtdisplay.Text = lblnumber(Index).Caption
Else
txtdisplay.Text = txtdisplay.Text & lblnumber(Index).Caption
End If
End Sub
Private Sub lblsign_Click(Index As Integer)
If check = False Then
second = txtdisplay.Text
sign = Trim(lblsign(Index).Caption)
If Index < 4 Then check = True
Else
first = second
second = txtdisplay.Text
txtdisplay.Text = ""
If sign = "-" Then
txtdisplay.Text = first - second
ElseIf sign = "+" Then
txtdisplay.Text = first + second
ElseIf sign = "*" Then
txtdisplay.Text = first * second
ElseIf sign = "/" Then
txtdisplay.Text = first / second
End If
second = txtdisplay.Text
If Index < …
Whoops! What's gotten into me? My memory must be fading, or maybe I'm just too sleepy right now. Once again, everyone, I'm sorry for double posts. I do hope this will be the last time.
Er, wrong solution. It should be that in the lblsign_Click sub, it must be sign = Trim(lblsign(Index).caption) . Next, as I said before, it should be second = txtDisplay.text and delete the sign = lblsign(Index).caption in the cmdEq_Click sub.
so How do i asssaign the numbers to first and second? and can you help me with the cmdEq button. it's not working properly.
Like I said in my second post, I didn't see that you have already assigned numbers for your variables and that you reversed the assigning process to second. Now, however, I figured out another problem. If you'd check the captions of your lblsign's, spaces are included, meaning that for the "+" label, the caption is not "+" but " +" and the same for the others. Either you change the captions such that spaces are deleted, or you could change your assignment codes. My best suggestion is that you use Trim$ function to omit any space included. In short, use these:
In the lblsign_Click sub,
first = Trim$(txtDisplay.Text)
In the cmdEq_Click sub,
second = Trim$(txtDisplay.Text)
The other solution is to delete the spaces in the captions of your lblsign's and change the alignment property to 2-Center so that the signs would still appear at the center.
And I repeat!!! The txtDisplay.Text = second should be second = txtDisplay.Text should you use the latter solution.
Sorry for the double post. I didn't see the assigning of the variables the first time. Please look in the sub Eq_Click() , txtdisplay.Text = second must be second = txtdisplay.Text . You reversed the assignment.
You didn't assign the numbers to first and second. And in Private Sub cmdEq_Click() , you can remove the sign = lblsign(Index).caption because it is not necessary and if not removed will alter the results.
Yes, I know. I tried creating a project with a form named frmMenu and placed the code. It didn't work. I replaced frmMenu_KeyPress with Form_KeyPress and it worked. Just sharing my experience.:)
Correct me if I'm wrong. The user enters a number and the app is supposed to add each odd number between 0 and the input? Your program, on the other hand, adds each even number less than or equal to the input then adds 1 to the total sum. To correct this, one way is that intcount = 1 should be lngsum = 1
"Step -1" means that for every loop, the integer 'i' will be decreased by 1 until such time that 'i' will be equal to 2.
For MyStr = Trim$(Replace(MyStr, Space(i), Space(1))) ... It means that all Space(i) string within the value of MyStr will be replaced by the string Space(1) and then the new string will be assigned to MyStr. Unless "Space" is a string array (which I don't know if possible), the code doesn't make sense at all because all the code will do is replace all multiple space characters into a single space characters. :?:
I'm almost finished with a task organizer project. Whenever a task entered is due, the app creates an alert form at the lower right corner of the screen. How can I play an alert tone whenever a form is created? I wanted it to be like the new email alert in Yahoo Messenger. Thank you.:-|
If rst.Recordset.Recordcount > 0 then
Do While not rst.Recordset.Recordcount = 0
rst.Recordset.Delete
Loop
Else
MsgBox "No Data in database."
End if
For i = 1 to 8 step 1
If txtAgenda(i).visible = true AND txtAgenda(i).Text <> "" then
rst.Recordset.AddNew
rst.Recordset.Fields(0).value = i
rst.Recordset.Fields(1).value = txtAgenda(i).Text
rst.Recordset.update
End if
Next i
