Thread: Userform and Nav buttons

Hi everybody!!!

Hope u are going to understand me. Coming from Croatia. I have made one userform with few butons, have searched all around WWW to find some useful tutorials on how to..? Have it all done and works perfect. Just few text boxes and few buttons. Now i go bit further and want to add nav buttons to be able to cycle thru records and update individual records. Have found one nice tutorial but part of code don t work and i can t figure it way. Maybe u guys and girls can help me to solve this problem. So far i got record shown on my form when initialize, button First and Last record working but can t get Next, Prew and Update buton to work. On end i made same sheet with same data and same form as in tutorial and u can see it on:

http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

Part of Next code should be all most the same as for Prew and i wrote this:

Private Sub CommandButton3_Click()
    Dim r As Long

If IsNumeric(RowNumber.Text) Then
    r = CLng(RowNumber.Text)
    
    r = r + 1
    If r > 1 And r <= LastRow Then
        RowNumber.Text = FormatNumber(r, 0)
        
    End If
    
End If
End Sub

Can anybody see what s wrong. I am using Excel 2007. Thank u for time taken to read my post. Hope to get an answer.

I wish u all marry christmas and happy new year!!!!

Hi gopavic,

I would suggest you to upload the sample workbook with user form to enable forum to help you better. Thanks.

Regards,
DILIPandey

<click on below 'star' if this helps>

Moderator Bump.

I got rid of msg displaying when i hit "Spremi" button it is Save button. Now how? This way! I took RowNumber text box to side and have made it unvisible. I drow other text box and name it
txtNavButons. Then i wrote in Private Sub GetData() foloving

txtNavBox.Text = Cells(r, 1)

and i delete it part with "If Then MsgBox" so my new code for part of geting data to my form looks like folowing:

Private Sub GetData()

Const LastRow = 20
Dim r As Long

If IsNumeric(RowNumber.Text) Then
    r = CLng(RowNumber.Text)
End If

If r > 7 And r <= LastRow Then

    txtRb.Text = Cells(r, 1)
    txtOpis.Text = Cells(r, 2)
    txtDatum.Text = Cells(r, 3)
    cboUplataIsplata.Text = Cells(r, 7)
    txtNavBox.Text = Cells(r, 1)
   If Cells(r, 7) = "Uplata" Then
        txtIznos.Text = Cells(r, 4)
   Else
        txtIznos.Text = Cells(r, 5)
    End If
        
    ElseIf r = 1 Then
    ClearData
    
End If

End Sub

Now i cant write number of record to be displayed buut who cares i got working Nav buttons...
I am working further... and thinking

Take a look at the DatabaseForm