beheshtyy
شنبه 23 فروردین 1393, 21:54 عصر
از دوستان برنامه نویس کسی نمیدونه مواردی که در بالا گفتم چه طور باید انجام بدم
کدهای فرم را در زیر قرار میدم تا اگه دوستانی که فایلو دانلود نکردن هم کمک کنند
Option Compare Database
Private Sub btn_all1_Click()
List1.RowSource = "Table11"
List1.Requery
End Sub
Private Sub btn_all2_Click()
List2.RowSource = "query2"
List2.Requery
End Sub
Private Sub btn_del1_Click()
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE (((Table11.ID) like " & Text01 & "));")
If (Rst.RecordCount = 0) Then
MsgBox "ليست را انتخاب کنيد"
Exit Sub
Else
Dim u As String
Dim a As String
Dim K As String
Dim l As String
a = Rst.Fields("fie1")
K = Rst.Fields("fie4")
l = Rst.Fields("id")
u = MsgBox(Space(25) & " آيا ميخواهيد " & a & " با في فروش " & K & " تومان حذف گردد؟ " & Space(25), vbOKCancel, "حذف کالا")
If u = vbOK Then
Rst.Delete
List1.Requery
Else
End If
End If
End Sub
Private Sub btn_del2_Click()
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("SELECT Table2.ID, Table2.name ,Table2.number,Table2.pass FROM Table2 WHERE (((Table2.ID) like " & Text6 & "));")
If (Rst.RecordCount = 0) Then
MsgBox "ليست را انتخاب کنيد"
Exit Sub
Else
Dim u As String
Dim a As String
a = Rst.Fields("name")
u = MsgBox(Space(25) & "آيا مطمئن هستيد " & a & " حذف گردد" & Space(25), vbOKCancel, "خطا")
If u = vbOK Then
Rst.Delete
List2.Requery
Else
End If
End If
End Sub
Private Sub btn_edit1_Click()
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE (((Table11.ID) like " & Text01 & "));")
If (Rst.RecordCount = 0) Then
MsgBox "ليست را انتخاب کنيد"
Else
Dim u As String
a = Rst.Fields("fie1")
u = MsgBox(Space(25) & "آيا مي خواهيد " & a & " ويرايش شود؟" & Space(25), vbOKCancel, "خطا")
If u = vbOK Then
Rst.Edit
Rst.Fields("id") = Val(Text01.value)
Rst.Fields("fie1") = Text02
Rst.Fields("fie2") = Text03
Rst.Fields("fie3") = Text04
Rst.Fields("fie4") = Text05
Rst.Update
List1.Requery
Else
End If
End If
End Sub
Private Sub btn_edit2_Click()
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("SELECT Table2.ID, Table2.name ,Table2.pass ,Table2.number FROM Table2 WHERE (((Table2.ID) like " & Text6 & "));")
If (Rst.RecordCount = 0) Then
MsgBox "ليست را انتخاب کنيد"
Else
Dim u As String
u = MsgBox(Space(25) & "آيا مي خواهيد ويرايش شود" & Space(25), vbOKCancel, "خطا")
If u = vbOK Then
Rst.Edit
Rst.Fields("name") = Text4
Rst.Fields("pass") = Text5.value
Rst.Fields("number") = Text8.value
Rst.Update
List2.Requery
Else
End If
End If
End Sub
Private Sub btn_new1_Click()
Text01.value = ""
Text02.value = ""
Text04.value = ""
Text05.value = ""
Me.Text02.SetFocus
btn_sabt1.Enabled = True
btn_edit1.Enabled = False
btn_del1.Enabled = False
End Sub
Private Sub btn_new2_Click()
Text4.value = ""
Text5.value = ""
Text8.value = ""
btn_edit2.Enabled = False
btn_del2.Enabled = False
btn_sabt2.Enabled = True
End Sub
Private Sub btn_new1_Enter()
Text01.value = ""
Text02.value = ""
Text04.value = ""
Text05.value = ""
Me.Text02.SetFocus
btn_sabt1.Enabled = True
btn_edit1.Enabled = False
btn_del1.Enabled = False
End Sub
Private Sub btn_sabt1_Click()
If Text02 = "" Then
MsgBox " لطفا نام کالا را وارد کنید "
Exit Sub
ElseIf Text03 = "" Then
MsgBox "لطفا تارخ خرید را وارد کنيد "
Exit Sub
End If
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("Table11")
Rst.AddNew
If IsNull(DMax("id", "Table11")) Then
Text01.value = 1
Else
Text01.value = DMax("id", "Table11") + 1 'بزرگترين id را کشف و با يک جمع '
End If
Rst.Fields("id") = Val(Text01.value)
Rst.Fields("fie1") = Text02
Rst.Fields("fie2") = Text03
Rst.Fields("fie3") = Text04
Rst.Fields("fie4") = Text05 'در اینجا وقتی همه فیلدها پر شد چه کدی قرار دهم تا با اینتر سیو شود '
Rst.Update
Rst.Clone
List1.Requery
End Sub
Private Sub btn_sabt1_Enter()
End Sub
Private Sub btn_sabt2_Click()
If (IsNull(Text4)) Or (Text4 = "") Then
MsgBox "نام را در وارد کنيد"
Exit Sub
ElseIf (Val(Text5.value) = 0) Or (IsNull(Text5.value)) Then
MsgBox "رمز را وارد کنيد"
Exit Sub
Else
End If
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("table2")
Rst.AddNew
If IsNull(DMax("id", "table2")) Then
Text6.value = 1
Else
Text6.value = DMax("id", "table2") + 1 'بزرگترين id را کشف و با يک جمع '
End If
Rst.Fields("name") = Text4
Rst.Fields("pass") = Text5.value
Rst.Fields("number") = Text8.value
Rst.Fields("id") = Val(Text6.value)
Rst.Update
Rst.Clone
List2.Requery
End Sub
Private Sub btn_search1_Click()
'If text05.Value = "" Then
'MsgBox "کلمه جستجو را وارد کنيد "
'Else
'List1.RowSource = "SELECT Table11.id ,Table11.fie1, Table11.fie2, Table11.fie5, Table11.fie6, Table11.fie7 FROM Table11 WHERE ( ((Table11.id) like '*" & text05 & "*')and((Table11.fie1) like '*" & Text1000 & "*') and ((Table11.fie2) like '*" & Text2000 & "*') and ((Table11.fie5) like '*" & Text3000 & "*')and ((Table11.fie6) like '*" & Text4000 & "*')and ((Table11.fie7) like '*" & Text5000 & "*') );"
'List1.Requery
'End If
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '*" & Text00002 & "*' ));"
List1.Requery
End Sub
Private Sub Command12_Click()
End Sub
Private Sub btn_search2_Click()
If Text7.value = "" Then
MsgBox "کلمه جستجو را وارد کنيد "
Else
List2.RowSource = "SELECT table2.name,table2.pass ,table2.ID FROM table2 WHERE (((table2.name) like '*" & Text7 & "*'));"
List2.Requery
End If
End Sub
Private Sub click1_Click()
End Sub
Private Sub Command138_Click()
If Check1.value = True Then
MsgBox "حال ذخيره گرديد"
Else
MsgBox "حال ذخhghjghjghjhgj"
End If
End Sub
Private Sub Check1_Click()
If Check1.value = True Then
Text4000 = 1
Else
Text4000 = 0
End If
End Sub
Private Sub Command153_Click()
DoCmd.OpenForm "frmcalenfie1", acNormal, , , , acDialog
Text02.value = strDate
End Sub
Private Sub Command154_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
Text08.value = strDate
End Sub
Private Sub Command155_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
Text06.value = strDate
End Sub
Private Sub Command156_Click()
DoCmd.OpenForm "frmcalenfie1", acNormal, , , , acDialog
Text1000.value = strDate
End Sub
Private Sub Command157_Click()
DoCmd.OpenForm "frmcalenfie1", acNormal, , , , acDialog
Text3000.value = strDate
End Sub
Private Sub Command158_Click()
DoCmd.OpenForm "frmcalenfie1", acNormal, , , , acDialog
Text5000.value = strDate
End Sub
Private Sub Command161_Click()
On Error Resume Next
DoCmd.OpenForm "SetHolidays", acNormal, , , , acDialog
End Sub
Private Sub Command162_Click()
On Error Resume Next
DoCmd.OpenForm "form1", acNormal, , , , acDialog
End Sub
Private Sub Command163_Click()
On Error Resume Next
DoCmd.OpenReport ""
End Sub
Private Sub Command39_Click()
DoCmd.Close
DoCmd.OpenForm "form2"
End Sub
Private Sub Command43_Click()
DoCmd.OpenReport "report1"
End Sub
Private Sub Command169_Click()
'DoCmd.OpenReport "Table11", acViewPreview
'DoCmd.Restore
'DoCmd.Maximize
End Sub
Private Sub Command204_Click()
DoCmd.OpenForm "form8", acNormal, , , , acDialog
',DoCmd.OpenQuery "table5 Query1"
'
End Sub
Private Sub Command219_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
Text11.value = strDate
End Sub
Private Sub Command220_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
Text12.value = strDate
End Sub
Private Sub Command221_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
Text13.value = strDate
End Sub
Private Sub Command222_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
Text09.value = strDate
End Sub
Private Sub Command223_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
text10.value = strDate
End Sub
Private Sub Command51_Click()
DoCmd.OpenForm "form2", acNormal, , , , acDialog
End Sub
Private Sub Command61_Click()
MsgBox "آيا مي خواهيد ذخيره گردد", vbOKCancel, "HGG"
If vbOK = True Then
DoCmd.Save
MsgBox "حال ذخيره گرديد"
Else
End If
End Sub
Private Sub Command74_Click()
If Text11.value = 1 Then
MsgBox "click1"
ElseIf Text11.value = 2 Then
MsgBox "click2"
End If
End Sub
Private Sub Command56_Click()
On Error GoTo Err_Command56_Click
Dim stDialStr As String
Dim PrevCtl As Control
Const ERR_OBJNOTEXIST = 2467
Const ERR_OBJNOTSET = 91
Const ERR_CANTMOVE = 2483
Set PrevCtl = Screen.PreviousControl
If TypeOf PrevCtl Is TextBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ListBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ComboBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
Else
stDialStr = ""
End If
Application.Run "utility.wlib_AutoDial", stDialStr
Exit_Command56_Click:
Exit Sub
Err_Command56_Click:
If (err = ERR_OBJNOTEXIST) Or (err = ERR_OBJNOTSET) Or (err = ERR_CANTMOVE) Then
Resume Next
End If
MsgBox err.Description
Resume Exit_Command56_Click
End Sub
Private Sub Form_Close()
End Sub
Private Sub Image225_Click()
Text01.value = ""
Text02.value = ""
Text03.value = ""
Text04.value = ""
Text05.value = ""
Text09.value = ""
text10.value = ""
Text11.value = ""
Text12.value = ""
Text13.value = ""
btn_sabt1.Enabled = True
btn_edit1.Enabled = False
btn_del1.Enabled = False
End Sub
Private Sub Image226_Click()
If Text02 = "" Then
MsgBox " لطفا نام را وارد کنيد "
Exit Sub
ElseIf Text03 = "" Then
MsgBox "لطفا نام خانوادگي را وارد کنيد "
Exit Sub
End If
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("Table11")
Rst.AddNew
If IsNull(DMax("id", "Table11")) Then
Text01.value = 30001
Else
Text01.value = DMax("id", "Table11") + 1 'بزرگترين id را کشف و با يک جمع '
End If
Rst.Fields("id") = Val(Text01.value)
Rst.Fields("fie1") = Text02
Rst.Fields("fie2") = Text03
Rst.Fields("fie3") = Text04
Rst.Fields("fie4") = Text05
Rst.Fields("fie8") = Text09
Rst.Fields("fie9") = text10
Rst.Fields("fie10") = Text11
Rst.Fields("fie11") = Text12
Rst.Fields("fie12") = Text13
Rst.Fields("fie13") = Text14
Rst.Fields("fie14") = Text15
Rst.Fields("fie15") = Text16
Rst.Fields("fie16") = Text17
Rst.Fields("fie17") = Text18
Rst.Fields("fie18") = Text19
Rst.Update
Rst.Clone
List1.Requery
text1 = ""
End Sub
Private Sub Image227_Click()
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID, Table11.fie8, Table11.fie9, Table11.fie10, Table11.fie11, Table11.fie12,Table11.fie13, Table11.fie14, Table11.fie15, Table11.fie17, Table11.fie18, Table11.fie18 FROM Table11 WHERE (((Table11.ID) like " & Text01 & "));")
If (Rst.RecordCount = 0) Then
MsgBox "ليست را انتخاب کنيد"
Else
Dim u As String
u = MsgBox(Space(25) & "آيا مي خواهيد ويرايش شود" & Space(25), vbOKCancel, "خطا")
If u = vbOK Then
Rst.Edit
Rst.Fields("id") = Val(Text01.value)
Rst.Fields("fie1") = Text02
Rst.Fields("fie2") = Text03
Rst.Fields("fie3") = Text04
Rst.Fields("fie4") = Text05
Rst.Fields("fie8") = Text09
Rst.Fields("fie9") = text10
Rst.Fields("fie10") = Text11
Rst.Fields("fie11") = Text12
Rst.Fields("fie12") = Text13
Rst.Fields("fie13") = Text14
Rst.Fields("fie14") = Text15
Rst.Fields("fie15") = Text16
Rst.Fields("fie16") = Text17
Rst.Fields("fie17") = Text18
Rst.Fields("fie18") = Text19
Rst.Update
List1.Requery
Else
End If
End If
End Sub
Private Sub Image229_Click()
Dim db As DAO.Database
Dim Rst As Recordset
Set db = CurrentDb
Set Rst = db.OpenRecordset("SELECT Table11.ID ,Table11.fie1, Table11.fie2, Table11.fie5, Table11.fie6, Table11.fie7 FROM Table11 WHERE (((Table11.ID) like " & Text01 & "));")
If (Rst.RecordCount = 0) Then
MsgBox "ليست را انتخاب کنيد"
Exit Sub
Else
Dim u As String
Dim a As String
Dim K As String
Dim l As String
a = Rst.Fields("fie1")
K = Rst.Fields("fie2")
l = Rst.Fields("id")
u = MsgBox(Space(25) & " آيا مطمئن هستيد " & a & " " & K & " با شماره عضويت " & l & "حذف گردد" & Space(25), vbOKCancel, "خطا")
If u = vbOK Then
Rst.Delete
List1.Requery
Else
End If
End If
End Sub
Private Sub Image230_Click()
DoCmd.OpenForm "form4", acNormal, , , , acDialog
End Sub
Private Sub Image231_Click()
List1.RowSource = "Table11"
List1.Requery
End Sub
Private Sub Image244_Click()
DoCmd.OpenForm "ProgressBar", acNormal, , , , acDialog
End Sub
Private Sub Image245_Click()
On Error Resume Next
DoCmd.OpenForm "SetHolidays", acNormal, , , , acDialog
End Sub
Private Sub Image247_Click()
On Error Resume Next
DoCmd.OpenForm "form1", acNormal, , , , acDialog
End Sub
Private Sub Frame6_Click()
If [Frame6] = 1 Then
List1.RowSource = "Table11"
List1.Requery
ElseIf [Frame6] = 2 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[آا]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 3 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ب پ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 4 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ت ث]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 5 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ج چ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 6 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ح خ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 7 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[د ذ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 8 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ر ز ژ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 9 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[س ش]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 10 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ص ض]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 11 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ط ظ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 12 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ع غ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 13 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ف ق]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 14 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ک گ]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 15 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ل]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 16 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[م]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 17 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ن]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 18 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ه]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 19 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[و]*" & "' ));"
List1.Requery
ElseIf [Frame6] = 20 Then
List1.RowSource = " SELECT Table11.fie7 , Table11.fie6,Table11.fie5,Table11.fie4,Table11.fie 3,Table11.fie2, Table11.fie1,Table11.ID FROM Table11 WHERE ( ((Table11.fie1) like '" & "[ي]*" & "' ));"
List1.Requery
End If
End Sub
Private Sub Frame6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
End Sub
Private Sub List1_Click()
Text01.value = List1.Column(7)
Text02.value = List1.Column(6)
Text03.value = List1.Column(5)
Text04.value = List1.Column(4)
Text05.value = List1.Column(3)
text7000.value = Text02
btn_sabt1.Enabled = False
btn_del1.Enabled = True
btn_edit1.Enabled = True
End Sub
Private Sub Form_Load()
'btn_edit1.Enabled = False
Text01.value = ""
Text02.value = ""
Text03.value = ""
Text04.value = ""
Text05.value = ""
'btn_del2.Enabled = False
'im.Visible = False
'List1.RowSource = "Table11 Query1"
'List1.Requery
'كليك
btn_edit1.Enabled = False
btn_del1.Enabled = False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
MsgBox "ctrl + a"
End If
End Sub
Private Sub Page71_Click()
End Sub
Private Sub Text1000_Dirty(Cancel As Integer)
On Error GoTo 0
End Sub
Private Sub Text170_AfterUpdate()
End Sub
Private Sub Text186_AfterUpdate()
Dim t As String
Dim ta As Single
Dim tb As Single
If t = "" Then
Exit Sub
End If
t = MiD(Text3000.value, 1, 4)
ta = MiD(Text3000.value, 5, 2)
tb = MiD(Text3000.value, 7, 2)
Text3000 = Format(t, "0000") & "/" & Format(ta, "00") & "/" & Format(tb, "00")
End Sub
Private Sub List1_DblClick(Cancel As Integer)
DoCmd.OpenForm "form6-9"
End Sub
Private Sub Text02_AfterUpdate()
text7000.value = Text02 & " " & Text03
End Sub
Private Sub Text3000_AfterUpdate()
Text3000.InputMask = "0000/00/00"
Dim p As String
Dim pa As Single
Dim pb As Single
p = MiD(Text3000.value, 1, 4)
pa = MiD(Text3000.value, 5, 2)
pb = MiD(Text3000.value, 7, 2)
Text3000 = Format(p, "0000") & "/" & Format(pa, "00") & "/" & Format(pb, "00")
End Sub
Private Sub Text3000_Dirty(Cancel As Integer)
Text3000.InputMask = ""
End Sub
Private Sub Text03_AfterUpdate()
text7000.value = Text02
End Sub
Private Sub Text06_AfterUpdate()
End Sub
Private Sub Text5000_AfterUpdate()
End Sub
Private Sub Text06_Dirty(Cancel As Integer)
strDate = ""
End Sub
Private Sub Text08_AfterUpdate()
End Sub
Private Sub Toggle78_GotFocus()
'Text11.Value = 1
End Sub
Private Sub Toggle79_GotFocus()
'Text11.Value = 2
End Sub
Private Sub text01_Click()
End Sub
Private Sub Text08_Dirty(Cancel As Integer)
End Sub
Private Sub Text09_AfterUpdate()
Dim e As String
Dim ea As Single
Dim eb As Single
'If e = "" Then
'Exit Sub
'End If
e = MiD(Text09.value, 1, 4)
ea = MiD(Text09.value, 5, 2)
eb = MiD(Text09.value, 7, 2)
Text09 = Format(e, "0000") & "/" & Format(ea, "00") & "/" & Format(eb, "00")
End Sub
Private Sub Text09_Dirty(Cancel As Integer)
strDate = ""
End Sub
Private Sub Text10_AfterUpdate()
Dim R As String
Dim ra As Single
Dim rb As Single
'If r = "" Then
'Exit Sub
'End If
R = MiD(text10.value, 1, 4)
ra = MiD(text10.value, 5, 2)
rb = MiD(text10.value, 7, 2)
text10 = Format(R, "0000") & "/" & Format(ra, "00") & "/" & Format(rb, "00")
End Sub
Private Sub Text10_Dirty(Cancel As Integer)
strDate = ""
End Sub
Private Sub Text11_AfterUpdate()
Dim t As String
Dim ta As Single
Dim tb As Single
'If t = "" Then
'Exit Sub
'End If
t = MiD(Text11.value, 1, 4)
ta = MiD(Text11.value, 5, 2)
tb = MiD(Text11.value, 7, 2)
Text11 = Format(t, "0000") & "/" & Format(ta, "00") & "/" & Format(tb, "00")
End Sub
Private Sub Text11_Dirty(Cancel As Integer)
strDate = ""
End Sub
Private Sub Text12_AfterUpdate()
Dim y As String
Dim ya As Single
Dim yb As Single
'If y = "" Then
'Exit Sub
'End If
y = MiD(Text12.value, 1, 4)
ya = MiD(Text12.value, 5, 2)
yb = MiD(Text12.value, 7, 2)
Text12 = Format(y, "0000") & "/" & Format(ya, "00") & "/" & Format(yb, "00")
End Sub
Private Sub Text12_Dirty(Cancel As Integer)
strDate = ""
End Sub
Private Sub Text13_AfterUpdate()
Dim u As String
Dim ua As Single
Dim ub As Single
'If u = "" Then
'Exit Sub
'End If
u = MiD(Text13.value, 1, 4)
ua = MiD(Text13.value, 5, 2)
ub = MiD(Text13.value, 7, 2)
Text13 = Format(u, "0000") & "/" & Format(ua, "00") & "/" & Format(ub, "00")
End Sub
Private Sub Text13_Dirty(Cancel As Integer)
strDate = ""
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.