Posts by abu taher

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.

use a timer control for spalsh screen. if u need to make a transparent form then try this.

I think You can use. like 4.5 for xp.

try this

Private Sub cmdStart_Click()
While ProgressBar1.Value < ProgressBar1.Max
Do
ProgressBar1.Value = ProgressBar1.Value + 1
text1.Text = (ProgressBar1.Value / ProgressBar1.Max) * 100 & "%"
Loop
Wend
End Sub

use 2 instead 3. like

s = Space(2)

try this

Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
s = Space(3) '3 mean how many space....you can change it
Label1.Caption = a + s + b
End Sub

label1.caption = text1.text + text2.text

I give you a very simple code. you can modify it as your requirement.

if you have no question about this topic then please mark it solve.

You can try this.

then mark it solve. and how u solve it, post here. then others can understand it

There is no built in method for this....you would have to write the code yourself. I agree with vb5prgrmr.
There have been a number of posts about screenshots....try searching there first.you can see this link

ok. plz mark it as solve.

what kind of error occurred? more details.

what u want to do? plz details.

>>how to connect Microsoft access
I didn't read ur all code. on ur question I want to say. u can do it many way. one of the way is, simple put the data control in ur form. then in properties tab connect the database from database name. and then select the table from record source (in properties tab). u can follow what sidnei said. u can do it many way what depend on ur work.

plz press 'del' or f1/f2 button after starting the pc to go to bois. another think do u know command prompt? ok no necessary. if u insert xp cd then u see the partition. other way insert a 98 cd. and then go ahead and then write like:

'for enter in to c drive
c:
'see in the c drive
dir

Thanks. How do I confirm hard drive detection?

check it in bios. another thing: check partition with boot able disk.

plz comfirm the hard drive dedection .if hard drive dedect install a fresh windows. so 1stly u need to confirm the hard drive is ok with partition.

not repair. plz try to install a fresh windows again. I think then solve ur problem.

you can check this.

plz mark it solve

try this

With CrystalReport1
        .ReportFileName = App.Path & "\YourRPT.rpt"
        .Connect = "DSN=test;UID=sapest;PWD=sapest;DSQ=Sage;"
        .DiscardSavedData = True
        .RetrieveDataFiles
        .ReportSource = 0
        .SQLQuery = "Select * from yourtable"
        .ReportTitle = "Report Title"
        .Destination = crptToWindow
        .PrintFileType = crptCrystal
        .WindowState = crptMaximized
        .WindowMaxButton = False
        .WindowMinButton = False
 'if you want to filter report based on some parameter fields, you can use SelectionFormula property
        .SelectionFormula = "{table.field} =" & Trim(Txt.Text) & ""      
        .Action = 1
    End With

you can do one thing. you can check your startup program what was start with you os. go run and type msconfig. click startup tab. I think u can see it here. or if it run after disappear you can find out in process tab of windows task manager.

try this

Dim xlApp As Excel.Application
Dim xlWB1 As Excel.Workbook

Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlWB1 = xlApp.Workbooks.Open("L:\FormsNRegisters\Accounts\Bill_Forms.xls")

I don't know more. But I think it not possible or easy to find out.

1st mark it solve. and then start a new thread plz.

try to see it. i think it can help you.

plz check it. If more question plz ask.

ok. what location you give in your project. is it same as what your said?

you need to refresh your data control. like:

data1.refresh
msflexgrid.refresh

etc.

plz more clear.

try it with search option.

Set ri = deSub.conn.Execute("SELECT clientnumber FROM individualsubs WHERE firstname = '" & txtfname.Text & "' AND surname = '" & txtsurname.Text & "'")

why you use this. plz explain.

plz try it.

if the file in same folder

(App.Path & "\db1.mdb")

like this

form1.visible = false
image1.visible = false
command1.visible = false

not like that. what will happen in click event that write in module. plz check it.

if you want only 4 digit will type in text box then adjust the properties of text box. max length = 4

its not php. it made by vb6.

have you any problem more? if not please solve it.

plz check it with more.

add a dataenvironment and a datareport. connect the database with dataenvironment and connect the datareport with dataenvironment. and then design the datareport.

install service pack 6 for vb6.

did you connect it by properties or code? try to use code for better result.

just click on the mark thread as solved. below of the page blue font.

in from1

Private Sub Command1_Click()
Form2.Label1.Caption = "Name"
Form2.Show
End Sub

try to find out it in web by size and details option.

try this

Dim f1 As New Form1

  '  Dim f2 As New Form1 'u must have this form in project
    

      
Private Sub Command1_Click()
f1.Show
    '  f2.Show
End Sub

adjust the alignment, if it has this property.