check first the state of your recordet. if its open then close it first
then open it again.

If rs.State = adStateOpen Then rs.Close
rs.open"Select * "

hi. just select the field you're gonna use.

rs.open"select emp_name, emp_address from tbl_emp"
text1=rs.fields("emp_name")

hi. you're transferring all the data to text1 and you also clear it when you uncheck a button.
so its better if you uncheck a checkbox, just clear the text1 then just get all the value of checkboxes...

hi. you can close the database after saving then open it again upon loading of the new form.

hi. you can left command

If Left(Text1.Text, 2) = "OS" Then
rs.open"select * from table"
Elseif Left(Text1.Text, 2) = "TP" Then
rs1.open"select * from table1"
else
...

have you tried this one http://www.connectionstrings.com/

hi. just search their entry using a query and if is not found then just add it as a new entry.

hi. you try to make a query first.say

rs.Open "Select appdate, name from tablename where appdate between '" & date1 & "' AND '" & date2 & "'"

then set the record source of the report

Set...

hi. you can write the query first. then i think you have to set the record source of your report
to the query you made.

hi. i think it will only grow when the data transfers to the object is longer than the object's current width. it will automatically adjust as the data or text gets longer.

hi. check first if youre recordset is open then try closing it before opening it again. and for the checkboxes i think its its if check1.value = 1.

hi. can you please post your code. but anyways if you're in a hurry you can just put on error resume next on your code so you won't get an error message for the mean time.but still you need to figure...

hi. i assume nonosc and osc are only the condtions if Release.Enabled = True

Dim rst As New Recordset
Dim sql As String

If Release.Enabled = True Then
If nonosc.Enabled = True Then
...

hi. are you using textbox? and are they bound?

hi. you can use shell command.try this

Shell ("C:\\Program Files\\Microsoft Office\\OFFICE10\\MSACCESS.EXE ""D:\db1\database\db1.mdb")

hi. you can put your database in a server then share it and on your program you just have to specify the path of your database. then you can now install your program on every pc.

hi. i think it is much better that you will use the values of the string1 and string2 for the value of Data1.Recordset.Fileds(“ResultString”). You have not yet save any the data so your values for...

hi. you can save the deleted files on a different table, then call the data on form archive

on click event of the grid try this

Text1.Text = grid.TextMatrix(grid.RowSel, grid.ColSel)

you use the grid property rowsel and colsel to specify the cell you click on then pass the value to a textbox.

you can try this. i dont know how to use command prompt for this, so i hope this is ok.



Private Sub cmd_changedate_Click()

Dim ChangeDate

ChangeDate = "October" & " " & 8 & ", " & 2008...

can you try this one
you can set the multiline property of text2 to True


Dim strx As String
Dim cntr As Integer
Dim xstart As Integer
Dim sellen As Integer
Dim num As Integer
Dim storex(0...

try this one

Select * from accounts where emp_code='" & str1 & "' AND emp_name= '" & str2 & "', conn

hi. try this.


db.execute"select * from travel where doj between #" & doj.text &"# AND #" & doj1.text
& "#

db.execute"select * from travel where doj between cdate('" & doj.text & "') AND...

have you try changing your paper size to accomodate all 40 fields?

As always thanks for the help.

hi guys,

i have manage to copy and paste files (excel, word, txt) in specified locations, but when i used it to copy exe files, the exe files are not being copied to specified locations.

what database are you using?

check this one

http://www.connectionstrings.com

try this one



Dim ChangeTime

ChangeTime= "4:00 AM"
Time= ChangeTime

hi. just wanna ask why don't you just import your foxpro tables to access?

you should make your program into an exe
then under the microsoft visual studio tools there's a package and deployment wizard that can guide you

hi, can you try this code


Dim strText As String
Dim strText1 As String
Dim xwords As Integer
Dim xwords1 As Integer
Dim cPOs, cPos1

Set objRead = objAddress.OpenTextFile(App.Path +...

hi guys,

i get an error message "554 message is not rfc compliant" while i was trying to send an email. can you please help me with my code...


MAPISession1.SignOn
With MAPIMessages1
...

my bad. thanks for the help. just too stupid of me not to see that part.

hi guys,

i was trying to sum up all the balances of clients to know which of them has reach their credit limit but my codes are not working. It shows an error and highlights on this code

...

/please visit this site http://www.connectionstrings.com/default.aspx?

Dim strA As String
Dim strB As String
Dim strC As String
Dim lenstr As Integer
Dim I As Integer

lenstr = 0
strA = ""
strB = ""
strC = ""

why don't you try to disable all timer before you unload the form

Text1.Text = Format$(CDbl(Format$(Text1.Text, "#,###,##0.00")) + CDbl(Format$(Text2.Text, "#,###,##0.00")), "$###,##0.00")