auto-increment a field in MS Access 2016 form












0















I'm building a basic form and would like an id field in the form to auto-increment when the user opens the form (or could be a different event as well, just figured this is simplest).



I've written the following vb code, but there seems to be an issue:



Private Sub Form_Load()    

lngNextID = DMax("[portfolio_id]", "table1") + 1
Form 1.portfolio_id = lngNextID

End Sub


table1 is the table I want the vb to look up for the next increment.
The name of my form is 'Form 1' and the field in that form that I'm looking to autoincrement is portfolio_id.



Any advice/modifications would be helpful, thank you.










share|improve this question

























  • Why don't you just use Autonumber type field? Exactly what is the issue - error message, wrong result, nothing happens? Syntax referencing form is not correct. Use Me.portfolio_id, However, if you load form with existing records, this code will replace existing data. Is this a multi-user db? Beware possibility of simultaneous users generating same ID.

    – June7
    Nov 26 '18 at 18:59


















0















I'm building a basic form and would like an id field in the form to auto-increment when the user opens the form (or could be a different event as well, just figured this is simplest).



I've written the following vb code, but there seems to be an issue:



Private Sub Form_Load()    

lngNextID = DMax("[portfolio_id]", "table1") + 1
Form 1.portfolio_id = lngNextID

End Sub


table1 is the table I want the vb to look up for the next increment.
The name of my form is 'Form 1' and the field in that form that I'm looking to autoincrement is portfolio_id.



Any advice/modifications would be helpful, thank you.










share|improve this question

























  • Why don't you just use Autonumber type field? Exactly what is the issue - error message, wrong result, nothing happens? Syntax referencing form is not correct. Use Me.portfolio_id, However, if you load form with existing records, this code will replace existing data. Is this a multi-user db? Beware possibility of simultaneous users generating same ID.

    – June7
    Nov 26 '18 at 18:59
















0












0








0








I'm building a basic form and would like an id field in the form to auto-increment when the user opens the form (or could be a different event as well, just figured this is simplest).



I've written the following vb code, but there seems to be an issue:



Private Sub Form_Load()    

lngNextID = DMax("[portfolio_id]", "table1") + 1
Form 1.portfolio_id = lngNextID

End Sub


table1 is the table I want the vb to look up for the next increment.
The name of my form is 'Form 1' and the field in that form that I'm looking to autoincrement is portfolio_id.



Any advice/modifications would be helpful, thank you.










share|improve this question
















I'm building a basic form and would like an id field in the form to auto-increment when the user opens the form (or could be a different event as well, just figured this is simplest).



I've written the following vb code, but there seems to be an issue:



Private Sub Form_Load()    

lngNextID = DMax("[portfolio_id]", "table1") + 1
Form 1.portfolio_id = lngNextID

End Sub


table1 is the table I want the vb to look up for the next increment.
The name of my form is 'Form 1' and the field in that form that I'm looking to autoincrement is portfolio_id.



Any advice/modifications would be helpful, thank you.







ms-access ms-access-2016






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 26 '18 at 18:42









Gustav

29.9k51835




29.9k51835










asked Nov 26 '18 at 16:08









user5831311user5831311

8918




8918













  • Why don't you just use Autonumber type field? Exactly what is the issue - error message, wrong result, nothing happens? Syntax referencing form is not correct. Use Me.portfolio_id, However, if you load form with existing records, this code will replace existing data. Is this a multi-user db? Beware possibility of simultaneous users generating same ID.

    – June7
    Nov 26 '18 at 18:59





















  • Why don't you just use Autonumber type field? Exactly what is the issue - error message, wrong result, nothing happens? Syntax referencing form is not correct. Use Me.portfolio_id, However, if you load form with existing records, this code will replace existing data. Is this a multi-user db? Beware possibility of simultaneous users generating same ID.

    – June7
    Nov 26 '18 at 18:59



















Why don't you just use Autonumber type field? Exactly what is the issue - error message, wrong result, nothing happens? Syntax referencing form is not correct. Use Me.portfolio_id, However, if you load form with existing records, this code will replace existing data. Is this a multi-user db? Beware possibility of simultaneous users generating same ID.

– June7
Nov 26 '18 at 18:59







Why don't you just use Autonumber type field? Exactly what is the issue - error message, wrong result, nothing happens? Syntax referencing form is not correct. Use Me.portfolio_id, However, if you load form with existing records, this code will replace existing data. Is this a multi-user db? Beware possibility of simultaneous users generating same ID.

– June7
Nov 26 '18 at 18:59














1 Answer
1






active

oldest

votes


















0














Try with:



Forms("Form 1").portfolio_id = lngNextID


or the simpler:



Me!portfolio_id = lngNextID


However, that will update the opening record, so try setting the DefaultValue (a string):



Me!portfolio_id.DefaultValue = "'" & lngNextID "'"





share|improve this answer























    Your Answer






    StackExchange.ifUsing("editor", function () {
    StackExchange.using("externalEditor", function () {
    StackExchange.using("snippets", function () {
    StackExchange.snippets.init();
    });
    });
    }, "code-snippets");

    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "1"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53485010%2fauto-increment-a-field-in-ms-access-2016-form%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    0














    Try with:



    Forms("Form 1").portfolio_id = lngNextID


    or the simpler:



    Me!portfolio_id = lngNextID


    However, that will update the opening record, so try setting the DefaultValue (a string):



    Me!portfolio_id.DefaultValue = "'" & lngNextID "'"





    share|improve this answer




























      0














      Try with:



      Forms("Form 1").portfolio_id = lngNextID


      or the simpler:



      Me!portfolio_id = lngNextID


      However, that will update the opening record, so try setting the DefaultValue (a string):



      Me!portfolio_id.DefaultValue = "'" & lngNextID "'"





      share|improve this answer


























        0












        0








        0







        Try with:



        Forms("Form 1").portfolio_id = lngNextID


        or the simpler:



        Me!portfolio_id = lngNextID


        However, that will update the opening record, so try setting the DefaultValue (a string):



        Me!portfolio_id.DefaultValue = "'" & lngNextID "'"





        share|improve this answer













        Try with:



        Forms("Form 1").portfolio_id = lngNextID


        or the simpler:



        Me!portfolio_id = lngNextID


        However, that will update the opening record, so try setting the DefaultValue (a string):



        Me!portfolio_id.DefaultValue = "'" & lngNextID "'"






        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Nov 26 '18 at 18:45









        GustavGustav

        29.9k51835




        29.9k51835
































            draft saved

            draft discarded




















































            Thanks for contributing an answer to Stack Overflow!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53485010%2fauto-increment-a-field-in-ms-access-2016-form%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            Contact image not getting when fetch all contact list from iPhone by CNContact

            count number of partitions of a set with n elements into k subsets

            A CLEAN and SIMPLE way to add appendices to Table of Contents and bookmarks