1
ห้อง MS Access / : ถ้าย้าย Database จาก Access ไป SQL พวก Query,Module,Expression,Eventจะหายไหมครับ
« เมื่อ: 07 เม.ย. 63 , 05:39:10 »
ขออนุญาติถามต่อยอดครับ วิธีแบบในคลิปสามารถใช้ NAS เป็นเซิฟเวอร์ได้ไหมครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
DateFrom = DateSerial(Me.combo_year, Me.combo_month, 1)
DateTo = DateSerial(Me.combo_year, Me.combo_month + 1, 0)
Option Compare Database
Private Sub Searchcombo()
Dim sql As String
sql = "select * FROM Qsaleh_cusprof WHERE [cus_name] ='" & Me.combonamesearch & "'"
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = sql
Forms!frmhistoryh!frmhistorylist.Form.Requery
End Sub
Private Sub checkbox()
Dim sql As String
sql = "select * from Qsaleh_cusprof where [acculate] = " & Me.acculatesearch & ""
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = sql
Forms!frmhistoryh!frmhistorylist.Form.Requery
End Sub
Private Sub acculatesearch_AfterUpdate()
checkbox
End Sub
Private Sub combonamesearch_AfterUpdate()
Searchcombo
End Sub
iif([prod_id]<>0,[order].[cus_id]=[deal].[cus_id],dlookup([deal_price],[deal]))
Else
dlookup([deal_price],[deal])
ดึงราคาจาก ตารางส่วนลด มาแสดงแทนเนี่ย ทำยังไงครับ