Search results

Hi all, in my tables i have decimal values with comma but when i try to make some operations with vba code, i get a error because the comma. i have this code to substitute the value but if the value is 0,612 for example, my pe variable gets the value 612. i already try with double but i get...

did you saw my P.S. ?

try this, Set rs = New ADODB.Recordset rs.Open "SELECT * FROM " & QryName, cn P.S. you can put here your query without concatnation?

strSQL = " SELECT * FROM " & QryName 'Debug.Print strSQL Set rs = New ADODB.Recordset rs.Open strSQL, cn rs.movelast debug.print rs.recordcount what you get with this code?

asis razul, i think i´m wrong in my last post, you don´t need declare the variables, try the code above but can you put here the output of your first query. SELECT PIMSADM_MHMDS_OPATT_E.PTID AS OPATT, PIMSADM_MHMDS_OPATT_E.EVENTDATE, Left([EVENTDATE],2) & Mid([EVENTDATE],3,3) &...

tks for your replay, even i didn´t work for my specific aim( because some threads that i saw it´s for when the forms open ( on timer) and i want just when the user press a button, the label get intermitent while it´s run the code that it´s inside sub of this button) but i get some advices and i...

i´m not sure but try this Dim dfini As String Dim mfini As String Dim yfini As String Dim dtdate As Date dini = Mid([EVENTDATE], 1, 2) mini = Mid([EVENTDATE], 4, 2) yini = Mid([EVENTDATE], 7, 4) dtdate = mini & " / " & dini & " / " & yini SELECT PIMSADM_MHMDS_OPATT_E.PTID AS OPATT...

before you set rs= nothing you have to get tha values... Set rs = db.OpenRecordset("SELECT * FROM jobs_query WHERE '" & strSearchtype & "'= '" & strSearch & "';") if rs.BOF and rs.EOF ' Nothing else rs.MoveFirst Do Until rs.EOF rs(<first_field>)----->gives you the first field of the...

My first search is the help of the access, if i don´t find solution i always do a search in the forum before i put any thread! i already find answers or advices to solve some problems before i ask the forum. if you do a search for a "intermitent" you don´t have any post. i assume that maybe...

Hi all, it´s possible get a label showing intermitent? tks in advance

hi all, i use this code but a get the error "No files were found for this action that match your criteria - nothing to do" this happens in this block of code. If Dir(sBackupPath & sBackupFile) <> "" Then Kill (sBackupPath & sBackupFile) if i make de debug.print of sBackupPath & sBackupFile it...

if you put the query in the recordset you can get the fields myrecordset.open "SELECT Table1.Name, Table1.eMAIL FROM Table1 WHERE (([Table1]![Name]='jdoe'))" myrecordset("name") -> gives you the name myrecordset("eMAIL") -> gives you the email i thonk yhis works for you

Hi all, i have a macro to delete a file first and then the folder that has this file. What happens it's when i run the macro the first time it works fine, the second time it gives me the error Path/File Access error on the line to remove the folder. if i run again( 3ª time) it works fine again...

That is awesome, thank you so much. If i could just have your quick help i one more thing that would be superb. Now what would the syntax be for an update query, that after this query runs would then delete the 5th and 10th characters which would be the hyphens????? hi troncarver i buid a form...

Do you know how to import all the Access objects? I try with the right button of the mouse->select import->select the corruption .mdb file but it can´t open this file, give me the same error when i try to open the file. Is there any way to import all objects? tks checoturco

Hi list, i apologize if this is not a thread for this forum but i can´t open my access database. i already look for some utility to recover the DB but i didn´t found nothing ( unless i have to pay). i experience some utilities but they only recover the tables, not the forms( and vba code). This...

tks bat17 ( I wrote this text because the main message was too short, i.e. less 10 characteres)

with docmd.runcommand acCmdsaverecord solves the problem, but i have a recordset with <recorset_name>.recordcount but this gives 0 or 1 despite the query retrieve 4 or 5 records??? ;) i have to find the problem

Hi list, I have a form based on a table but when i insert a value on a textbox, this value it´s not assumed in the table, i have to click in next cell for this value be assumed. I´don´t know if somebody have already this problem before. It´s possible do a click on next cell with vba or somebody...

Hi list, I need you help or you opinions and ideias. All the code that i have in vba was building inside Access; now i wanna migrate the code to vb but continue use my BD. My questions are: I have a module that have a variable for db ( dim db as database) and in all forms i have set...