Posts
 
Reputation
Joined
Last Seen
0 Reputation Points
0% Quality Score
Upvotes Received
0
Posts with Upvotes
0
Upvoting Members
0
Downvotes Received
1
Posts with Downvotes
1
Downvoting Members
1
0 Endorsements

34 Posted Topics

Member Avatar for Xiao_1
Member Avatar for hefaz
0
49
Member Avatar for Xiao_1

how do i record the the time to the access database on VB with the date when register in Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lbltime.Text = "Time:" + TimeString End Sub End Class

Member Avatar for cuzintone
0
102
Member Avatar for Xiao_1

if i insert the new studadmin and the admincard and it Successfully Register but when i look at the access it not go the correct row is go to the timein and timeout i not sure which part wrong: Public Class Student_Form Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e …

0
71
Member Avatar for Xiao_1

if i insert the new studadmin and the admincard and it Successfully Register but when i look at the access it not go the correct row is go to the timein and timeout i not sure which part wrong: Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles …

Member Avatar for rubberman
0
219
Member Avatar for Xiao_1

Y could not move the listbox admin no to another leistox Private Sub btnAssign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssign.Click 'If ListBoxassign.SelectedItem IsNot Nothing Then ListBoxall.Items.Add(ListBoxassign.SelectedItem) 'End If End Sub Private Sub btnUnassign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnassign.Click ListBoxassign.Items.Remove(ListBoxassign.SelectedItem) End Sub End Class

Member Avatar for Mr.M
0
185
Member Avatar for Xiao_1

in this form the stuednt record the time when login so that when they take attendance know that time they come in this the code : Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lbltime.Text = "Time:" + TimeString If String.IsNullOrWhiteSpace(txtadmno.Text) Or String.IsNullOrWhiteSpace(txtcard.Text) Then 'MessageBox.Show("Please complete …

Member Avatar for Xiao_1
0
170
Member Avatar for Xiao_1

the monthCalendar how to i selct the date it will come out the timein & time out and name even i chosse anydate will come out Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected Dim calendarselct As String calendarselct = MonthCalendar1.SelectionRange.Start.Day.ToString & "/" & MonthCalendar1.SelectionRange.Start.Month.ToString & …

Member Avatar for Santanu.Das
-1
154
Member Avatar for Xiao_1

Y could not move the listbox admin no to another listbox Private Sub btnAssign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssign.Click 'If ListBoxassign.SelectedItem IsNot Nothing Then ListBoxall.Items.Add(ListBoxassign.SelectedItem) 'End If End Sub Private Sub btnUnassign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnassign.Click ListBoxassign.Items.Remove(ListBoxassign.SelectedItem) End Sub End Class

Member Avatar for Santanu.Das
0
117
Member Avatar for Xiao_1

when i click the btn assign the error come out where go worng? Private Sub btnAssign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssign.Click ListBoxall.Items.Add(ListBoxassign.SelectedItem) End Sub (**ArgumentNullExceotion was unhandld** *Value cannot be null. Parameter name: item)* the admin the listbox done not show up which part go wong …

Member Avatar for Santanu.Das
0
180
Member Avatar for Xiao_1

in Student Register_Form i key in the Stud Admin and admin card but when i key in the admin card one number it come out alot of small box that say (Insert time in) here is all the code: Public Class Student_Form Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e …

Member Avatar for tinstaafl
0
155
Member Avatar for Xiao_1

when Register in this also will record the time in to access also is this code corrct this my code Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lbltime.Text = "Time:" + TimeString If String.IsNullOrWhiteSpace(txtadmno.Text) Or String.IsNullOrWhiteSpace(txtcard.Text) Then 'MessageBox.Show("Please complete the on the box.", "Authentication Error", …

Member Avatar for SteveDotNet
0
346
Member Avatar for Xiao_1

if corrct this code it will come of the list in the datagridview in VB from access this my code: Private Sub ComboBoxadm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxadm.SelectedIndexChanged Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql …

Member Avatar for Reverend Jim
0
171
Member Avatar for Xiao_1

when done with the form it will come out antother that is this form in the listbox1 should show out dun need click anthing it will come out auto of the admin No why dose not show out Public Class DataOfProject Private Sub ListBoxassign_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As …

Member Avatar for Xiao_1
0
113
Member Avatar for Xiao_1

