Option Compare Database
Option Explicit

Sub clearTextBoxes()
''clearing the tow texboxes txtCompanyName and txtCustomerId
Me.customerNumber.Value = ""
Me.customerName.Value = ""
End Sub
Sub getReadyForAnAddOperation()

Me.cmdSave__.Enabled = True
Me.cmdSave__.SetFocus
Me.cmdCancel.Enabled = True

Me.cmdAdd__.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdDelete.Enabled = False

End Sub

Sub stateOnLoad()

Me.customerName.SetFocus
Me.cmdCancel.Enabled = True
Me.cmdSave__.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdAdd__.Enabled = True

'''disableing the cancel and save button on load

'''Me.cmdCancel.Enabled = False
'''Me.cmdSave__.Enabled = False

End Sub


'declaring subrotine
Sub FillFeilds()

Me.customerNumber = myRS.Fields("customerno")
Me.customerName = myRS.Fields("customername")


End Sub

Private Sub cmdAdd___Click()
clearTextBoxes
getReadyForAnAddOperation
pbAddingARecord = True
'''changing the value of this boolean variable

myRS.AddNew

End Sub

Private Sub cmdCancel_Click()
FillFeilds
stateOnLoad
End Sub

Private Sub cmdDelete_Click()

Dim x As Variant

x = MsgBox(" You are abut to delete " & Me.customerName & " from this table - proceed ? ", vbOKCancel)

If x = 1 Then

With myRS

.Delete
.MoveFirst
FillFeilds
stateOnLoad

End With

End If

End Sub

Private Sub cmdEdit_Click()
''clearTextBoxes
getReadyForAnAddOperation
pbEditingARecord = True
'''changing the value of this boolean variable

End Sub

Private Sub cmdMoveFirst_Click()
myRS.MoveFirst
FillFeilds
End Sub

Private Sub cmdMoveLast_Click()
myRS.MoveLast
FillFeilds
End Sub

Private Sub cmdMoveNext_Click()

If pbAddingARecord = True Or pbEditingARecord = True Then
MsgBox ("Please  save or cancel changes first ")
Exit Sub
End If
myRS.MoveNext
If myRS.EOF Then

MsgBox ("Last Record")
myRS.MovePrevious

End If

FillFeilds
End Sub

Private Sub cmdMovePreviouse_Click()
myRS.MovePrevious

If myRS.BOF Then
MsgBox (" First record")
myRS.MoveNext

End If

FillFeilds
End Sub

Private Sub cmdSave___Click()
If pbAddingARecord = True Then



myRS.AddNew

End If

If pbEditingARecord = True Then

myRS.Edit

End If


'''inserting the value of textboxes to the table fields.feeding the date to record set

myRS.Fields("customerno").Value = Me.customerNumber.Value
myRS.Fields("customername").Value = Me.customerName.Value

'''calling update method. it comittes the changes
myRS.Update


pbAddingARecord = False
pbEditingARecord = False
stateOnLoad
End Sub

Private Sub Form_Load()

Set db = CurrentDb()

'''Set myRS = db.OpenRecordset("select * from customer")

Set myRS = db.OpenRecordset("customer", dbOpenTable)

''' need to learn how to add index to customer table

'''myRS.Index = ("Company Name")

'calling subroutine
stateOnLoad
FillFeilds

End Sub

Private Sub lblFindIt_Click()

With myRS

Select Case Me.lblFindIt.Caption

Case "Company Name"

Me.lblFindIt.Caption = " First Name "

''' this indexcontactfirstname should already exist in the table
''' you can also create index trough code on tables. this method
''' not good in multi user evironment . best way to create indexes and
''' refere them trough code
.Index = "CotactFirstName"


Case "First Name"

Me.lblFindIt.Caption = " Last Name "

.Index = "CotactLastName"


Case "Last Name "
Me.lblFindIt.Caption = "Company Name "
.Index = "CompanyName"

End Select
End With

End

End Sub

Private Sub textFindIt_Change()

Dim strSeek As Variant
Dim posInmyRS As Variant
''' feeding it the value from text box
strSeek = Me![textFindIt].Text

With myRS

posInmyRS = myRS.Bookmark

.Seek ">=", strSeek

If .NoMatch = True Then

myRS.Bookmark = posInmyRS

Exit Sub

End If

FillFeilds
 End With
 
End Sub

Option Compare Database

Option Explicit
'''we declare publick variable in the module
'''note we can oly declare public ariables insdie module
'''not inside the function
''' we declare it here so that fillfeilds sub routine can see it.
''' we can not declare it public inside onload

Public db As Database
Public myRS As Recordset
Public pbEditingARecord As Boolean
Public frmName As String
Public ctrlName As String
Public pbAddingARecord As Boolean
Public pbCurrentPos As Variant