Recent content by javajom

Thanks, Please could you show me what you mean as I'm going around in circles with this one, I've just started with VB espec ReDims.

Plese could you show me what you mean as I'm a beginner.

you mean something like: While myRecordSet.EOF = False ReDim Preserve data5(1, i) If myRecordSet.Fields(2).Value = 5 Then data5(i, 0) = (myRecordSet.Fields(1).Value) data5(i, 1) = (myRecordSet.Fields(0).Value) i = i + 1 End If Wend instead of: While myRecordSet.EOF = False If...

tried and failed Hi, Tried but still deluding me, heres my code I've done: Public Function protect() Dim cnn1 As ADODB.Connection Set cnn1 = CurrentProject.Connection Dim myRecordSet As New ADODB.Recordset myRecordSet.ActiveConnection = cnn1 Dim data5() As String Dim data4() As String Dim...

Tried but it says run time error '9' 'subscript out of range' can't understand as ReDim data5(0 To i, 0 To 1) states that there are 0 to i rows with 0 and 1 (2) columns. Confused.com

yes I need to expand all elements but just being a humbly beginner I'm not sure how to expand a 2 dimensional array every time the function finds a record set that equals 5. Whats the best way?

Hi I,m having trouble finding information/tutorials about dynamic arrays, the problem is that I'm trying to use a 2 dimensional array and having trouble getting it to work. Before I used 2 arrays, which worked well but now I'm trying to use a 2 dimensional one. It seems that the line of code...

Many thanks.

Hi, What I am trying to do is have a array which will grow as needed. I have written some code but doesn't work. Dim cnn1 As ADODB.Connection Set cnn1 = CurrentProject.Connection Dim myRecordSet As New ADODB.Recordset myRecordSet.ActiveConnection = cnn1 Dim data5(1) As String Dim data5a(1) As...

Hi, What I'm trying to do is to change the value of the field within the record. The function will change the value of Username field within the secure table. By a sequence of input boxes I got a new username (newWord), which will replace the old one. I followed the book 'ACCESS VBA Programming...

Hi, Having one of those days, code won't work and nor does my office help. I quite new to this and having problem with my loop. name = Forms!orpheus.Type.Value If (type1(run)) <> name Then While type1(run) <> name tp1 = (sales1(run)) tp2 = (purchasing1(run)) tp3 = (firstFix1(run)) tp4 =...

Hi, What I have done is made a form which shows the user by a if statement: If([Type]="Orpheus 10x6x10",32,IIf([Type]="Orpheus 12x8x12",32,IIf([Type]="Orpheus 16x12x16",32,IIf([Type]="AGI 2x2x2 Modified",32,IIf([Type]="AGI 4x2x4",32,IIf([Type]="AGI 6x3x6",32,IIf([Type]="AGI...

Many thanks, works great......

Sorry can you explain, I'm new to this???

Hi, I'm new to the vb code and having a problem with the form/vb, I've written a function that will check a password entered into the form against an array. It's a sinple form that has a password enter box, which is formatted to password in the properties a enter button and a cancel button. The...