AUGXIS

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

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

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.

[code=vb]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 = "" lenstr = Len(Me.Caption) strA = Left(Me.Caption, 1) strB = Right(Me.Caption, lenstr - 1) strC = strB & strA …

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

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 then place it on the textbox but you have do it in …

hi. you can left command [code] 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 rs2.open"select * from table2" end if [/code]

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

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

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. i assume nonosc and osc are only the condtions if Release.Enabled = True [code] Dim rst As New Recordset Dim sql As String If Release.Enabled = True Then If nonosc.Enabled = True Then sql = "update Passport_Release_Information_N set Ename2='" & taker.Text & "' ,Any_ID1='" & takerid.Text & "' ,E_ID1 …

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

try this one [code] Dim ChangeTime ChangeTime= "4:00 AM" Time= ChangeTime [/code]

can you try this one you can set the multiline property of text2 to True [code] Dim strx As String Dim cntr As Integer Dim xstart As Integer Dim sellen As Integer Dim num As Integer Dim storex(0 To 20) As Variant Dim xlen As Integer Dim xnewstr As String …

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 Data1.Recordset.Fileds(“String1”) and Data1.Recordset.Fileds(“String2”) are both null. [code] Data1.Recordset.Fileds(“ResultString”) = string1 + String2 [/code]

hi. you can use shell command.try this [code] Shell ("C:\\Program Files\\Microsoft Office\\OFFICE10\\MSACCESS.EXE ""D:\db1\database\db1.mdb") [/code]

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. you can save the deleted files on a different table, then call the data on form archive

try this one [code] Select * from accounts where emp_code='" & str1 & "' AND emp_name= '" & str2 & "', conn [/code]

you can try this. i dont know how to use command prompt for this, so i hope this is ok. [code] Private Sub cmd_changedate_Click() Dim ChangeDate ChangeDate = "October" & " " & 8 & ", " & 2008 Date = ChangeDate End Sub Private Sub cmd_changetime_Click() Dim ChangeTime ChangeTime …

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

hi. try this. [code] 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 cdate('" & doj.text & "') [/code]

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

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?

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 [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 + "\mytxtfile.txt", ForReading, False) While Not objRead.AtEndOfStream strText = objRead.ReadLine For xwords = 1 To Len(strText) If InStr(xwords, strText, ",") …

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... [code] MAPISession1.SignOn With MAPIMessages1 .SessionID = MAPISession1.SessionID .Compose .RecipAddress = "myemail@email.com" .MsgSubject = "For Your Info" .MsgNoteText = "HELP" .Send End …

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 [code] rsArmaster.Open "select sum(balance) as credit from ArMaster where shippercode= '" & …

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

If rs.State = adStateOpen Then rs.Close gSql = "Select name from Customer where telephone='" & txtphone.Text & "'" rs.Open gSql, CON, adOpenKeyset, adLockOptimistic, 1 txtname.Text = rs.fields("name").value End Sub Private Sub form_initialize() Set CON = New ADODB.Connection 'set the database connection CON.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\test.mdb" 'connection …

help me.i woul like to make my access 2003 database be network database.im using vb6 as front end.thanks

I have a program created in vb 6 and has a backend of ms access 2003 and it only runs on a single pc. i want to install that program to more pc but i don't know how to configure my database so that all pc can read/wrtite on it.please …

hello. i'm searching for records of an specific item with it's unique item code but it seems that i don't see some of transactions after transferring it to a flexgrid. i'm using the movefirst movenext method so i could add it to the flexgrid. i'm using vb 6. thanks