أريد كود لجعل زر F5 يعمل

If KeyCode = 116 And Shift = 0 Then

Dim arbname, prdname, sp, prnp As String

Dim grtot, itmtot, itmqty, itmprc As Double

Dim i As Integer

Set rs = Me.Recordset.Clone

prnp = "lpt1"

Open prnp For Output As 1

' Print #1, "AlSwaida Bakery"

' Print #1, "Cash Memo"

' Print #1, Chr(27) + "!0"

Print #1, "Item Qty Price Amount"

If rs.EOF = False Then

While Not rs.EOF

'arbname = ConvertCode(rs!ProductName, "WINDOWS", "IBM")

prdname = Trim(rs!ProductName)

If Len(prdname) < 20 Then

For i = 1 To 20 - Len(prdname)

sp = sp & " "

Next i

prdname = prdname & sp

Else

prdname = Left(prdname, 20)

End If

itmtot = Trim(rs!SQty) * Trim(rs!SalesPrice)

itmqty = Format(Trim(rs!SQty), "@@@@")

itmprc = Format(Trim(rs!SalesPrice), "@@@@@@")

Print #1, prdname & " " & itmqty & " " & itmprc & " " & itmtot

grtot = grtot + rs!TValue

sp = ""

rs.MoveNext

Wend

Print #1, "Grand Total : " & Format(grtot, "000000.00")

Print #1, Chr(10) & Chr(10)

Print #1, "Thank You Come Again"

Print #1, Chr(10) & Chr(10) & Chr(10)

Print #1, Chr(27) + "i"

' Print #1, Chr(27) + "!5"

Print #1, "AlSwaida Bakery"

Print #1, "Cash Memo"

Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(50) + Chr(250)

Close #1

End If

End If

أولاً عندما تكتب الكود هناك زر في المحرر مكتوب عليه كود ، ضع كودك بين كلمتي ال code

ثم أيه علاقة المثال بالسؤال ،كما أن سؤالك غير مفهوم

أبحث في محرر البحث عن F1 ... أو F12 ثم أقرأ المواضيع المدرجه

وإذا لم تحصل على ماتريد أكتب السؤال بطريقة جيدة فهل تريد مثلاً أن تضغط على F5 (من داخل البرنامج أم من خارجه) لينفذ أمر معين

أعتقد هناك مواضيع كثيرة في المنتدى تتكلم عن ذلك

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

=============================

اخي الكريم بالنسبة للمفاتيح الوظيفية F1,F2,F3,.....

لكل مفتاح من هذه المفاتيح رمز خاص وسأقوم بسرد رقم كل مفتاح ..

F1 --- 112

F2 --- 113

F3 --- 114

F4 --- 115

F5 --- 116

F6 --- 117

F7 --- 118

F8 --- 119

F9 --- 120

F10 --- 121

F11 --- 122

F12 --- 123

ولتطبيق هذه المفاتيح قم بوضع زر على الفورمه وفي حدث KeyPress للفورمة اكتب الكود التالي :

if keycode = 113 then
(اكتب هنا الجمله المنفذه )
end if

اقتباس

أولاً عندما تكتب الكود هناك زر في المحرر مكتوب عليه كود ، ضع كودك بين كلمتي ال code

ثم أيه علاقة المثال بالسؤال ،كما أن سؤالك غير مفهوم

أبحث في محرر البحث عن F1 ... أو F12 ثم أقرأ المواضيع المدرجه

وإذا لم تحصل على ماتريد أكتب السؤال بطريقة جيدة فهل تريد مثلاً أن تضغط على F5 (من داخل البرنامج أم من خارجه) لينفذ أمر معين

أعتقد هناك مواضيع كثيرة في المنتدى تتكلم عن ذلك

شكرأ لك اخي لكن اعتقد ان الموضوع مفهم بعض الشئ

اقتباس

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

=============================

اخي الكريم بالنسبة للمفاتيح الوظيفية F1,F2,F3,.....

لكل مفتاح من هذه المفاتيح رمز خاص وسأقوم بسرد رقم كل مفتاح ..

F1 --- 112

F2 --- 113

F3 --- 114

F4 --- 115

F5 --- 116

F6 --- 117

F7 --- 118

F8 --- 119

F9 --- 120

F10 --- 121

F11 --- 122

F12 --- 123

ولتطبيق هذه المفاتيح قم بوضع زر على الفورمه وفي حدث KeyPress للفورمة اكتب الكود التالي :

كودif keycode = 113 then

(اكتب هنا الجمله المنفذه )

end if

رائع اخي هذى مكنت اريدة شكري موصول للجميع

لا شكر على واجب

رمضان كريم وانت بخير