ส่งโดยไปรษณีย์
ส่งโดยเจ้าหน้าที่
ass
Me!namework = Me!Name1
namework อยู่ ใน ตาราง นั้น
Name1 ค่าที่อยู่ใน form
Me!ass = Me!bb01
Me!ass = Me!bb01
="บ้านเลขที่ " & [อยู่บ้านเลขที่] & " หมู่" & [หมู่] & " ซอย" & [ซอย]& " ถนน" & [ถนน] & " ตำบล" & [ตำบล] & " อำเภอ" & [อำเภอ] & " จังหวัด" & [จังหวัด] & " " & [รหัสไปรษณีย์]
------------------------
Private Sub SaveA_Click()
If rubfongmainkey <> "" Then
Forms!FormKomrong!a4 = Me!rubfongmainkey
Forms!FormKomrong!Namerub = Me!jod
Forms!FormKomrong!dang1 = Me!dang1
Forms!FormKomrong!dang2 = Me!dang2
DoCmd.Close
Else
Label1.Visible = True
NewT.SetFocus
End If
End Sub
-----------------------
Private Sub Command289_Click()
On Error GoTo Err_Command289_Click
If T <> "" Then
If a1 <> "" Then
Cancel = False
TextC.Visible = True
Me!keynokumrong = a2 & "/" & a3
Me!namework = Me!Name1
a1.SetFocus
DoCmd.GoToRecord , , acNewRec
Command330.SetFocus
Me!NT = Me!NT + 1
Me!T = ""
Else
Cancel = True
Command330.SetFocus
End If
Else
คดีแดง: [ความ] & "หมายเลขแดงที่ " & [ผ/ฝ] & [หมายเลขแดงที่] & "/25" & [พศa]
="บ้านเลขที่ " & [อยู่บ้านเลขที่] & " หมู่ " & [หมู่] & " ถนน " & [ถนน] & " ตำบล " & [ตำบล] & " อำเภอ " & [อำเภอ] & " จังหวัด " & [จังหวัด] & " " & [รหัสไปรษณีย์]
k4
"บ้านเลขที่ "&[abc1]"หมู่ "&[abc2]"ถนน "&[abc3]"ตำบล "&[cb_district]"อำเภอ "&[cb_amphur]"จังหวัด "&[cb_province]" "&[txt_zipcode]
=[Pgerdday]![a]+[Rgerdday]![a]+[Bgerdday]![a]+[Kgerdday]![a]+[Cgerdday]![a]+[Tgerdday]![a]
FormmhaykowAJumnuT
FormmhaykowC
FormmhaykowC!FormmhaykowAJumnuT
SELECT tb_province.province_id, tb_province.Province_th FROM tb_province;
SELECT tb_amphur.amphur_id, tb_amphur.amphur_th FROM tb_province INNER JOIN tb_amphur ON tb_province.province_id=tb_amphur.province_id WHERE (((tb_province.Province_th)=Forms!FormmhaykowC!FormmhaykowAJumnuT!cb_province));
SELECT tb_district.district_id, tb_district.district_th FROM tb_district INNER JOIN tb_amphur ON tb_district.amphur_id=tb_amphur.amphur_id WHERE (((tb_amphur.amphur_th)=Forms!FormmhaykowC!FormmhaykowAJumnuT!cb_amphur));
SELECT tb_province.province_id, tb_province.Province_th FROM tb_province;
SELECT tb_amphur.amphur_id, tb_amphur.amphur_th FROM tb_province INNER JOIN tb_amphur ON tb_province.province_id=tb_amphur.province_id WHERE (((tb_province.Province_th)=Forms!subjumrubfongForm!subjumrubfong!cb_province));
SELECT tb_district.district_id, tb_district.district_th FROM tb_district INNER JOIN tb_amphur ON tb_district.amphur_id=tb_amphur.amphur_id WHERE (((tb_amphur.amphur_th)=Forms!subjumrubfongForm!subjumrubfong!cb_amphur));
AFormmhaykowBB
((AFormmhaykowBB.[ชื่อ และ นามสกุล]="นายอับดุลคอเฟ็ด หรือฟิต หลังปาปัน"))
AFormmhaykowBB.[ชื่อ และ นามสกุล]
จังหวัด
เมื่อจบการทำงาน
Private Sub cb_province_Exit(Cancel As Integer)
Me.cb_amphur.Requery
Me.cb_amphur = Null
Me.cb_district = Null
Me.txt_zipcode = Null
End Sub
อำเภอ
เมื่อเปลี่ยนแปลง
Private Sub cb_amphur_Change()
Me.cb_district.Requery
Me.cb_district = Null
Me.txt_zipcode = Null
End Sub
เมื่อได้รับโฟกัส
Private Sub cb_amphur_GotFocus()
Me.cb_amphur.Requery
End Sub
ตำบล
เมื่อเปลี่ยนแปลง
Private Sub cb_district_Change()
Me.txt_zipcode = DLookup("post_code", "tb_district", "district_th= '" & Me.cb_district & "' AND amphur_id = " & Me.cb_amphur.Column(0, Me.cb_amphur.ListIndex))
' Me.txt_zipcode = DLookup("post_code", "tb_district", "district_th= '" & Me.cb_district & "' AND province_id = " & Me.cb_province.Column(0, Me.cb_province.ListIndex) & " AND amphur_id = " & Me.cb_amphur.Column(0, Me.cb_amphur.ListIndex))
End Sub
เมื่อได้รับโฟกัส
Private Sub cb_district_GotFocus()
Me.cb_district.Requery
End Sub
AFormmhaykowC
((AFormmhaykowC.[บรรทัด3] Is Not Null))
FormmhaykowAJumnuT
