Hi,
Sorry guy, mybe this question disturbing .. i already make some form with four button, ADD, EDIT, UPDATE, CLEAR and CLOSE... everything ok before, but now after make some upgrading my sql.. run time error 94 always pop up when i click EDIT button.. sorry guy, mybe this sql to much to chek.. btw, very thankful if some body can help me.. here my sql..
..........................................................................................................
Option Compare Database
Private Sub cboanalisis1_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis1.SelStart = 1 Then
Me.cboanalisis1.Dropdown
End If
Me.TextHarga1 = Me.cboanalisis1.Column(2)
End Sub
Private Sub cboanalisis1_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis1 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis1.Dropdown
End If
End Sub
Private Sub cboanalisis2_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis2.SelStart = 1 Then
Me.cboanalisis2.Dropdown
End If
Me.TextHarga2 = Me.cboanalisis2.Column(2)
End Sub
Private Sub cboanalisis2_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis2 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis2.Dropdown
End If
End Sub
Private Sub cboanalisis3_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis3.SelStart = 1 Then
Me.cboanalisis3.Dropdown
End If
Me.TextHarga3 = Me.cboanalisis3.Column(2)
End Sub
Private Sub cboanalisis3_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis3 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis3.Dropdown
End If
End Sub
Private Sub cboanalisis4_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis4.SelStart = 1 Then
Me.cboanalisis4.Dropdown
End If
Me.TextHarga4 = Me.cboanalisis4.Column(2)
End Sub
Private Sub cboanalisis4_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis4 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis4.Dropdown
End If
End Sub
Private Sub cboanalisis5_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis5.SelStart = 1 Then
Me.cboanalisis5.Dropdown
End If
Me.TextHarga5 = Me.cboanalisis5.Column(2)
End Sub
Private Sub cboanalisis5_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis5 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis5.Dropdown
End If
End Sub
Private Sub cboanalisis6_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis6.SelStart = 1 Then
Me.cboanalisis6.Dropdown
End If
Me.TextHarga6 = Me.cboanalisis6.Column(2)
End Sub
Private Sub cboanalisis6_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis6 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis6.Dropdown
End If
End Sub
Private Sub cboanalisis7_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis7.SelStart = 1 Then
Me.cboanalisis7.Dropdown
End If
Me.TextHarga7 = Me.cboanalisis7.Column(2)
End Sub
Private Sub cboanalisis7_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis7 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis7.Dropdown
End If
End Sub
Private Sub cboanalisis8_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis8.SelStart = 1 Then
Me.cboanalisis8.Dropdown
End If
Me.TextHarga8 = Me.cboanalisis8.Column(2)
End Sub
Private Sub cboanalisis8_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis8 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis8.Dropdown
End If
End Sub
Private Sub cbokategori_LostFocus()
'Check if curent record is a new adn that the states combo has not changed
'Reset suburbs combo and text box if user wishes to change states
If Me.NewRecord = True Then
Me.cboanalisis1.Requery
Me.cboanalisis2.Requery
Me.cboanalisis3.Requery
Me.cboanalisis4.Requery
Me.cboanalisis5.Requery
Me.cboanalisis6.Requery
Me.cboanalisis7.Requery
Me.cboanalisis8.Requery
Exit Sub
Else
Me.cboanalisis1.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis1 = ""
Me.TextHarga1 = "0"
Me.cboanalisis2.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis2 = ""
Me.TextHarga2 = "0"
Me.cboanalisis3.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis3 = ""
Me.TextHarga3 = "0"
Me.cboanalisis4.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis4 = ""
Me.TextHarga4 = "0"
Me.cboanalisis5.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis5 = ""
Me.TextHarga5 = "0"
Me.cboanalisis6.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis6 = ""
Me.TextHarga6 = "0"
Me.cboanalisis7.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis7 = ""
Me.TextHarga7 = "0"
Me.cboanalisis8.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis8 = ""
Me.TextHarga8 = "0"
End If
Me.cboanalisis1.Requery
Me.cboanalisis2.Requery
Me.cboanalisis3.Requery
Me.cboanalisis4.Requery
Me.cboanalisis5.Requery
Me.cboanalisis6.Requery
Me.cboanalisis7.Requery
Me.cboanalisis8.Requery
End Sub
Private Sub cmdAdd_Click()
'when we click on button add there are two options
'1. for insert
'2. for update
If Me.txtidborang.Tag & "" = "" Then
'add data to table
CurrentDb.Execute "INSERT INTO Januari ( IDBorangkod, IDSampelkod, NoMatrikkod, NamaPenggunakod, NamaPenyeliakod, Kategorikod, ProsesPembayarankod, PusatPengajianUKMkod, Fakultikod, Statuskod, BilSampelkod, LabelSampelkod, JenisAnalisis1kod, Unit1kod, JenisAnalisis2kod, Unit2kod, JenisAnalisis3kod, Unit3kod, JenisAnalisis4kod, Unit4kod, JenisAnalisis5kod, " & _
" Unit5kod, JenisAnalisis6kod, Unit6kod, JenisAnalisis7kod, Unit7kod, JenisAnalisis8kod, Unit8kod, Masakod, KosAnalisiskod, NoGerankod, StatusPembayarankod, NamaInstitusiLuarUKMkod, AlamatLuarUKMkod, Catatankod, Masa1kod, Masa2kod, Masa3kod, Masa4kod, Masa5kod, Masa6kod, Masa7kod, Masa8kod, TextHarga1kod, TextHarga2kod, TextHarga3kod, TextHarga4kod, TextHarga5kod, TextHarga6kod, TextHarga7kod, TextHarga8kod ) " & _
" VALUES ('" & Me.txtidborang & "','" & Me.txtidsampel & "','" & Me.txtukmper & "','" & Me.txtnamapengguna & "','" & Me.txtpenyelia & "','" & Me.cbokategori & "','" & Me.cboprosespembayaran & "','" & Me.cbopusat & "','" & Me.cbofakulti & "','" & Me.cbostatus & "','" & Me.txtbilsampel & "','" & Me.txtlabel & "','" & Me.cboanalisis1 & "','" & Me.cbounit1 & "','" & Me.cboanalisis2 & "','" & Me.cbounit2 & "','" & Me.cboanalisis3 & "','" & Me.cbounit3 & "','" & Me.cboanalisis4 & "','" & Me.cbounit4 & "','" & Me.cboanalisis5 & "','" & Me.cbounit5 & "','" & Me.cboanalisis6 & "','" & Me.cbounit6 & "','" & Me.cboanalisis7 & "','" & Me.cbounit7 & "','" & Me.cboanalisis8 & "','" & Me.cbounit8 & "','" & Me.txtmasa & "','" & Me.txtkos & "','" & Me.txtnogeran & "','" & Me.cbostatuspembayaran & "','" & Me.txtnamainstitusi & "','" & Me.txtalamatluar & "','" & Me.txtcatatan & "'" & _
",'" & Me.Masa1 & "','" & Me.Masa2 & "','" & Me.Masa3 & "','" & Me.Masa4 & "','" & Me.Masa5 & "','" & Me.Masa6 & "','" & Me.Masa7 & "','" & Me.Masa8 & "','" & Me.TextHarga1 & "','" & Me.TextHarga2 & "','" & Me.TextHarga3 & "','" & Me.TextHarga4 & "','" & Me.TextHarga5 & "','" & Me.TextHarga6 & "','" & Me.TextHarga7 & "','" & Me.TextHarga8 & "') ;"
cmdClear2_Click
Else
'otherwhise (tag of txtidborang store the id of januari to modified)
CurrentDb.Execute "UPDATE Januari " & _
"SET IDBorangkod='" & Me.txtidborang & "'" & ",IDSampelkod='" & Me.txtidsampel & "'" & ",NoMatrikkod='" & Me.txtukmper & "'" & ",NamaPenggunakod='" & Me.txtnamapengguna & "'" & _
",NamaPenyeliakod='" & Me.txtpenyelia & "'" & ",Kategorikod='" & Me.cbokategori & "'" & ",ProsesPembayarankod='" & Me.cboprosespembayaran & "'" & ",PusatPengajianUKMkod='" & Me.cbopusat & "'" & _
",Fakultikod='" & Me.cbofakulti & "'" & ",Statuskod='" & Me.cbostatus & "'" & ",BilSampelkod='" & Me.txtbilsampel & "'" & ",LabelSampelkod='" & Me.txtlabel & "'" & ",JenisAnalisis1kod='" & Me.cboanalisis1 & "'" & _
",JenisAnalisis2kod='" & Me.cboanalisis2 & "'" & ",JenisAnalisis3kod='" & Me.cboanalisis3 & "'" & ",JenisAnalisis4kod='" & Me.cboanalisis4 & "'" & ",JenisAnalisis5kod='" & Me.cboanalisis5 & "'" & _
",JenisAnalisis6kod='" & Me.cboanalisis6 & "'" & ",JenisAnalisis7kod='" & Me.cboanalisis7 & "'" & ",JenisAnalisis8kod='" & Me.cboanalisis8 & "'" & ",Unit1kod='" & Me.cbounit1 & "'" & ",Unit2kod='" & Me.cbounit2 & "'" & ",Unit3kod='" & Me.cbounit3 & "'" & ",Unit4kod='" & Me.cbounit4 & "'" & ",Unit5kod='" & Me.cbounit5 & "'" & ",Unit6kod='" & Me.cbounit6 & "'" & ",Unit7kod='" & Me.cbounit7 & "'" & ",Unit8kod='" & Me.cbounit8 & "'" & _
",Masakod='" & Me.txtmasa & "'" & _
",KosAnalisiskod='" & Me.txtkos & "'" & ",NoGerankod='" & Me.txtnogeran & "'" & ",StatusPembayarankod='" & Me.cbostatuspembayaran & "'" & ",NamaInstitusiLuarUKMkod='" & Me.txtnamainstitusi & "'" & _
",AlamatLuarUKMkod='" & Me.txtalamatluar & "'" & ",Catatankod='" & Me.txtcatatan & "'" & ",Masa1kod='" & Me.Masa1 & "'" & ",Masa2kod='" & Me.Masa2 & "'" & ",Masa3kod='" & Me.Masa3 & "'" & ",Masa4kod='" & Me.Masa4 & "'" & ",Masa5kod='" & Me.Masa5 & "'" & ",Masa6kod='" & Me.Masa6 & "'" & ",Masa7kod='" & Me.Masa7 & "'" & ",Masa8kod='" & Me.Masa8 & "'" & _
",TextHarga1kod='" & Me.TextHarga1 & "'" & ",TextHarga2kod='" & Me.TextHarga2 & "'" & ",TextHarga3kod='" & Me.TextHarga3 & "'" & ",TextHarga4kod='" & Me.TextHarga4 & "'" & ",TextHarga5kod='" & Me.TextHarga5 & "'" & ",TextHarga6kod='" & Me.TextHarga6 & "'" & ",TextHarga7kod='" & Me.TextHarga7 & "'" & ",TextHarga8kod='" & Me.TextHarga8 & "'" & _
"WHERE ID= " & Me.Januarisub.Form.Recordset.Fields("ID")
cmdClear_Click
End If
'clear form
'refresh data in list on form
Januarisub.Form.Requery
End Sub
Private Sub cmdClear_Click()
Me.txtidborang = ""
Me.txtidsampel = ""
Me.txtukmper = ""
Me.txtnamapengguna = ""
Me.txtpenyelia = ""
Me.cbokategori = ""
Me.cboprosespembayaran = ""
Me.cbopusat = ""
Me.cbofakulti = ""
Me.cbostatus = ""
Me.txtbilsampel = ""
Me.txtlabel = ""
Me.cboanalisis1 = ""
Me.cboanalisis2 = ""
Me.cboanalisis3 = ""
Me.cboanalisis4 = ""
Me.cboanalisis5 = ""
Me.cboanalisis6 = ""
Me.cboanalisis7 = ""
Me.cboanalisis8 = ""
Me.Masa1 = "0"
Me.Masa2 = "0"
Me.Masa3 = "0"
Me.Masa4 = "0"
Me.Masa5 = "0"
Me.Masa6 = "0"
Me.Masa7 = "0"
Me.Masa8 = "0"
Me.TextHarga1 = "0"
Me.TextHarga2 = "0"
Me.TextHarga3 = "0"
Me.TextHarga4 = "0"
Me.TextHarga5 = "0"
Me.TextHarga6 = "0"
Me.TextHarga7 = "0"
Me.TextHarga8 = "0"
Me.txtnogeran = ""
Me.cbostatuspembayaran = ""
Me.txtnamainstitusi = ""
Me.txtalamatluar = ""
Me.txtcatatan = ""
'focus on ID borang
Me.txtidborang.SetFocus
'set button edit to enable
Me.cmdEdit.Enabled = True
'change caption button add to Add
Me.cmdAdd.Caption = "Add"
'clear tag on txtidborang for reset new
Me.txtidborang.Tag = ""
End Sub
Private Sub cmdClear2_Click()
Me.cboanalisis1 = ""
Me.cboanalisis2 = ""
Me.cboanalisis3 = ""
Me.cboanalisis4 = ""
Me.cboanalisis5 = ""
Me.cboanalisis6 = ""
Me.cboanalisis7 = ""
Me.cboanalisis8 = ""
Me.Masa1 = "0"
Me.Masa2 = "0"
Me.Masa3 = "0"
Me.Masa4 = "0"
Me.Masa5 = "0"
Me.Masa6 = "0"
Me.Masa7 = "0"
Me.Masa8 = "0"
Me.TextHarga1 = "0"
Me.TextHarga2 = "0"
Me.TextHarga3 = "0"
Me.TextHarga4 = "0"
Me.TextHarga5 = "0"
Me.TextHarga6 = "0"
Me.TextHarga7 = "0"
Me.TextHarga8 = "0"
End Sub
Private Sub cmdClose_Click()
DoCmd.Close
End Sub
Private Sub cmdDelete_Click()
'delete record
'chek existing selected record
If Not (Me.Januarisub.Form.Recordset.EOF And Me.Januarisub.Form.Recordset.BOF) Then
'confirm delete
If MsgBox("Are you sure to delete?", vbYesNo) = vbYes Then
'delete now
CurrentDb.Execute "DELETE FROM Januari " & _
"WHERE ID= " & Me.Januarisub.Form.Recordset.Fields("ID")
'refresh data on list
Me.Januarisub.Form.Requery
End If
End If
End Sub
Private Sub cmdEdit_Click()
'chek whether there exists data in list
If Not (Me.Januarisub.Form.Recordset.EOF And Me.Januarisub.Form.Recordset.BOF) Then
With Me.Januarisub.Form.Recordset
Me.txtidborang = .Fields("IDBorangkod")
Me.txtidsampel = .Fields("IDSampelkod")
Me.txtukmper = .Fields("NoMatrikkod")
Me.txtnamapengguna = .Fields("NamaPenggunakod")
Me.txtpenyelia = .Fields("NamaPenyeliakod")
Me.cbokategori = .Fields("Kategorikod")
Me.cboprosespembayaran = .Fields("ProsesPembayarankod")
Me.cbopusat = .Fields("PusatPengajianUKMkod")
Me.cbofakulti = .Fields("Fakultikod")
Me.cbostatus = .Fields("Statuskod")
Me.txtbilsampel = .Fields("BilSampelkod")
Me.txtlabel = .Fields("LabelSampelkod")
Me.cboanalisis1 = .Fields("JenisAnalisis1kod")
Me.cboanalisis2 = .Fields("JenisAnalisis2kod")
Me.cboanalisis3 = .Fields("JenisAnalisis3kod")
Me.cboanalisis4 = .Fields("JenisAnalisis4kod")
Me.cboanalisis5 = .Fields("JenisAnalisis5kod")
Me.cboanalisis6 = .Fields("JenisAnalisis6kod")
Me.cboanalisis7 = .Fields("JenisAnalisis7kod")
Me.cboanalisis8 = .Fields("JenisAnalisis8kod")
Me.Masa1 = .Fields("Masa1kod")
Me.Masa2 = .Fields("Masa2kod")
Me.Masa3 = .Fields("Masa3kod")
Me.Masa4 = .Fields("Masa4kod")
Me.Masa5 = .Fields("Masa5kod")
Me.Masa6 = .Fields("Masa6kod")
Me.Masa7 = .Fields("Masa7kod")
Me.Masa8 = .Fields("Masa8kod")
Me.TextHarga1 = .Fields("TextHarga1kod")
Me.TextHarga2 = .Fields("TextHarga2kod")
Me.TextHarga3 = .Fields("TextHarga3kod")
Me.TextHarga4 = .Fields("TextHarga4kod")
Me.TextHarga5 = .Fields("TextHarga5kod")
Me.TextHarga6 = .Fields("TextHarga6kod")
Me.TextHarga7 = .Fields("TextHarga7kod")
Me.TextHarga8 = .Fields("TextHarga8kod")
Me.txtnogeran = .Fields("NoGerankod")
Me.cbostatuspembayaran = .Fields("StatusPembayarankod")
Me.txtnamainstitusi = .Fields("NamaInstitusiLuarUKMkod")
Me.txtalamatluar = .Fields("AlamatLuarUKMkod")
Me.txtcatatan = .Fields("Catatankod")
'store id of student in tag
Me.txtidborang.Tag = .Fields("IDBorangkod")
'change button add to update
Me.cmdAdd.Caption = "Update"
'disable button edit
Me.cmdEdit.Enabled = False
End With
End If
End Sub
..........................................................................
i only hope this forum to help me... thank you first.
Sorry guy, mybe this question disturbing .. i already make some form with four button, ADD, EDIT, UPDATE, CLEAR and CLOSE... everything ok before, but now after make some upgrading my sql.. run time error 94 always pop up when i click EDIT button.. sorry guy, mybe this sql to much to chek.. btw, very thankful if some body can help me.. here my sql..
..........................................................................................................
Option Compare Database
Private Sub cboanalisis1_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis1.SelStart = 1 Then
Me.cboanalisis1.Dropdown
End If
Me.TextHarga1 = Me.cboanalisis1.Column(2)
End Sub
Private Sub cboanalisis1_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis1 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis1.Dropdown
End If
End Sub
Private Sub cboanalisis2_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis2.SelStart = 1 Then
Me.cboanalisis2.Dropdown
End If
Me.TextHarga2 = Me.cboanalisis2.Column(2)
End Sub
Private Sub cboanalisis2_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis2 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis2.Dropdown
End If
End Sub
Private Sub cboanalisis3_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis3.SelStart = 1 Then
Me.cboanalisis3.Dropdown
End If
Me.TextHarga3 = Me.cboanalisis3.Column(2)
End Sub
Private Sub cboanalisis3_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis3 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis3.Dropdown
End If
End Sub
Private Sub cboanalisis4_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis4.SelStart = 1 Then
Me.cboanalisis4.Dropdown
End If
Me.TextHarga4 = Me.cboanalisis4.Column(2)
End Sub
Private Sub cboanalisis4_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis4 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis4.Dropdown
End If
End Sub
Private Sub cboanalisis5_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis5.SelStart = 1 Then
Me.cboanalisis5.Dropdown
End If
Me.TextHarga5 = Me.cboanalisis5.Column(2)
End Sub
Private Sub cboanalisis5_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis5 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis5.Dropdown
End If
End Sub
Private Sub cboanalisis6_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis6.SelStart = 1 Then
Me.cboanalisis6.Dropdown
End If
Me.TextHarga6 = Me.cboanalisis6.Column(2)
End Sub
Private Sub cboanalisis6_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis6 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis6.Dropdown
End If
End Sub
Private Sub cboanalisis7_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis7.SelStart = 1 Then
Me.cboanalisis7.Dropdown
End If
Me.TextHarga7 = Me.cboanalisis7.Column(2)
End Sub
Private Sub cboanalisis7_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis7 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis7.Dropdown
End If
End Sub
Private Sub cboanalisis8_Change()
'Force Suburbs combo to drop down when user start typing
If Me.cboanalisis8.SelStart = 1 Then
Me.cboanalisis8.Dropdown
End If
Me.TextHarga8 = Me.cboanalisis8.Column(2)
End Sub
Private Sub cboanalisis8_GotFocus()
'Force Suburbs combo to drop down
If Me.cboanalisis8 = 0 And Not IsNull(Me.cbokategori) Then
Me.cboanalisis8.Dropdown
End If
End Sub
Private Sub cbokategori_LostFocus()
'Check if curent record is a new adn that the states combo has not changed
'Reset suburbs combo and text box if user wishes to change states
If Me.NewRecord = True Then
Me.cboanalisis1.Requery
Me.cboanalisis2.Requery
Me.cboanalisis3.Requery
Me.cboanalisis4.Requery
Me.cboanalisis5.Requery
Me.cboanalisis6.Requery
Me.cboanalisis7.Requery
Me.cboanalisis8.Requery
Exit Sub
Else
Me.cboanalisis1.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis1 = ""
Me.TextHarga1 = "0"
Me.cboanalisis2.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis2 = ""
Me.TextHarga2 = "0"
Me.cboanalisis3.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis3 = ""
Me.TextHarga3 = "0"
Me.cboanalisis4.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis4 = ""
Me.TextHarga4 = "0"
Me.cboanalisis5.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis5 = ""
Me.TextHarga5 = "0"
Me.cboanalisis6.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis6 = ""
Me.TextHarga6 = "0"
Me.cboanalisis7.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis7 = ""
Me.TextHarga7 = "0"
Me.cboanalisis8.RowSource = "SELECT TAnalisis.IDHarga, TAnalisis.Analisis, TAnalisis.Harga, TStatus.IDStatus " & _
"FROM TStatus INNER JOIN TAnalisis ON TStatus.IDStatus = TAnalisis.IDStatus " & _
"WHERE (((TStatus.IDStatus)=[forms]![Januari]![cbokategori])) ORDER BY TAnalisis.Analisis;"
Me.cboanalisis8 = ""
Me.TextHarga8 = "0"
End If
Me.cboanalisis1.Requery
Me.cboanalisis2.Requery
Me.cboanalisis3.Requery
Me.cboanalisis4.Requery
Me.cboanalisis5.Requery
Me.cboanalisis6.Requery
Me.cboanalisis7.Requery
Me.cboanalisis8.Requery
End Sub
Private Sub cmdAdd_Click()
'when we click on button add there are two options
'1. for insert
'2. for update
If Me.txtidborang.Tag & "" = "" Then
'add data to table
CurrentDb.Execute "INSERT INTO Januari ( IDBorangkod, IDSampelkod, NoMatrikkod, NamaPenggunakod, NamaPenyeliakod, Kategorikod, ProsesPembayarankod, PusatPengajianUKMkod, Fakultikod, Statuskod, BilSampelkod, LabelSampelkod, JenisAnalisis1kod, Unit1kod, JenisAnalisis2kod, Unit2kod, JenisAnalisis3kod, Unit3kod, JenisAnalisis4kod, Unit4kod, JenisAnalisis5kod, " & _
" Unit5kod, JenisAnalisis6kod, Unit6kod, JenisAnalisis7kod, Unit7kod, JenisAnalisis8kod, Unit8kod, Masakod, KosAnalisiskod, NoGerankod, StatusPembayarankod, NamaInstitusiLuarUKMkod, AlamatLuarUKMkod, Catatankod, Masa1kod, Masa2kod, Masa3kod, Masa4kod, Masa5kod, Masa6kod, Masa7kod, Masa8kod, TextHarga1kod, TextHarga2kod, TextHarga3kod, TextHarga4kod, TextHarga5kod, TextHarga6kod, TextHarga7kod, TextHarga8kod ) " & _
" VALUES ('" & Me.txtidborang & "','" & Me.txtidsampel & "','" & Me.txtukmper & "','" & Me.txtnamapengguna & "','" & Me.txtpenyelia & "','" & Me.cbokategori & "','" & Me.cboprosespembayaran & "','" & Me.cbopusat & "','" & Me.cbofakulti & "','" & Me.cbostatus & "','" & Me.txtbilsampel & "','" & Me.txtlabel & "','" & Me.cboanalisis1 & "','" & Me.cbounit1 & "','" & Me.cboanalisis2 & "','" & Me.cbounit2 & "','" & Me.cboanalisis3 & "','" & Me.cbounit3 & "','" & Me.cboanalisis4 & "','" & Me.cbounit4 & "','" & Me.cboanalisis5 & "','" & Me.cbounit5 & "','" & Me.cboanalisis6 & "','" & Me.cbounit6 & "','" & Me.cboanalisis7 & "','" & Me.cbounit7 & "','" & Me.cboanalisis8 & "','" & Me.cbounit8 & "','" & Me.txtmasa & "','" & Me.txtkos & "','" & Me.txtnogeran & "','" & Me.cbostatuspembayaran & "','" & Me.txtnamainstitusi & "','" & Me.txtalamatluar & "','" & Me.txtcatatan & "'" & _
",'" & Me.Masa1 & "','" & Me.Masa2 & "','" & Me.Masa3 & "','" & Me.Masa4 & "','" & Me.Masa5 & "','" & Me.Masa6 & "','" & Me.Masa7 & "','" & Me.Masa8 & "','" & Me.TextHarga1 & "','" & Me.TextHarga2 & "','" & Me.TextHarga3 & "','" & Me.TextHarga4 & "','" & Me.TextHarga5 & "','" & Me.TextHarga6 & "','" & Me.TextHarga7 & "','" & Me.TextHarga8 & "') ;"
cmdClear2_Click
Else
'otherwhise (tag of txtidborang store the id of januari to modified)
CurrentDb.Execute "UPDATE Januari " & _
"SET IDBorangkod='" & Me.txtidborang & "'" & ",IDSampelkod='" & Me.txtidsampel & "'" & ",NoMatrikkod='" & Me.txtukmper & "'" & ",NamaPenggunakod='" & Me.txtnamapengguna & "'" & _
",NamaPenyeliakod='" & Me.txtpenyelia & "'" & ",Kategorikod='" & Me.cbokategori & "'" & ",ProsesPembayarankod='" & Me.cboprosespembayaran & "'" & ",PusatPengajianUKMkod='" & Me.cbopusat & "'" & _
",Fakultikod='" & Me.cbofakulti & "'" & ",Statuskod='" & Me.cbostatus & "'" & ",BilSampelkod='" & Me.txtbilsampel & "'" & ",LabelSampelkod='" & Me.txtlabel & "'" & ",JenisAnalisis1kod='" & Me.cboanalisis1 & "'" & _
",JenisAnalisis2kod='" & Me.cboanalisis2 & "'" & ",JenisAnalisis3kod='" & Me.cboanalisis3 & "'" & ",JenisAnalisis4kod='" & Me.cboanalisis4 & "'" & ",JenisAnalisis5kod='" & Me.cboanalisis5 & "'" & _
",JenisAnalisis6kod='" & Me.cboanalisis6 & "'" & ",JenisAnalisis7kod='" & Me.cboanalisis7 & "'" & ",JenisAnalisis8kod='" & Me.cboanalisis8 & "'" & ",Unit1kod='" & Me.cbounit1 & "'" & ",Unit2kod='" & Me.cbounit2 & "'" & ",Unit3kod='" & Me.cbounit3 & "'" & ",Unit4kod='" & Me.cbounit4 & "'" & ",Unit5kod='" & Me.cbounit5 & "'" & ",Unit6kod='" & Me.cbounit6 & "'" & ",Unit7kod='" & Me.cbounit7 & "'" & ",Unit8kod='" & Me.cbounit8 & "'" & _
",Masakod='" & Me.txtmasa & "'" & _
",KosAnalisiskod='" & Me.txtkos & "'" & ",NoGerankod='" & Me.txtnogeran & "'" & ",StatusPembayarankod='" & Me.cbostatuspembayaran & "'" & ",NamaInstitusiLuarUKMkod='" & Me.txtnamainstitusi & "'" & _
",AlamatLuarUKMkod='" & Me.txtalamatluar & "'" & ",Catatankod='" & Me.txtcatatan & "'" & ",Masa1kod='" & Me.Masa1 & "'" & ",Masa2kod='" & Me.Masa2 & "'" & ",Masa3kod='" & Me.Masa3 & "'" & ",Masa4kod='" & Me.Masa4 & "'" & ",Masa5kod='" & Me.Masa5 & "'" & ",Masa6kod='" & Me.Masa6 & "'" & ",Masa7kod='" & Me.Masa7 & "'" & ",Masa8kod='" & Me.Masa8 & "'" & _
",TextHarga1kod='" & Me.TextHarga1 & "'" & ",TextHarga2kod='" & Me.TextHarga2 & "'" & ",TextHarga3kod='" & Me.TextHarga3 & "'" & ",TextHarga4kod='" & Me.TextHarga4 & "'" & ",TextHarga5kod='" & Me.TextHarga5 & "'" & ",TextHarga6kod='" & Me.TextHarga6 & "'" & ",TextHarga7kod='" & Me.TextHarga7 & "'" & ",TextHarga8kod='" & Me.TextHarga8 & "'" & _
"WHERE ID= " & Me.Januarisub.Form.Recordset.Fields("ID")
cmdClear_Click
End If
'clear form
'refresh data in list on form
Januarisub.Form.Requery
End Sub
Private Sub cmdClear_Click()
Me.txtidborang = ""
Me.txtidsampel = ""
Me.txtukmper = ""
Me.txtnamapengguna = ""
Me.txtpenyelia = ""
Me.cbokategori = ""
Me.cboprosespembayaran = ""
Me.cbopusat = ""
Me.cbofakulti = ""
Me.cbostatus = ""
Me.txtbilsampel = ""
Me.txtlabel = ""
Me.cboanalisis1 = ""
Me.cboanalisis2 = ""
Me.cboanalisis3 = ""
Me.cboanalisis4 = ""
Me.cboanalisis5 = ""
Me.cboanalisis6 = ""
Me.cboanalisis7 = ""
Me.cboanalisis8 = ""
Me.Masa1 = "0"
Me.Masa2 = "0"
Me.Masa3 = "0"
Me.Masa4 = "0"
Me.Masa5 = "0"
Me.Masa6 = "0"
Me.Masa7 = "0"
Me.Masa8 = "0"
Me.TextHarga1 = "0"
Me.TextHarga2 = "0"
Me.TextHarga3 = "0"
Me.TextHarga4 = "0"
Me.TextHarga5 = "0"
Me.TextHarga6 = "0"
Me.TextHarga7 = "0"
Me.TextHarga8 = "0"
Me.txtnogeran = ""
Me.cbostatuspembayaran = ""
Me.txtnamainstitusi = ""
Me.txtalamatluar = ""
Me.txtcatatan = ""
'focus on ID borang
Me.txtidborang.SetFocus
'set button edit to enable
Me.cmdEdit.Enabled = True
'change caption button add to Add
Me.cmdAdd.Caption = "Add"
'clear tag on txtidborang for reset new
Me.txtidborang.Tag = ""
End Sub
Private Sub cmdClear2_Click()
Me.cboanalisis1 = ""
Me.cboanalisis2 = ""
Me.cboanalisis3 = ""
Me.cboanalisis4 = ""
Me.cboanalisis5 = ""
Me.cboanalisis6 = ""
Me.cboanalisis7 = ""
Me.cboanalisis8 = ""
Me.Masa1 = "0"
Me.Masa2 = "0"
Me.Masa3 = "0"
Me.Masa4 = "0"
Me.Masa5 = "0"
Me.Masa6 = "0"
Me.Masa7 = "0"
Me.Masa8 = "0"
Me.TextHarga1 = "0"
Me.TextHarga2 = "0"
Me.TextHarga3 = "0"
Me.TextHarga4 = "0"
Me.TextHarga5 = "0"
Me.TextHarga6 = "0"
Me.TextHarga7 = "0"
Me.TextHarga8 = "0"
End Sub
Private Sub cmdClose_Click()
DoCmd.Close
End Sub
Private Sub cmdDelete_Click()
'delete record
'chek existing selected record
If Not (Me.Januarisub.Form.Recordset.EOF And Me.Januarisub.Form.Recordset.BOF) Then
'confirm delete
If MsgBox("Are you sure to delete?", vbYesNo) = vbYes Then
'delete now
CurrentDb.Execute "DELETE FROM Januari " & _
"WHERE ID= " & Me.Januarisub.Form.Recordset.Fields("ID")
'refresh data on list
Me.Januarisub.Form.Requery
End If
End If
End Sub
Private Sub cmdEdit_Click()
'chek whether there exists data in list
If Not (Me.Januarisub.Form.Recordset.EOF And Me.Januarisub.Form.Recordset.BOF) Then
With Me.Januarisub.Form.Recordset
Me.txtidborang = .Fields("IDBorangkod")
Me.txtidsampel = .Fields("IDSampelkod")
Me.txtukmper = .Fields("NoMatrikkod")
Me.txtnamapengguna = .Fields("NamaPenggunakod")
Me.txtpenyelia = .Fields("NamaPenyeliakod")
Me.cbokategori = .Fields("Kategorikod")
Me.cboprosespembayaran = .Fields("ProsesPembayarankod")
Me.cbopusat = .Fields("PusatPengajianUKMkod")
Me.cbofakulti = .Fields("Fakultikod")
Me.cbostatus = .Fields("Statuskod")
Me.txtbilsampel = .Fields("BilSampelkod")
Me.txtlabel = .Fields("LabelSampelkod")
Me.cboanalisis1 = .Fields("JenisAnalisis1kod")
Me.cboanalisis2 = .Fields("JenisAnalisis2kod")
Me.cboanalisis3 = .Fields("JenisAnalisis3kod")
Me.cboanalisis4 = .Fields("JenisAnalisis4kod")
Me.cboanalisis5 = .Fields("JenisAnalisis5kod")
Me.cboanalisis6 = .Fields("JenisAnalisis6kod")
Me.cboanalisis7 = .Fields("JenisAnalisis7kod")
Me.cboanalisis8 = .Fields("JenisAnalisis8kod")
Me.Masa1 = .Fields("Masa1kod")
Me.Masa2 = .Fields("Masa2kod")
Me.Masa3 = .Fields("Masa3kod")
Me.Masa4 = .Fields("Masa4kod")
Me.Masa5 = .Fields("Masa5kod")
Me.Masa6 = .Fields("Masa6kod")
Me.Masa7 = .Fields("Masa7kod")
Me.Masa8 = .Fields("Masa8kod")
Me.TextHarga1 = .Fields("TextHarga1kod")
Me.TextHarga2 = .Fields("TextHarga2kod")
Me.TextHarga3 = .Fields("TextHarga3kod")
Me.TextHarga4 = .Fields("TextHarga4kod")
Me.TextHarga5 = .Fields("TextHarga5kod")
Me.TextHarga6 = .Fields("TextHarga6kod")
Me.TextHarga7 = .Fields("TextHarga7kod")
Me.TextHarga8 = .Fields("TextHarga8kod")
Me.txtnogeran = .Fields("NoGerankod")
Me.cbostatuspembayaran = .Fields("StatusPembayarankod")
Me.txtnamainstitusi = .Fields("NamaInstitusiLuarUKMkod")
Me.txtalamatluar = .Fields("AlamatLuarUKMkod")
Me.txtcatatan = .Fields("Catatankod")
'store id of student in tag
Me.txtidborang.Tag = .Fields("IDBorangkod")
'change button add to update
Me.cmdAdd.Caption = "Update"
'disable button edit
Me.cmdEdit.Enabled = False
End With
End If
End Sub
..........................................................................
i only hope this forum to help me... thank you first.
Last edited:
