Solved

dao default field value.

Posted on 2012-12-22
12
433 Views
Last Modified: 2012-12-23
If a field does not exist in the current table I append it. But I would like to also provide a default value. How do I do that? Working in vb6.
thanks,
 br
0
Comment
Question by:brayle
  • 7
  • 5
12 Comments
 
LVL 75
ID: 38716021
Full on code:

    Dim dbs As Database
    Dim fld As DAO.Field
    Set dbs = CurrentDb
    Set fld = dbs.TableDefs("YourTableName").Fields("YourFieldName")
    fld.DefaultValue = 0

    Set fld = Nothing
    Set dbs = Nothing

Short version:

CurrentDb("YourTableName").Fields("YourFieldName").DefaultValue = "SomeValue" ' text example
0
 

Author Comment

by:brayle
ID: 38716055
Does that append the field or just add the default data?
thx
br
0
 
LVL 75
ID: 38716067
Just adds the Default Value.

"But I would like to also provide a default value."

Also:

"Working in vb6."

You may need to use the OpenDatabase Method instead of CurrentDB.
0
 

Author Comment

by:brayle
ID: 38716068
Here I succeed in appending the field but then it does not do the default

Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim fld As DAO.field

Set db = OpenDatabase(PassedPathNName, True)
Set tb = db.TableDefs("tblUserSettings")

      If tb.Fields.count < 17 Then '12-19-12 added
        Set fld = tb.CreateField("TruckRowHash", dbText) '
        tb.Fields.Append fld

'When it gets to this line it says "Field not found in this collection"
        Set fld = db.TableDefs("UserSettings").Fields("TruckRowHash")
        fld.DefaultValue = 0

    end if

thx
br
0
 
LVL 75
ID: 38716070
Dim dbs As DAO.Database
    Dim fld As DAO.Field
    Set dbs = OpenDatabase("YourDBName")
    Set fld = dbs.TableDefs("YourTableName").Fields("YourFieldName")
    fld.DefaultValue = 0 ' or whatever value
    dbs.Close
    Set fld = Nothing
    Set dbs = Nothing
0
 
LVL 75
ID: 38716078
Not sure what is going on ...  unless you have to Create the DefaultValue Property ... but I don't think so.

    Dim dbs As DAO.Database
    Dim fld As DAO.Field
    Set dbs = OpenDatabase("YourDBName")
    With dbs
        Set fld = .TableDefs("YourTableName").Fields("YourFieldName")
        fld.DefaultValue = 0 ' or whatever value
        .Close
    End With
    Set fld = Nothing
    Set dbs = Nothing
0
Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

 

Author Comment

by:brayle
ID: 38716100
I'm afraid the use of "With dbs" did not help. It acts like the appended field is not really ready for action.  I guess I will just try some other way unless you have other ideas.
Thanks,
br
0
 
LVL 75
ID: 38716109
Try one or the other or both of the Refresh lines:


        Set fld = tb.CreateField("TruckRowHash", dbText) '
        tb.Fields.Append fld
       db.TableDefs.Refresh
        tb.Fields.Refresh
0
 

Author Comment

by:brayle
ID: 38716131
Found the problem, I had left off the "tbl" prefix I was using with my table.
Thanks for your perseverance and help.
Brian
0
 
LVL 75
ID: 38716134
I have to go, but ... If that did not work ... look up CreateProperty in vba Help ... and 'create' the DefaultValue property for that Field.

Also ... another approach is using the ALTER syntax ...
In fact ... see this:
http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_23927409.html?cid=295

Other Examples ... not directly related:

CurrentDb.Execute "ALTER TABLE tblGLBudgetBalance ALTER COLUMN  intFiscalYear number"

Public Function mChangeFieldType(sFld) As Boolean

    Dim tdf As TableDef, db As DAO.Database, fld As DAO.Field
    Set db = CurrentDb
    For Each tdf In db.TableDefs
        For Each fld In tdf.Fields
            If fld.Name = sFld Then
                If fld.Type = dbLong Then
                    CurrentDb.Execute "ALTER TABLE [" & tdf.Name & "] ALTER COLUMN " & sFld & " TEXT(55)"
                End If
            End If
        Next
    Next
0
 

Author Comment

by:brayle
ID: 38716148
I'm all set, it's working, thanks again.
Brian
0
 
LVL 75

Accepted Solution

by:
DatabaseMX (Joe Anderson - Access MVP) earned 500 total points
ID: 38716482
You are welcome. Don't forget to close the question :-)

mx
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

943 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now