Posts by abu taher

hey buddy,

ur problem seems to be more on related to IE itself and probably needs a repair.
If u r in US or Canada , then u can call me at 917-832-8264.
I provide free technical help after my work hours as it is my hobby.

regrads;

The Pc guy

you write the same thing in this thread and this. so don't repeat.

some thing you can try:
Try starting in safe mode

Normally, when you start your computer, Windows loads a huge amount of data into your computer’s memory. In safe mode, however, you only have access to basic files and drivers (for example, mouse, monitor, keyboard, default system services, and no network connections). Therefore, the processor is only running at a fraction of its capacity.

If your system is significantly faster in safe mode, one or more applications or drivers may be causing the slowdown in normal mode. If you’ve recently added new software or a new device, try uninstalling it or removing the hardware to see if your computer speeds up.

you can see this

I think you start this thread before.....................this is twice.....

did you use any recovery software? some software are really helpful. some free version you will get in internet. I think:confused:you will recover 70% data.

please try this.

Dim txtsid As String
    Dim Founder As Boolean

    txtsid = UCase(InputBox("Enter The Staff ID:", "Staff Search"))
    If Len(txtsid) > 0 Then
        'add this line
        Data1.Refresh
        Data1.Recordset.MoveFirst
        Founder = False
    End If

    Do While (Not Founder) And (Not Data1.Recordset.EOF)
        'u can add UCASE i just removed it for my query
If UCase(Data1.Recordset.Fields("staffid").Value) = txtsid Then
 Founder = True
 Exit Sub
End If
Data1.Recordset.MoveNext
Loop

    If Not Founder Then
        MsgBox "Unable to find the required item", , "Not Found"
        Data1.Recordset.MoveLast
    End If

You could use a custom format

0."00"

But I can't really understand why you would want to put two zeros after your decimal point while they aren't correct.

I make a salary sheet so I want a round figure without decimal. thanks.

Only a simple Datareport in VB.

do you know how to make data report? if yes then what kind of monthly report you want?

try any search engine.

if I write =sum(a1/b1) and like: (5/2) the result show 2.50. now I want the result will show 3.00 not 3 or not 2.5. Is it possible?

thanks . but you did the same thing. at 1st I did it manually by your attached picture. now you did it with formula. thanks again. but I want without decimal. is it possible?

as your suggestion I tried it. I write 20.60 and and it show 20.60. If I put decimal point = 0 then it show 21.

not like it. here it show round figure. like : 20,21,22. but I want 20.00, 21.00, 22.00. I mean it show with decimal.

sorry for that. I didn't read his topic properly.

you can buy it. but I think cd or dvd is better for it. cause some time hard drive will crash. but if you properly save your cd or dvd then it is safety then hard drive.

try this
http://www.wikihow.com/Backup-Your-Computer-in-Windows-Vista

http://www.vistax64.com/tutorials/99709-backup-complete-computer.html

http://www.vista4beginners.com/How-to-backup-your-data

or u can use google or other search engine

use any file recovery software.

but now it work with node.text. only change case.

nice . but help me again. it work with introduction. but what i write for adding data or editing data. I write like

select case node.child.text

but not work. please......

thanks. but I said not like it. I said

txtDetails.Text = "Contents of " & Node.Text

here txtdetails show contents of and the node name. but If write code like

txtDetails.Text = "Contents of "

then all node are show contents of. but I want all node show different text what I want to show.

I checked it. but all capacitors are ok.

txtDetails.Text = "Contents of " & Node.Text

what I write for different sentence. like If I click on add then show some text , if I click on edit then show other text.

How to make Database of Super market in vb and connect to access

I think nobody can answer it. how you make it, who know it. at 1st start and then submit problem. then we can help you.

try this:)

properly change the textbox and button name as I said. look clearly. button name commandbutton1 and textbox name textbox1 and textbox2.

properly change the textbox and button name as I said. look clearly.

try this

While Not rs.EOF() ' checking end of file
MSFlexGrid.AddItem rs.Fields("name") & vbTab & rs.Fields("roll")
rs.MoveNext
Wend

connect flexgrid with the database by adodc, dao, data control or other what you use.

I use office 2003. but in accounting there is no function like this.

how you save your data?

I attach my motherboard picture. can you tell me which capacitor?

start a new thread with code snippet. like attachment.

try as vb5prgrmr said. you can check this. a example for you.

>> iwant to save a data that came from my database and display it from flexgrid

I confused:confused:here you want flexgrid show your data from the database? if it is. then connect the flexgrid with database.

welcome here. try this. I think this solve your problem.

