عوض کردن عنوان تیبل

[beheshtyy]

سلام
کسی می دونه چه طور باید عنوانهای تیبیل را در فرم عوض کرد

[majid_tiger]

سلام ، اگر دوست دارید بطور دقیق جواب داشته باشید بهتر است نمونه فایل را ضمیمه کنید .
به احتمال زیاد قسمت بالای صفحه با استفاده از منوها ساخته شده ( Access 2003 ) و ابزارهای نمایش داده شده می تواند هم "دکمه " باشد و یا از با استفاده از یک ActiveX ایجاد شده باشد .
همانطور که در ابتدا ذکر شد برای حصول جواب قطعی وجود فایل الزامی است .

[beheshtyy]

[QUOTE=majid_tiger;2006799]سلام ، اگر دوست دارید بطور دقیق جواب داشته باشید بهتر است نمونه فایل را ضمیمه کنید .
به احتمال زیاد قسمت بالای صفحه با استفاده از منوها ساخته شده ( Access 2003 ) و ابزارهای نمایش داده شده می تواند هم "دکمه " باشد و یا از با استفاده از یک ActiveX ایجاد شده باشد .
همانطور که در ابتدا ذکر شد برای حصول جواب قطعی وجود فایل الزامی است .[/Quotex]

[beheshtyy]

یک قسمت از فایلها بالا که امکان آپلود در بالا نبود

[majid_tiger]

سلام ، تلفن ها یک ListBox است که مقادیر خود رو از جدولی به نام Table11 میگیره ، اگر خواستید عنوانش رو تغییر بدهید کافیه خصوصیت Caption مربوط به هر فیلد رو عوض کنید . اون سربرگ ها هم از طریق یک جدول کنترل میشه به نام Ribbon Controls که در قسمت ماژول ها کدهای مربوط به اون رو می تونید ببینید در ضمن از طریق همون جدول عنوان منوها یا ریبون ها رو هم می تونید تغییر بدهید . موفق باشید .

[beheshtyy]

ممنونم از پاسختون فقط مشکل اینجاست که من کدها را میبینم اما جدول Ribbon Controls و Table11 نمیتونم مشاهده کنم
چه طور و از کجا جدولهای اکسس ببینم
این فایل که همه سزبرگها و منوهای اکسس درش بسته است

[majid_tiger]

دوست عزیز قبل از اجرای برنامه کلید Shift را نگه دارید و تا زمانیکه برنامه بطور کامل باز نشده ( منظور Access است ) کلید را رها نکنید .

[beheshtyy]

سلام دوست عزیز در جدول Ribbon Controls نام منوها عوض میکنم اما باز منوها به همان نام قبلی نمایش داده میشه
یه سوال دیگه این کد را چه طور تغیر دهم تا اگه نام کالا تکراری بود پیغام بده که تکراری هست و خود بخود لیست با قیمت جدید بروز بشه


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.Fields("fie7") = Text08
Rst.Update
Rst.Clone
List1.Requery


End Sub



میخوام کد بالا به صورت کد زیر عمل کنه
این کد برای فرم اکسل هست




Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("A1:a10000")
If c = TextBox2.Text And c <> "" Then
Dim a
a = MsgBox("این کالا قبلا ثبت شده است" & vbNewLine & "آیا میخواهید اطلاعات به روز شود", vbYesNo)
If a = vbYes Then
c.Offset(0, 2).Value = TextBox3.Text
c.Offset(0, 3).Value = TextBox4.Text
TextBox2.Text = ""
TextBox4.Text = ""
MsgBox "اطلاعات به روز شد"
Exit Sub
End If
End If
Next
If TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then
For Each c In Range("A1:A10000")
If c = "" Then
c = TextBox1.Text
c.Offset(0, 0) = TextBox2.Text
c.Offset(0, 1) = TextBox3.Text
c.Offset(0, 2) = TextBox4.Text
TextBox2.Text = ""
TextBox4.Text = ""
TextBox2.SetFocus
Exit Sub
End If
Next
Else
MsgBox ("اطلاعات را وارد کنید")
End If

End Sub

[majid_tiger]

زمانیکه اطلاعاتی را از کادر متن یا ... دریافت می کنید و می خواهید آن را در جدول ذخیره کنید یکی از راههای کنترل این است که یک رکوردست جستجو ایجاد کنید و توسط آن عبارت ورودی را با رکوردهای داخل جدول مقایسه نمایید . برای این منظور می توانید از مدل dbOpenTable که در حال حاضر پیش فرض رکوردست ایجاد شده در کد شما است استفاده کنید :
rst.index = "Index In Own Table
توسط index نام ایندکس تعریف شده در جدول خود را معرفی می کنید


rst.seek "=", Input 1, Input 2,...,Input n
توسط Seek می توانید رکدرهای جدول را با توجه به ورودی ها جستجو کنید . البته توجه داشته باشید که باید هر تعداد ورودی که در این قسمت تعریف می کنید در Index تعریف شده باشد . که نحوه این کار در همین تاپیک عنوان شده .


if rst.nomatch = false then
با استفاده از nomatch می توانید شرط موجود بودن جستجو را کنترل کنید که وقتی False باشد یعنی تکرار وجود دارد

if msgbox ("This data ...",vbCritical+vbYesNo + ... , "Title") = vbyes then
rst.edit
else
rst.AddNew

[beheshtyy]

شرمنده دوست عزیز
من نتونستم این کار انجام دهم
میشه لطف کنین این کدها را در کد بالا قرار دهید به طوری که هر گاه Text02 تکراری بود پیام بده واطلاعات
Text08 Text05 Text04 Text03 را بروز کنه

[majid_tiger]

لطفاً ماژول یا روالی رو که مورد نظر هست در فایل قرار دهید و ضمیمه کنید .

[beheshtyy]

لطفاً ماژول یا روالی رو که مورد نظر هست در فایل قرار دهید و ضمیمه کنید .

این کد مربوط به فرم form6-2 در فایلی که در تاپیک3 ضمیه شده میباشد.
من از اون فایل برای وارد کردن قیمت کالا ها استفاده میکنم
مثلا تن ماهی الیکا در تاریخ 1393/01/22 4000 تومان خریداری شده والان در تاریخ 1393/02/01 4200 تومان خریداری شده
میخوام وقتی تو فرم در قسمت نام کالا تن ماهی الیکا وارد میکنم خودش تشخیص بده این نام تکرای هست و بقیه چیزها مثل تاریخ خرید و قیمت و غیره را به روز کنه
همانند فایل اکسل که در زیر پیوست کردم