- 0
سجل دخول لمتابعه هذا
متابعين
0
وضع برنامج في شيكة داخلية
بواسطة
nacer_alger,
-
يستعرض القسم حالياً 0 members
لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .
بواسطة
nacer_alger,
لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .
تم النشر منذ (معدل)
سلام عليكم
قمت بتطوير برامج في أكسس هدا من فضل الله ثم الفضل يعود بحثي في المنتديات مثل هدا المنتدى الجميل.
قمت ببرمجة برامج كلها تفعل برقم الهرد ديسك الطريقة المعروفة عند المبرمجين وسف أضع الكود المستعمل أمور تعمل بشكل جيد عندما يكون حاسوب واحد يعني يعطيني رقم الهرد ديسك و واضع كود التفعيل ويفعل البرنامج المشكلة هي عندما افعل البرنامج في حاسوب السرفر ياخد هرد دسك السرفر وعندما ادهب الى حاسوب الثاني المتصل بسرفر وافتحه يطلب التفعيل من جديد وعندما افعل الحاسوب الثاني السرفر يطلب التفعيل من جديد ايظا اي الكود ياخد هرد ديسك واحد اخير لا اكثر وهده مشكلة عندما يطلب منك شخص ان تضع برنامج في شبكة داخلية مشاركة البرنامج اكثر من حاسوب فوجت أن هدا الكود لا يناسب فهل من طريقة أخرى يعني انأ أريد عندما أقوم بمشاركة البرنامج في شبكة داخلية افعله مرت واحد في السرفر باقي الحواسيب المتصلة لا تطلب مني التفعيل
الاستفادة روابط لي برامجي
برنامج كراء السيارات
كود المستعمل
Private Sub Commande1_Click()
Dim DB As Database
Dim rs As Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("TBpass")
If rs.EOF = True Then
rs.AddNew
rs!Ser = Me.SERTEXT.Value
rs!HdNum = Me.HdNum.Value
rs.Update
rs.Close
Else
rs.Edit
rs!Ser = Me.SERTEXT.Value
rs!HdNum = Me.HdNum.Value
rs.Update
rs.Close
End If
Dim X, x2
X = Nz((Me.HdNum)) * 236
x2 = Nz(DLookup("ser", "TBpass"), 0)
If "'" & x2 & "'" = "'" & X & "'" Then
DoCmd.Close
DoCmd.OpenForm "Gestion de location de voiotures"
Else
MsgBox "Le Numéro et erroné Demander le Code d'activation", vbYes, "Obtenir le logiciel Contact le Fournisseur 0550735799"
DoCmd.Quit
End If
End Sub
تم تعديل بواسطه nacer_algerشارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه