vba - how to create sequence -

-

I am exporting the file from my MS Access table to my locality, I am doing this VBA coding. I need to create a sequence for the file name like this, 

  File1PN00001 File1PN00002 File1PN00003 ... ...   
 I am doing this with the following As a code,  
  private subcommand0_ Click () dim file name as string dim intChoice as integer dim strpath string slow LSProc as set QueryDef as dim db database set db = CurrentDb () Set LSProc = db.CreateQueryDef ("") 'file dialog to user strFilePath = BrowseFolder (please select "Neutrality Report Ph Select Il export path appears to ") if strfilepath & lt; & Gt; "" Then call MSBBC (StuffFilePath, VBInnation, "Save Path") or other message "Please provide a file path before export!", VbCritical + vbOKOnly End if FileName = strfilePath & amp; "File 1pn" & amp; Format (txtBal_Number, "000000") & amp; ".txt" DoCmd.TransferText acExportDelim, "T1", filename, false ending sub   
 How do I create a sequence for it, how to create a sequence and increase the value 1 each time When this code runs, can you help me with this thank you?   
 
 
 If you have a logging system. First of all, you do not need to create a table, just a simple table with two columns.    tbl_FileNameLog --------------------------------------- ----------------------------------- FIELD NAME | Data type | Comments ------------ + --------------- + -------------------- ------------------------- fileID | Number | Auto number can be used, but secure for the future. | Use the number so that you can edit it. | | But make sure this is the primary key export date. Date / time Just a date field to store the date   
 Now you can edit your code in some way.  
  Private subcommand 0 tag (string) in the form of slim straps, string as long as string filename lngChoice as dBObj = CurrentDb () 'file string file path = Browsfolder ("Please select the path to export selection file to export neutrality report") if strfilepath & lt; & Gt; "" Then export the MSBbox file ":" & amp; Please provide a file path before export! ", VbCritical + vbOKOnly exit sub if lngChoice = Nz (DMX (" fileID "," tbl_FileNameLog "), 0) +" StrigiPath, vbInformation, "vbInformation," Save Path " 1 FileName = strfilePath & amp; "File 1pn" & amp; Format (lngChoice, "000000") & amp; Enter ".txt" DoCmd.TransferText acExportDelim, "T1", filename, false DBobbs.execute "tbl_FileNameLog (file ID, export date) values ​​(" & amp; _ lngChoice & amp; CDbl (date ()) & Amp;;) "Set dbObj = None End Sub   
 Then when the code is run for the first time, it will search for the maximum ID in the table. Since there is no entry in it, it will use the NG function and assign 0 + 1, hence the ID of 1 will be received. Then exported to the specified place at the same time an entry in the file log has been entered that has been assigned the ID. So the next time the code runs, the ID of 1 for the file log table will appear because it will not use 2. And so on ....  
 This is not the way it relies on the filesystem, its own log, so even if the file has been moved or deleted, it is a consistent / Hope that it will be able to provide continuous numbers!

Comments

Post a Comment

Popular posts from this blog

java - ImportError: No module named py4j.java_gateway -

-
I'm trying to call the Python using the Java program py4j . I've been installing the plug-in Eclipse and test name Piidvi project. I'm trying to execute the following part of the code found on py4j webpage: Import from py4j.java_gateway to JavaGateway, java_import gateway = JavaGateway () jvm = gateway.jvm java_import (jvm, '' Org.eclipse Kkorkrisorsej. * ") Vrkspes_rut = Jvankresourkesplginkgetvrkspas (). GetRoot (Gateway .help (workspace_root, '* Projects *') project_names = [project.getName () (for projects workpace_root.getProjects))] print (Projekt_nam) But I There is an error in import. I have checked that the P4JJ is present in the Jar Eclipse plugin directory. Can anyone help please? I had to install the py4j application
Read more

python - Receiving "KeyError" after decoding json result from url -

-
I am new to Python I am trying to parse JSON result from a URL. Basically, I was using the following: response = urllib.request.urlopen (url) json_obj = json.load (response) It should be a stroke "str 'not' bytes' in the lines of a given" JSON object, so after searching on the StackoverView Flo, I decode the response in this way: F = urllib.request.urlopen (Url) charset = f.info (). Get_param ('charset', 'utf8') data = f.read () decoded = json.loads (data.decode (charset)) If I print "decode" I is as follows: { 'link': { 'summary data': 'https: // localhost / piwebapi / streams / p0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTExNQU42NDIwXFNJTlVTT0lE / summary' 'value': 'https: // localhost / Piwebapi / streams / P0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTExNQU42NDIwXFNJTlVTT0lE / price ',' InterpolatedData ':' https: // localhost / Piwebapi / streams / P0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTE...
Read more

.net - Creating a new Queue Manager and Queue in Websphere MQ (using C#) -

-
"itemprop =" text "> I am writing applications that use WebSphere MQ to send messages. My unittests (for flow), I want to verify that I have put the correct message on the response queue. I am trying to figure out how to do this. My main obstacle is that I think it might be scary to clear the queue before running in my queue because the same queue can be used by other applications, I thought a decent solution would be a new line The manager will remove the queue for my solidarity and after using it. So my question is: Is it possible to use C # by using queue manager and queue? After the For future reference and future people, who want to make queues. I thought how to make and remove IBM MQ QE (not quenhers) with PCM messaging. It is not very simple, but it can be done. We have implemented it in a library and it is being used to create and delete commands before and after integration tests. The most important part of the code in this library is shown in the...
Read more