If String.IsNullOrWhiteSpace(txtadmno.Text) Or String.IsNullOrWhiteSpace(txtcard.Text) Then MessageBox.Show("Please complete the on the box.", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If Using conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb") Dim Result As Integer ** Dim sql As String = "INSERT [Date Select] From tbl_studentadm values (@DateSelect) "*****in here shold i key in the admin …

Member Avatar for Xiao_1
0
128
Member Avatar for Xiao_1

in the reisgter how i put it togeter time and date of the code when i keyin the admin No and admin card then it record the the access datatbase. Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click If String.IsNullOrWhiteSpace(txtcard.Text) Or String.IsNullOrWhiteSpace(txtadmno.Text) Then MessageBox.Show("Please complete the …

Member Avatar for LesF
0
191
Member Avatar for Xiao_1

how i put it like i am a student so i choose student and key in username n password, if choose worng like i click lectuere but i not, so cant is worng cant login Private Sub cbinfo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbinfo.SelectedIndexChanged Dim conn As …

Member Avatar for Xiao_1
0
101
Member Avatar for Xiao_1

when i login it will come 2 form one is info and other one is register form when i login that time my info come out come a samll form say error complet the box it should not come out this..!! where go worng

Member Avatar for Xiao_1
0
124
Member Avatar for Xiao_1

at the projct No i have choses it should the the project name on the textbox but did not come out Private Sub cbbproject_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbproject.SelectedIndexChanged Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim …

Member Avatar for Santanu.Das
0
110
Member Avatar for Xiao_1

Why done work is it some thing worng i only wan edit one or delete one of it? Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click If String.IsNullOrWhiteSpace(txtadmin.Text) Or String.IsNullOrWhiteSpace(txtname.Text) Or String.IsNullOrWhiteSpace(txtcourse.Text) Or String.IsNullOrWhiteSpace(txtic.Text) Or String.IsNullOrWhiteSpace(txtgender.Text) Or String.IsNullOrWhiteSpace(txtaddress.Text) Or String.IsNullOrWhiteSpace(DateTimePicker1.Value) Or String.IsNullOrWhiteSpace(txttel.Text) Or String.IsNullOrWhiteSpace(txtemail.Text) Or String.IsNullOrWhiteSpace(txttype.Text) …

Member Avatar for Santanu.Das
0
178
Member Avatar for Xiao_1

is this coorrct if write like this: Public Class Lecturer_Form Private Sub Lecturer_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "Select A.StaffNo,A.TimeIn,A.TimeOut, B.ProjectNo, C.AdminNo, C.UserName From tbl_lecturer …

Member Avatar for Xiao_1
0
186
Member Avatar for Xiao_1

in stuednt admin i wan it to insert and also select from tbl_stuendadmin how to put it togeter If String.IsNullOrWhiteSpace(txtcard.Text) Or String.IsNullOrWhiteSpace(txtadmno.Text) Then MessageBox.Show("Please complete the on the box.", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If Dim Conn As System.Data.OleDb.OleDbConnection Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" Conn = …

Member Avatar for Santanu.Das
0
150
Member Avatar for Xiao_1

i trying to put this in the combobox why did not come out Private Sub Lecturer_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "Select [StaffNo] From tbl_lecturer …

Member Avatar for Xiao_1
0
243
Member Avatar for Xiao_1

Private Sub cbbproject_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbproject.SelectedIndexChanged Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "Select * From tbl_assignment Where ProjectNo ='" & cbbproject.Items(cbbproject.SelectedIndex) & "'" Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql, conn) …

Member Avatar for Santanu.Das
0
124
Member Avatar for Xiao_1

I have two listbox and two button, one button is assign another is unassign in listbox1 have adminNo I wan the listbox1 of adminno go to listbox2 one by one when pressing button assign and i also can unassign go back to listbox1 one by one also is it: *listbox1.item.forword(sqlRead("AdminNo").ToString)*

Member Avatar for Santanu.Das
0
115
Member Avatar for Xiao_1

in existing project of combobox not just show the the project No. and also show the textbox of the project name this is my code is it corrct: Private Sub DataOfProject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If …

Member Avatar for Mr.M
0
230
Member Avatar for Xiao_1

Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "SHOW * From tbl_info Where AdminNo = '" & ListBoxassign.Items & "'" listboxassign.items.show(AdminNo)

Member Avatar for Santanu.Das
0
159
Member Avatar for Xiao_1

in combobox how do can i select the user as student not other e.g. if the user is student not Manager Private Sub loginform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" Try Dim sqlcmd As String = "SELECT * …

Member Avatar for Minimalist
0
138
Member Avatar for Xiao_1
Member Avatar for Xiao_1

i cant add in the data? code of add info: Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click If String.IsNullOrWhiteSpace(txtadmin.Text) Or String.IsNullOrWhiteSpace(txtname.Text) Or String.IsNullOrWhiteSpace(txtcourse.Text) Or String.IsNullOrWhiteSpace(txtic.Text) Or String.IsNullOrWhiteSpace(txtgender.Text) Or String.IsNullOrWhiteSpace(txtaddress.Text) Or String.IsNullOrWhiteSpace(txttel.Text) Or String.IsNullOrWhiteSpace(txtemail.Text) Or String.IsNullOrWhiteSpace(txttpye.Text) Then MessageBox.Show("Please complete the on the box.", "Authentication Error", MessageBoxButtons.OK, …

Member Avatar for Santanu.Das
0
389
Member Avatar for Xiao_1

hi do you all have any info of student attendance checking system using VB with Microsoft access woth the simple, guide, referenc or simple code on this

Member Avatar for Xiao_1
0
95
Member Avatar for Xiao_1
Member Avatar for Xiao_1
0
282
Member Avatar for Xiao_1

this is my code i dose not work: ( help me i am create for new user from VB with access) Public Class newuserForm Private Sub btncreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncreate.Click If txtword.Text = "" Or txtid.Text = "" Then MessageBox.Show("Please complete the required fields..", …

Member Avatar for Xiao_1
0
342
Member Avatar for Xiao_1

in vb if in form1 the user login how to come the form2 that come out information with access

Member Avatar for Santanu.Das
0
178
Member Avatar for tshukela.george

The End.