[abde6726]

اثناء معانية الطباعة لايضهر السعر كيف لي وضع الكود حتى يصبح السعر يضهر في (active report) 
حسب المثال المرفق و شكرا

[Taha Okla]

--

كود :

Private Sub Command3_Click()
   Dim dB As New ADODB.Connection
   Dim rs As New ADODB.Recordset
   Dim Str_Connect As String
   
   If dB.State = adStateOpen Then dB.Close
   
   dB.Provider = "Microsoft.JET.OLEDB.4.0;"
   dB.Open App.Path & "\SalesDB.sys"
   
   Str_Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SalesDB.SYS;Persist Security Info=False"
   
   If rs.State = adStateOpen Then rs.Close
   rs.Open "SELECT COUNT(ART) As Count_Data,ART,PRIX,SUM(QUANT) as QUANT From ARTVIANDE GROUP BY ART,PRIX", dB, adOpenStatic, adLockOptimistic
   ActiveR1.DataControl1.ConnectionString = Str_Connect
   ActiveR1.DataControl1.Source = "SELECT COUNT(ART) As Count_Data,ART,PRIX,Sum(QUANT) as QUANT From ARTVIANDE GROUP BY ART,PRIX"
   
   Dim AR As New ADODB.Recordset
   AR.Fields.Append "prix", vbString
   AR.Fields.Append "date", vbString
   ActiveR1.Show
   
   Dim RA As New ADODB.Recordset
   Dim SQL As String

End Sub

[abde6726]

(20-11-23, 12:43 AM)Taha Okla كتب : --

كود :

Private Sub Command3_Click()
   Dim dB As New ADODB.Connection
   Dim rs As New ADODB.Recordset
   Dim Str_Connect As String
   
   If dB.State = adStateOpen Then dB.Close
   
   dB.Provider = "Microsoft.JET.OLEDB.4.0;"
   dB.Open App.Path & "\SalesDB.sys"
   
   Str_Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SalesDB.SYS;Persist Security Info=False"
   
   If rs.State = adStateOpen Then rs.Close
   rs.Open "SELECT COUNT(ART) As Count_Data,ART,PRIX,SUM(QUANT) as QUANT From ARTVIANDE GROUP BY ART,PRIX", dB, adOpenStatic, adLockOptimistic
   ActiveR1.DataControl1.ConnectionString = Str_Connect
   ActiveR1.DataControl1.Source = "SELECT COUNT(ART) As Count_Data,ART,PRIX,Sum(QUANT) as QUANT From ARTVIANDE GROUP BY ART,PRIX"
   
   Dim AR As New ADODB.Recordset
   AR.Fields.Append "prix", vbString
   AR.Fields.Append "date", vbString
   ActiveR1.Show
   
   Dim RA As New ADODB.Recordset
   Dim SQL As String

End Sub

---

بارك الله فيك اخي Taha Okla