แสดงกระทู้
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.
=[text1] & Format([Text2]," d mmmm yyyy")
Private Sub Description_GotFocus()
Me.Description.BackColor = RGB(255, 174, 201)
End Sub
Private Sub Description_LostFocus()
Me.Description.BackColor = RGB(250, 250, 250)
End Sub
Private Sub WeightPerPack_AfterUpdate()
Call CalculateTotal2
End Sub
Private Sub WeightPallet_Afterupdate()
Call CalculateTotal2
End Sub
Private Sub PackPerPallet_Afterupdate()
Call CalculateTotal2
End Sub
Sub CalculateTotal2()
Dim cal1, cal2 As Double
cal1 = Nz([WeightPerPack], 0) * Nz([PackPerPallet], 0)
cal2 = Nz([cal1], 0) + Nz([WeightPallet], 0)
Me.ToTalWeight = Nz([cal2], 0) + 0
End Sub
Private Sub Data_AfterUpdate()
txtRunningNum = Format([txtDate], "yymm") & "-" & Right("00000" & DCount("[RunningNum]", "[tblRunningNumber]", "Left([RunningNum],4) = Format([txtDate],'yymm')") + 1, 5)
End Sub*****************************************************************************************
***ผมทำได้แล้วครับ โง่มากเลยผม ลองผิดลองถูกมาทั้งวัน เนื่องจากไม่มีพื้นฐาน ไม่ค่อยเข้าใจเรื่องเครื่องหมาย ' " ในคำสั่ง SQL ครับ***
*****************************************************************************************
ไม่ต้องแทรกครับ ขึ้นเป็นลำดับใหม่ไปเลยครับ แล้วเมื่อครบ 25 แล้วอยยากให้มันขึ้นป้อนเลขใหม่เพื่อต่อจากเลขชุดที่แล้ว ครับ
(25รายการถ้านับรวม 11156ด้วยจะจบที่ 11180นะ) คือประมาณว่า มิน่าล่ะ เวลาหนูเขียนคำสั่งตรวจสอบหลายเงื่อนไข มันจึงฟ้องให้ต้องใส่ End if ซ้อนกันในตอนท้ายเสมอ
SELECT tb_province.province_id, tb_province.Province_th, tb_geography.GEO_NAME FROM tb_province INNER JOIN tb_geography ON tb_province.geo_id = tb_geography.GEO_ID WHERE (((tb_geography.GEO_NAME)=[Forms]![Form1]![Cb_geography]));
