سؤال عن msgbox

[bumb]

السلام عليكم

ماهو الكود الذي يجعلني ان اخذ قيم من جدول ووضعها في msgbox

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

يمكن استخدام دالة DLookup للحصول على الرسالة ووضعها في متغيير من نوع نص

ثم استخدم msgbox لعرض المتغيير

تحياتي

[bumb]

2 دقائق مضت, محمد أبوعبدالله said:

وعليكم السلام ورحمة الله وبركاته

يمكن استخدام دالة DLookup للحصول على الرسالة ووضعها في متغيير من نوع نص

ثم استخدم msgbox لعرض المتغيير

تحياتي

ممكن تعطيني مثال على الكود

[محمد أبوعبدالله]

12 دقائق مضت, bumb said:

ممكن تعطيني مثال على الكود

ارفق مثال للتعديل عليه بارك الله فيك

تحياتي

[bumb]

43 دقائق مضت, محمد أبوعبدالله said:

ارفق مثال للتعديل عليه بارك الله فيك

تحياتي

ماعندي امثله 

هو المطلوب ان المسج بوكس تاخذ نص من جدول ونص اخر يكون عنوان الرساله

اكتب لي الكود فقط الله لا يهينك

[محمد أبوعبدالله]

تفضل اخي الكريم

    Dim X As String, Y As String
    Y = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =1")
    X = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =2")
    MsgBox X, vbInformation, Y

db0.rar

تحياتي

    ' متغيرات
    Dim X As String, Y As String
    ' عنوان الرسالة
    Y = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =1")
    ' نص الرسالة
    X = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =2")
    ' عرض الرسالة
    MsgBox X, vbInformation, Y

 

[bumb]

منذ ساعه, محمد أبوعبدالله said:

تفضل اخي الكريم

    Dim X As String, Y As String
    Y = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =1")
    X = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =2")
    MsgBox X, vbInformation, Y

db0.rar 18.5 kB · 1 download

تحياتي

    ' متغيرات
    Dim X As String, Y As String
    ' عنوان الرسالة
    Y = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =1")
    ' نص الرسالة
    X = DLookup("[txtMsgBox]", "[tblMsgBox]", "[Id] =2")
    ' عرض الرسالة
    MsgBox X, vbInformation, Y

 

عشت وكثر الله خيرك