Private Sub DataGrid1_Click()
text1.text = DataGrid1.Columns(1)
text2.text = DataGrid1.Columns(2)
text3.text = DataGrid1.Columns(3)
End Sub

You can try this. in your code you use huge code.

in this location:
C:\Documents and Settings\All Users\Application Data\Kaspersky Lab\AVP8\Data
kaspersky store 12 GB .tmp file like: av11.tmp, av23.tmp. when I try to delete it, it show a massage:
"cannot delete........make sure the disk is not full or write protected and that the file is not currently use."
how can I delete it? If I delete these any problem occur? It take a huge space like 12 gB. so its a problem.

I think it is difficult to change for me. I am not expert on it. what you suggest me, I need to go repair it? another thing I don't tress this capacitor what you said.

you didn't say what your problem. try this to check whether given number is a Prime Number

Option Explicit
 
Public Function IsPrime(ByVal n As Long) As Boolean
    Dim I As Long
    IsPrime = False
    If n <> 2 And (n And 1) = 0 Then Exit Function 'test if div 2
    If n <> 3 And n Mod 3 = 0 Then Exit Function 'test if div 3
    For I = 6 To Sqr(n) Step 6
        If n Mod (I - 1) = 0 Then Exit Function
        If n Mod (I + 1) = 0 Then Exit Function
    Next I
    IsPrime = True
End Function

if calculate any thing like: 5/2 then the result show 2.5. here I want the result show is 3. I mean if it is over .5 then it show the ground figure not show decimal. if is 2.4 then it show 2. please any body help me. i did it like 2 by change the format but if i want to show it like 2.00 (with decimal place) then it not show.

but not solve it. any more Idea for it? Please ...............

What are they going to learn turning in your program? And don't tell me "they use it for a pattern for their own code" -- you know that doesn't happen much. And even so, we help people write their own code, we don't give handouts. Handouts they can get from Google.

After 600+ posts you should know all this.

I only try this. but I don't know................what I did for my reputation. thanks.

u can try this

select * from tblstudentnumber Where stud_age = text1.text

in parameters tab you need to adjust this
name = pram1
data type = advarwchar
host data type = string (vt_bstr)
in print button write this

Load DataEnvironment1
      With DataEnvironment1
      If .rsCommand1.State <> 0 Then .rsCommand1.Close
      .Command1 text1.Text
      End With
      datareport1.Show

its not clear. can I do this project other way?

try this. project>component>ms flexgrid
then put it into on your form. in properties tab you can connect the flexgrid with database for show the data.

please check the attach file. here I don't understand the .mhf file. how it make or any alternative way to do this project. please any body help me.

I think its a red rabbit. nice

I want to make a help file. but I want to do it without vb tools. I want to make it, use another tools. can any body tell me any software to make this kind of help file.

if you convert 10 to 'ten' then try this
No declarations at all.
1. Create a form and add two textboxes; TextBox1 and TextBox2
2. Add a command button; CommandButton1
3. Copy the code below to the code window.
4. Run the program, enter the number in TextBox1 and click CommandButton1...

Function Getword(strNumber)
Dim strtemp As String
Dim x, y, z As Integer
x = Val(Mid$(strNumber, 1, 1))
y = Val(Mid$(strNumber, 2, 1))
z = Val(Mid$(strNumber, 3, 1))

If Len(strNumber) = 1 Then
        strtemp = strtemp + Whole(Val(strNumber))
        GoTo 20
ElseIf Len(strNumber) = 2 Then
        If x = 1 And y = 0 Then
                strtemp = strtemp + " Ten"
        ElseIf x = 1 And y = 1 Then
                strtemp = strtemp + " Eleven"
                GoTo 20
        ElseIf x = 1 And y = 2 Then
                strtemp = strtemp + " Twelve"
                GoTo 20
        ElseIf x = 1 And y > 2 Then
                strtemp = strtemp + Whole2(y) + "een"
                GoTo 20
        ElseIf x = 0 And y > 0 Then
                strtemp = strtemp + Whole(y)
                GoTo 20
        ElseIf x = 0 And y = 0 Then
                strtemp = ""
                GoTo 20
        Else
                strtemp = Whole2(x) + "y"
                If y > 0 Then strtemp = strtemp + Whole(y)
                GoTo 20
        End If
        
ElseIf Len(strNumber) = 3 Then

        If x > 0 Then strtemp = strtemp + Whole(x) + " Hundred"
        If y = 1 And z > 2 Then
               strtemp = strtemp + Whole2(z) …

try this

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

hi, please help me on how to use the textfield_change can you give me an example on this so that i will know how to use this..thanks in advance...hoping for your positive responds....

what you mean by textfield_change? :confused: is it changing event of a text control? or other? please more details.