08-09-19, 05:23 PM
(آخر تعديل لهذه المشاركة : 08-09-19, 05:32 PM {2} بواسطة asemshahen5.)
تفضل أخي المثال بعد التعديل :
PHP كود :
Module1
''---------------------------------------
Public DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RS2 As New ADODB.Recordset
Public RA As New ADODB.Recordset
Public RSSNFMaxID As New ADODB.Recordset
Public RSSNFN As New ADODB.Recordset
Public RSADItm As New ADODB.Recordset
Public RSASNAF As New ADODB.Recordset
''---------------------------------------
Public ItemsID As String
''---------------------------------------
Form4
''---------------------------------------
Private Sub Command1_Click()
ItemsID = Val(Trim$(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)))
Unload Me
End Sub
''---------------------------------------
''---------------------------------------
Form1
''---------------------------------------
Private Sub Command4_Click()
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
End Sub
''---------------------------------------
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
