tooltip  در فرم


در این پست فرا خواهیم گرفت که چگونه  می توان مقادیر یک تکس باکس را بصورت همزمان درون یک برچسب پویا نمایش داد و نیز با استفاده از یک ماژول موقعیت رکورد جاری را در بین سایر رکوردها بر روی فرم نمایش خواهیم داد .

در ادامه مطلب همراه من باشید . 

1. ابتدا جدول خود را با هر نوع رکورد و مشخصاتی که مد نظر دارید را طراحی و ذخیره نمایید .

2. از جدول خود یک فرم تهیه نموده و فیلدهای مورد نظر را درون فرم خود قرار دهید .

3.در حالت طراحی فرم خود کلیدهای ترکیبی ALT+F11  را فشرده تا وارد محیط کد نویسی شوید .

4. از منوی Insert  گزینه module  را انتخاب نموده و در محیط مزبور قطعه کدهای زیر را وارد نمایید .

Public Sub sShowToolTip(frm As Form)
Dim ctl As Control, i As Integer
    On Error Resume Next
    For Each ctl In frm.Controls
        With ctl
            If .ControlType = acTextBox Then
                .ControlTipText = .Value

            ElseIf .ControlType = acComboBox Then
                If .ColumnCount = 2 And .Value <> "" Then
                    .ControlTipText = .Column(.BoundColumn)
                End If
            End If
        End With
    Next ctl
    Set ctl = Nothing:    Set frm = Nothing
End Sub
حال ماژول خود را ذخیره نموده و دوباره وارد محیط طراحی فرم خود شوید .
5. یک برچسب برای نمایش موقعیت رکورد جاری بر روی فرم ایجاد نموده نام آن را بصورت lblnavigate   و در خاصیت caption آن عبارت موقعیت رکورد  را وارد نمایید


6. در پنجره property sheet  شی فرم را انتخاب نموده و در رویداد current  آن کدهای زیر را وارد نمایید .
ویژگی های فرم

Private Sub Form_Current()
    Call sShowToolTip(Me)
   
       If Me.NewRecord Then
        Me!lblNavigate.Caption = "رکورد جدید"
    Else
        With Me.RecordsetClone
            .Bookmark = Me.Bookmark
            Me!lblNavigate.Caption = "رکورد " & _
                    .AbsolutePosition + 1 _
                    & " از " & .RecordCount
        End With
    End If

End Sub
حال فرم خود را اجرا نموده و نتیجه کار را مشاهده نمایید .


در صورت وجود هر  سوال و مشکلی در قسمت نظرات پرسیده شود تا پاسخ داده شود .


طبقه بندی: آموزش ACCESS، ترفند Access ،
برچسب ها:نمایش موقعیت رکورد در جدول اکسس، tooltip، مقادیر تکس باکس،
تاریخ : سه شنبه 12 دی 1396 | 10:36 ب.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.