how to store my value

zaankanter

Hi,
This is an updated version of my earlier post, hoping to attract new readers/answers.
I want on opening my form, to check wether a field [res3] in the one-record table "programmavariabelen" is empty, and if it is, to fill it (that is of course, being the table designed to be one-record, in the first and only record) with a random integer.
This is where Zwoker has lead me to so far:

Expand|Select|Wrap|Line Numbers

 Private Sub Form_Load()
 
If IsNull(DLookup("[res3]", "programmavariabelen")) Then

    MsgBox "res3 is empty"

    Randomize

    MyTable.Open "programmavariabelen", CurrentProject.Connection, adOpenStatic, adLockOptimistic

    MyTable.MoveFirst

    MyTable![res3] = Rnd()

    MyTable.Update

    MyTable.Close
 
MsgBox (Me![res3])

End If

End Sub

It stops at My.table.open etc. , and states "object required"
Does anyone see what we overlook?

Megalog

This is how I'd do it:

Expand|Select|Wrap|Line Numbers

 Private Sub Form_Load()

Dim rs as DAO.Recordset
 
If IsNull(DLookup("[res3]", "programmavariabelen")) Then

    MsgBox "res3 is empty"

    Randomize

    Set rs = CurrentDb.OpenRecordset("programmavariabelen", dbOpenDynaset)

    rs.MoveFirst

    rs.Edit

    rs![res3] = Rnd()

    rs.Update

    Set rs = nothing
 
    MsgBox (Me![res3])

End If
 
End Sub

zaankanter

Quote:

This is how I'd do it:

Code: ( text )
Private Sub Form_Load()
Dim rs as DAO.Recordset

If IsNull(DLookup("[res3]", "programmavariabelen")) Then
MsgBox "res3 is empty"
Randomize
Set rs = CurrentDb.OpenRecordset("programmavariabelen", dbOpenDynaset)
rs.MoveFirst
rs.Edit
rs![res3] = Rnd()
rs.Update
Set rs = nothing

MsgBox (Me![res3])
End If

End Sub

This gives me an error in line 2: (translated from dutch its something like this:) "A datatype defined by user is not defined"

zaankanter

The form in question is the first one to open on opening the acces-project. Does that make any difference?

zaankanter

HI,

I've stripped the programlines one by one by to find out what they do (and after stripping: don't).
This is what I finaly got. And it works!
Much, much, simpler than I imagened:

Expand|Select|Wrap|Line Numbers

 Private Sub Form_Load() 

If IsNull(DLookup("[res3]", "programmavariabelen")) Then    

    Randomize    

    Me![res3] = Int(Rnd() * 10000000)   

    MsgBox (Me![res3])

End If 

End Sub

It does exactly what I wanted it to do in the first place:
- check if res3 is empty
- then create a random number
- and store it as res3

NeoPa

Nicely done.

You look as if you're having trouble finding the button that adds CODE tags. It's the # button.

Welcome to The Scripts :)

how to store my value

re: how to store my value

re: how to store my value

re: how to store my value

re: how to store my value

re: how to store my value

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about