goto
-
Posts
1 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو goto
-
أخي العزيز هذه أول مشاركاتي في الموقع وهو كود استخدمه في برامجي وأنا مستعد للتعاون مع أي أخ لدية مشكلة Private Sub Form_Current() Dim myfile, chpass myfile = Dir("c:\windows\filename.txt") If myfile <> "" Then Else chpass = MsgBox("نسخة غير مرخصة") DoCmd.Quit End If End Sub
